Mit diesem Snippet kann man die Listbox durch einzelne Buchstaben durchsuchen. Zwar gibt es dir Möglichkeit die Listbox mit diesem Befehl zu Durchsuchen: Listbox.SelectedIndex = ListBox.FindString("Der Gesuchte text")
Jedoch durchsucht diese Funktion nur die Anfangsbuchstaben, mein snippet durchsucht jedoch alle Buchstaben.
Private Function SearchListbox(ByVal ListBox_ As ListBox, ByVal SearchString As String)
Dim index As Integer = 0
On Error Resume Next
For Each tt In ListBox_.Items
Dim p As String = tt
Dim toLow = p.ToLower
If toLow.Contains(SearchString.ToLower) = True Then
ListBox_.SelectedIndex = index
End If
index += 1
Next
End Function
1 Kommentare zum Snippet