Return value of ListBox item

[mikeymay]

I am trying to establish the value/string of a number of ListBox items by looping through them.

intCount = 1
Do Until intCount > lb_Crew.ListCount
    If lb_Crew.ListIndex(intCount).Text = "Required value/string" Then
        'Do something
        Else
        'Do something else
    End If
    intCount = intCount + 1
Loop

.Text and .Value don't seem to twork to return the value of the item in the ListBox


Thanks

 

[Useful]

I am trying to establish the value/string of a number of ListBox items by looping through them.

intCount = 1
Do Until intCount > lb_Crew.ListCount
    If lb_Crew.ListIndex(intCount).Text = "Required value/string" Then
        'Do something
        Else
        'Do something else
    End If
    intCount = intCount + 1
Loop

.Text and .Value don't seem to twork to return the value of the item in the ListBox


Thanks

Hello!

intCount = 0
Do Until intCount > lb_Crew.ListCount
    If lb_Crew.List(intCount) = "Required value/string" Then
        'Do something
        Else
        'Do something else
    End If
    intCount = intCount + 1
Loop

 

[Andrew Poulsom]

Does this work for you?

    intCount = 0
    Do Until intCount > lb_Crew.ListCount - 1
        If lb_Crew.List(intCount) = "Required value/string" Then
            MsgBox intCount
            'Do something
            Else
            'Do something else
        End If
        intCount = intCount + 1
    Loop

Note that a ListBox's List is zero based.