For or Do statement for Listboxes [Resolved]

[jlegan]

I have a listbox (currently project is in VB.NET but could do in VB6. The listbox contains a list of items. What would the syntax be for a For or Do statement that would perform an action for each item that is checked\highlighted?

IE. 6 names in a listbox, 3 are highlighted. What would the statement look like if I wanted a msgbox to pop-up for each of their names?

I cannot figure out the syntax.

Thanks,

Jim

[Joacim Andersson]

Dim n As Long, nCount As Long
 
nCount = List1.ListCount - 1
For n = 0 To nCount
    If List1.Selected(n) Then
        MsgBox List1.List(n)
    End If
Next

That code is for VB6, I don't have VB.Net installed on the computer I'm currently on and don't really know if you would do it in a smarter way with that.

[Mushroom Realm]

Dim i As Integer, j As Integer
Do Until i = List1.SelCount
If List1.Selected(j) = True Then
List2.AddItem List1.List(j)
i = i + 1
End If
j = j + 1
Loop

edit: almost same post time, it took me a sec to whip up the code. His is shorter go with that.

[jlegan]

Mushroom,

Where did the second list come in?

[Mushroom Realm]

Oh, I forgot it said to have a messagebox pop up.

[jlegan]

Do you know the syntax for .NET?

[Mushroom Realm]

Post a link to this thread in the .NET forum. They would know, but it might take a little longer.