Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Suche in Listbox
Autor: Master
Datum: 03.10.03 15:08
' Schnelle Suche innerhalb einer ListBox Private Declare Function SendMessage Lib "user32" Alias _ "SendMessageA" (ByVal hwnd As Long, ByVal wMsg _ As Long, ByVal wParam As Long, ByVal lParam As _ String) As Long Private Const LB_FINDSTRING = &H18F ' Prüft, ob ein Wert in einer ListBox enthalten ist ' und gibt als Ergebnis den ListIndex zurück ' (-1, wenn nicht vorhanden) Public Function IsInListe(Liste As ListBox, _ ByVal Item As String) As Integer IsInListe = SendMessage(Liste.hwnd, _ LB_FINDSTRING, -1, Item) End Function Dim Index As Integer Dim sSuchText As String sSuchText = "Gesuchter Eintrag" Index = IsInListe(List1, sSuchText) ' Eintrag vorhanden...? If Index > -1 Then ' ...dann Marierung auf den Eintrag setzen! List1.ListIndex = Index End If ' Prüft, ob ein Wert in einer ListBox enthalten ist, ' wobei die Groß-/Kleinschreibung keine Rolle spielt, ' und gibt als Ergebnis den Listndex zurück ' (-1, wenn nicht vorhanden) Public Function IsInListe2(List1 As ListBox, _ ByVal Item As String) As Integer Dim I As Integer Dim Index As Integer Index = -1 With List1 For I = 0 To .ListCount - 1 If .List(I) Like Item Then ' Eintrag gefunden Index = I: Exit For End if Next I End With IsInList2 = Index End Function ' Suche auch innerhalb der Einträge Dim Index As Integer Dim sSuchText As String sSuchText = "*teilbegriff*" Index = IsInListe2(List1, sSuchText) ' Eintrag vorhanden...? If Index > -1 Then ' ...dann Marierung auf den Eintrag setzen! List1.ListIndex = Index End If

Suche in Listbox	564	Adrian1	03.10.03 14:51
Re: Suche in Listbox	419	Master	03.10.03 15:08

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen