|
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
|
|
|
|
|
|
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: [ 1441 ]
|
|
|