vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Controls · ListBox & ComboBox   |   VB-Versionen: VB2005, VB200816.01.09
Doppelte Einträge einer (Combo-)Listbox löschen

Eine kleine Funktion, die alle doppelte Einträge innerhalb einer Combo- bzw. ListBox entfernt.

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  20.069 
www.tools4vb.deSystem:  Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt auf CD 

Wie lässt sich am einfachsten eine Routine erstellen, welche nach doppelten Einträgen innerhalb einer Combo- oder Listbox sucht und diese dann automatisch entfernt?

Eine Möglichkeit wäre die Einträge der Liste in ein String-Array zu kopieren und anschließend mittels einer kleinen Hilfsfunktion alle doppelten Einträge zu entfernen. Das Ergebnis wird dann wieder zurück in die ListBox geschrieben.

With ListBox1.Items
  ' Inhalt der Liste in ein String-Array kopieren
  Dim sItems(.Count - 1) As String
  .CopyTo(sItems, 0)
 
  ' ListBox löschen
  .Clear()
 
  ' doppelte Einträge aus dem Array entfernen und 
  ' Array zurück in die ListBox schreiben
  .AddRange(DestinctArray(Of String)(sItems))
End With
' Diese Funktion stammt aus dem Tipp:
' Doppelte Werte bei Ausgabe eines Arrays unterdrücken
Private Function DestinctArray(Of T)(ByVal arr() As T) As T()
  Dim tList As New List(Of T)
  For Each i As T In arr
    If Not tList.Contains(i) Then
      tList.Add(i)
    End If
  Next
  Return tList.ToArray
End Function