getting the index of items in a listbox

[gmatteson]

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?

[James Stanich]

Get the index? Please explain more...

[gmatteson]

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

[James Stanich]

Just add in the x counter ?

[gmatteson]

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

[glyptar]

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

[BillBoeBaggins]

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

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)

[andreys]

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

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

[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...

[James Stanich]

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

[andreys]

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:

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

[gmatteson]

i feel ashamed, too tired lol....

[Arc]

This code is correct.

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