Tekst van listbox item 1, controleren met de listbox item 2

[Olbren]

Best forumlid,

Ik probeer alle items in een listbox te controleren met elkaar en zodra deze hetzelfde zijn een ervan te verwijderen.
Dit omdat de listbox die ik heb vrijwel alle items dubbel erin heeft staan.
Concreet probeer ik dus de complete inhoud van de listbox te ontdubbelen.

De onderstaande code, had ik zo'n beetje bedacht, maar helaas werkt deze niet.

Dim z As Integer
z = 1

Do Until z = Convert.ToInt32(ListBox1.Items.Count)
            If ListBox1.Items(z) = ListBox1.Items(z + 1) Then
                ListBox1.Items.Remove(z + 1)
                z = z + 1
            Else
                z = z + 1

            End If
        Loop

Wellicht dat iemand me kan helpen?
Zeg er ook eerlijk bij dat ik nog steeds lerende ben hierin.

Overigens als er een simpelere code is om een complete listbox te ontdubbelen, is dat ook een oplossing natuurlijk.

Bij voorbaat dank!!

 

[edmoor]

Een listbox presenteert alleen gegevens die ergens vandaan komen. Het lijkt me dus dat je bij de bron van die gegevens moet zijn om de dubbelen eruit te verwijderen.

 

[Olbren]

Edmoor, ben ik volledig met je eens.
Maar daar heb ik helaas geen invloed op. Vandaar dat ik via deze weg probeer.

 

[edmoor]

Ok. Dan wellicht bij het vullen van de listbox de dubbelen al niet toevoegen. Of heb je daarop ook geen invloed?

 

[edmoor]

Anders zou ik het zo doen:

    Dim lbi(ListBox1.Items.Count - 1) As String

    ListBox1.Items.CopyTo(lbi, 0)
    ListBox1.Items.Clear()

    For i As Integer = 0 To UBound(lbi)
        If Not ListBox1.Items.Contains(lbi(i)) Then
            ListBox1.Items.Add(lbi(i))
        End If
    Next

 

[Olbren]

Bedankt Edmoor voor je hulp!

Ik zet hem op "opgelost"

 

[edmoor]

Graag gedaan