Tipp 0152 Einträge in ListBox suchen
Autor/Einsender:
Datum:
  Angie
19.10.2001
Entwicklungsumgebung:   VB 5
Das Durchsuchen der ListBox (List1) nach dem in der TextBox eingegebenen Begriff wird bei jeder Änderung in der TextBox ausgelöst. Hier ist auch eine allgemeine Suche mit Platzhalter (*) möglich, d. h., wird beispielsweise *a als Suchbegriff eingegeben, werden alle Einträge in List1, die den Buchstaben 'a' beinhalten, zu der ListBox mit den Suchergebnissen (List2) hinzugefügt.
 
Option Explicit

Private Sub Form_Load()
  With List1
    .Clear
    .AddItem "Helmut"
    .AddItem "Alfons"
    .AddItem "Ralf"
    .AddItem "Bruno"
    .AddItem "Daniel"
    .AddItem "Heino"
    .AddItem "Hans"
    .AddItem "Alois"
    .AddItem "Roger"
    .AddItem "Roland"
    .AddItem "Anton"
    .AddItem "Hinrich"
  End With

  Text1.Text = ""
End Sub

Private Sub Text1_Change()
  Dim sSuchText As String
  Dim i As Integer

  List2.Clear

  sSuchText = Text1.Text
  If sSuchText = "" Then Exit Sub

  If Left(sSuchText, 1) = "*" Then
    sSuchText = Right(sSuchText, Len(sSuchText) - 1)
    For i = 0 To List1.ListCount - 1
      If InStr(1, List1.List(i), sSuchText, 1) <> 0 Then
        List2.AddItem List1.List(i)
      End If
    Next i

  Else
    For i = 0 To List1.ListCount - 1
      If UCase(sSuchText) = _
          UCase(Left(List1.List(i), Len(sSuchText))) Then
        List2.AddItem List1.List(i)
      End If
    Next i
  End If
End Sub
 
Weitere Links zum Thema
Einträge ersetzen
Listeneinträge löschen
Listeneinträge löschen (API)
Listeneinträge verschieben
Listeneinträge per Drag & Drop verschieben
Hinweis für VBA-Anwender
Mit kleinen Anpassungen funktioniert der hier abgebildete Code auch in einem VBA-Projekt. Dieser muss dazu in den VB-Editor der entsprechenden Anwendung kopiert werden. Ein Import der im Download enthaltenen *.frm-Datei ist nicht möglich.

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (2,8 kB) Downloads bisher: [ 1926 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Samstag, 9. Juli 2011