ListBox mit einzelnen Buchstaben durchsuchen

Sprache: VB

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

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

Abgelegt unter Durchsuchen ListBox ListBoxDurchsuchen. Suche

Alte URL: /snippet/listbox-mit-einzelnen-buchstaben-durchsuchen/14115

1 Kommentar