Tipp 0141 Doppeleinträge in ListBox verhindern
Autor/Einsender:
Datum:
  Christian Lotmann
19.10.2001
Entwicklungsumgebung:   VB 5
Um doppelte Listeneinträge zu verhindern, wird geprüft, ob ein bestimmter Eintrag in der ListBox bereits existiert. In diesem Beispiel kann auch angegeben werden, ob die Groß-/Kleinschreibung der Listeneinträge beachtet werden soll oder nicht.
 
Option Explicit

Private Sub Form_Load()
  List1.Clear
  With List1
    .AddItem "Alfred"
    .AddItem "Bruno"
    .AddItem "Daniel"
    .AddItem "Heino"
    .AddItem "Roger"
  End With
  Text1.Text = "Bruno"
End Sub

Private Sub cmdListHinzufuegen_Click()
  Dim strText As String

  strText = Trim(Text1.Text)

  If strText = "" Then
    Label1.Caption = "Bitte Text in Textbox eingeben!"
    Text1.SetFocus
    Exit Sub
  End If

  If EintragVorhanden(List1, strText) Then
    Label1.Caption = "Der Eintrag ist bereits vorhanden!"
  Else
    List1.AddItem strText
    Label1.Caption = "Der Eintrag wurde zur Liste hinzugefügt!"
  End If
  Text1.SetFocus
End Sub

Private Function EintragVorhanden(c As Control, _
      eintrag As String) As Boolean
  Dim i As Integer
  EintragVorhanden = False

  If chkGrossKlein.Value = 0 Then
    For i = 0 To c.ListCount - 1
      If UCase(c.List(i)) = UCase(eintrag) Then
        EintragVorhanden = True
        c.ListIndex = i
        Exit For
      End If
    Next i
  Else
    For i = 0 To c.ListCount - 1
      If c.List(i) = eintrag Then
        EintragVorhanden = True
        c.ListIndex = i
        Exit For
      End If
    Next i
  End If
End Function
 
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,7 kB) Downloads bisher: [ 1376 ]

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, 4. Juni 2011