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:	Views:  28.020
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.