Combo-/ListBox auf bestimmten Eintrag prüfen Dieser "Shorty" zeigt eine einfache Möglichkeit, wie man prüfen kann, ob in einer Combo-/ListBox ein bestimmter Eintrag vorhanden ist.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  28.886
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 18 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Unser heutiger "Short-Tipp" zeigt eine einfache Möglichkeit, wie man prüfen kann, ob in einer Combo-/ListBox ein bestimmter Eintrag vorhanden ist. Hierzu wird einfach der Text-Eigenschaft der Suchstring zugewiesen. Ist der Eintrag vorhanden, wird dieser autom. selektiert - andernfalls wird ein auffangbarer Laufzeitfehler ausgelöst bzw. bei einer ListBox die ListIndex-Eigenschaft auf den Wert -1 gesetzt.

Public Function ItemExists(oControl As Object, ByVal sItem As String) As Boolean
  On Error Resume Next
  oControl.Text = sItem
  If Err.Number <> 0 Or oControl.ListIndex < 0 Then
    ItemExists = False
  Else
    ItemExists = TRue
  End If
  On Error Goto 0
End Function

Das Ganze funktioniert sowohl für die Standard-ListBox von VB, als auch für die ComboBox mit Style = "2 - Dropdown-Liste".

Beispiel:

List1.AddItem "Auto"
List1.AddItem "Haus"
List1.AddItem "Garten"

Dim sItem As String
 
sItem = "Haus"
If Not ItemExists(List1, sItem) Then
  ...
End If