by noroom (1 Submission)
Category: Miscellaneous
Compatability: Visual Basic 5.0
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: (3 Votes)
This code searches a listbox for a given string, and returns the the ListIndex of the Item that matches the given string.
Inputs
The string you want to find in the listbox
Code Returns
if found: the ListIndex that matches the given string
If not found: returns -1
Private Function SearchList(ToSearch As String, lstList As ListBox) As Integer
Dim i As Integer
SearchList = -1
For i = 0 To lstList.ListCount - 1
If LCase(lstList.List(i)) = LCase(ToSearch) Then
SearchList = i
Exit For
End If
Next i
End Function