Advertisement
6_2008-2009 Miscellaneous #204845

A Good ListBox Seach function

This code searches a listbox for a given string, and returns the the ListIndex of the Item that matches the given string.

AI

Shrnutí AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Zdrojový kód
original-source
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
Původní komentáře (3)
Obnoveno z Wayback Machine