[RESOLVED] Listbox Selection Question

[Capp]

I can't seem to figure this one out.

What I am trying to do is cycle through a large list of items in a ListBox and be able to get the text of whatever item is currently selected.

I have a listbox with multiselect enabled. I want it to go through a list of names and grab only the ones that are selected and add them to a second listbox.

Here is what I'm doing.

Dim i As Integer
   Do until i = lstnames.ListIndex -1
       If lstnames.Selected(i) = True then
              lstdept.AddItem   'this is where I get stuck
       End If
       i = i + 1
   Loop

I've tried using lstnames.Text, but that only keeps grabbing the first item selected.

I appreciate the help

Thanks

[dglienna]

Unless I'm missing something, try this:

Dim i As Integer
   Do until i = lstnames.ListIndex -1
       If lstnames.Selected(i) = True then
              lstdept.AddItem   lstnames.list(i)
       End If
       i = i + 1
   Loop

[dee-u]

I think even if you have selected many items lstnames.Selected(i) = True will actually be one only. You could try a listbox with a checkbox instead...

[Capp]

Unless I'm missing something, try this:

Dim i As Integer
   Do until i = lstnames.ListIndex -1
       If lstnames.Selected(i) = True then
              lstdept.AddItem   lstnames.list(i)
       End If
       i = i + 1
   Loop

This returns an error saying invalid use of property.

Thanks tho

[Capp]

I think even if you have selected many items lstnames.Selected(i) = True will actually be one only. You could try a listbox with a checkbox instead...

I'm willing to try it if the other way is impossible.

What would I have to do different to the code I posted above for a checked listbox? I've never used it like that before

Thanks

[manavo11]

I think even if you have selected many items lstnames.Selected(i) = True will actually be one only. You could try a listbox with a checkbox instead...

Works for me

This?

For i = 0 To List1.ListCount - 1
        If List1.Selected(i) = True Then
            list2.AddItem List1.List(i)
        End If
    Next

[Capp]

Works for me

This?

For i = 0 To List1.ListCount - 1
        If List1.Selected(i) = True Then
            list2.AddItem List1.List(i)
        End If
    Next

Works like a charm!

Just what I wanted


Thank You

[dee-u]

Works for me

This?

For i = 0 To List1.ListCount - 1
        If List1.Selected(i) = True Then
            list2.AddItem List1.List(i)
        End If
    Next

I stand corrected.

[manavo11]

Works like a charm!

Just what I wanted


Thank You

You're welcome

I stand corrected.