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:  5.234
www.tools4vb.de	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 16 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.6 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