Dieser code zu löschen, listbox-doppelte Elemente gibt mir eine Fehlermeldung

 Private Sub CHKDUP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CHKDUP.Click

        Dim i As Long
        Dim j As Long
        With GlinkList
            For i = 0 To GlinkList.Items.Count - 1
                For j = GlinkList.Items.Count To (i + 1) Step -1
                    If GlinkList.Items(j) = GlinkList.Items(i) Then
                        GlinkList.Items.Remove(j)
                    End If
                Next
            Next
        End With

    End Sub

Wenn ich auf den Knopf drücke, gibt es mir 'Unhandeled exception ist aufgetreten applcation, InvalidArgument=Value von '975<-Listbox-I tems' ist ungültig für 'index'. Parameter name: index

InformationsquelleAutor user1785594 | 2013-06-08
  1. 1

    Ich denke, es wäre wahrscheinlich einfacher, kopieren Sie einfach die Liste zuerst, dann legen Sie die einzigartigen Ergebnisse zurück:

    Dim items(GlinkList.Items.Count - 1) As Object
GlinkList.Items.CopyTo(items, 0)
GlinkList.Items.Clear()
GlinkList.Items.AddRange(items.AsEnumerable().Distinct().ToArray())
    • Ich danke Ihnen sehr. Es funktioniert so gut!
    InformationsquelleAutor LarsTech
  2. 0

    Versuchen, diese (noch nicht testen, da ich Visual Studio nicht installiert in meinem computer jetzt)

    While i < GlinkList.Items.Count
    j = i + 1
    While j < GlinkList.Items.Count
        If GlinkList.Items(j) = GlinkList.Items(i) Then
            GlinkList.Items.Remove(j)
        Else
            j += 1
        End If
    End While
    i += 1
End While
    InformationsquelleAutor invisal
  3. 0

    Ich Glaube, ich Habe die Antwort!

    If Not listbox1.Items.Contains("sometext") Then
     Me.listbox1.Items.Add("sometext")
End If
    • Können Sie poste den kompletten code von der Lösung?
    InformationsquelleAutor Elan Chindan
  4. 0
        Dim i, j As Long
    For i = 0 To ListBox2.Items.Count - 1
        For j = ListBox2.Items.Count - 1 To (i + 1) Step -1
            If ListBox2.Items(i) = ListBox2.Items(j) Then
                ListBox2.Items.Remove(ListBox2.Items(j))
            End If
        Next
    Next
    InformationsquelleAutor Samir
  5. -1

    Hatte ich verwendet verschiedene Methode für das folgende problem aber nicht erinnern können wie: Erstellen Sie eine zweite "listbox2" und machen Sie den ersten versteckt, dann verwenden Sie den folgenden code

     Dim i2 As Integer

 For i2 = 0 To ListBox1.Items.Count - 1
     If Not ListBox2.Items.Contains(ListBox1.Items.Item(i2)) Then
         ListBox2.Items.Add(ListBox1.Items.Item(i))
     End If
 Next

    Nun Ihre zweite listbox wird nicht auf Duplikate

    InformationsquelleAutor Ojan
Schreibe einen Kommentar