getting the index of items in a listbox

i go through the listbox using

dim x as integer
dim intIndex as integer
for x = 0 to listbox.listcount
intindex = listbox.list(x).index

next x

i recieve an error..
i want to get the index of all the items in the listbox and put that in a variable as it goes throught the list... any ideas?

Get the index? Please explain more...:confused:

lets say i have 7 items in the listbox..

as i loop through the listbox i am putting those 7 items into a file and i want along with that to put the associating index...

strData & intIndex

so the output would look like

"MyData","4"

so that I know the placement of that data in the listbox by the index.
- gabe

Just add in the x counter ? :confused:

thats what i tried but i get an error...


For x = 0 To lstAlertLevels.ListCount
intIndex = lstAlertLevels.List(x).Index
Debug.Print lstAlertLevels(x).ListIndex
Next x

For x = 0 To lstAlertLevels.ListCount -1
intIndex = lstAlertLevels.List(x).Index
Debug.Print lstAlertLevels(x).ListIndex
Next x

the highest index is listcount -1, since the 0 index is counted too.

Hope it helps

Try this code, if your base is 0 then it can't go to ListCount because that be 1 more than existing.

VB Code:

dim x as integer 
dim intIndex as integer 
for x = 0 to listbox.listcount -1
intindex = listbox.list(x).index 
next x

(I love when I submit the same advice as someone else):rolleyes:

People, there is no such thing as lstAlertLevels.List(x).Index
James ment:

Code:

---

For x = 0 To lstAlertLevels.ListCount -1
Debug.Print lstAlertLevels(x).ListIndex & "," & x
Next x

---

i recieve an error here...

wrong number of arguments or invalid property assignment

For x = 0 To lstAlertLevels.ListCount - 1
Debug.Print lstAlertLevels(x).ListIndex & "," & x
Next x

lstAlertLevels is highlighted right after the debug.print...

VB Code:

For x = 0 To lstAlertLevels.ListCount - 1 
Debug.Print lstAlertLevels(x).lList & "," & x 
Next x

Quote:

---

Originally posted by gmatteson
i recieve an error here...

wrong number of arguments or invalid property assignment

For x = 0 To lstAlertLevels.ListCount - 1
Debug.Print lstAlertLevels(x).ListIndex & "," & x
Next x

lstAlertLevels is highlighted right after the debug.print...

---

Sorry, didn't see that
Try:

Code:

---

For x = 0 To lstAlertLevels.ListCount - 1
  Debug.Print lstAlertLevels.List(x) & "," & x
Next x

---

i feel ashamed, too tired lol....

This code is correct.

VB Code:

For x = 0 To lstAlertLevels.ListCount - 1
  Debug.Print lstAlertLevels.List(x) & "," & x
Next x