[الماجيك مسعد]

السلام عليكم
عندي ليست فيو
وفيها عناصر متكررة
في عنصر مكرر مرة واحدة وفي عنصر مكرر اكتر من 10 مرات

عايز اعمل شرط انه يحذف المكرر اكتر من 5 مرات

ممكن تعديل الكود

كود :

Dim lstView As ListView = glist
        Dim itemI As ListViewItem
        Dim itemJ As ListViewItem
        Dim progress As Integer
        Dim count As Integer
        Dim x As Integer = 1
        Dim ProgressDupCounter As Integer = lstView.Items.Count
        lstView.Invoke(Sub()
                           For i As Integer = lstView.Items.Count - 1 To 0 Step -1
                               itemI = lstView.Items(i)
                               progress = progress + 1
                               Dim num As Integer = InputBox("لو عايز تمسح الارقام المكررة مثلا الرقم مكرر 3 مرات
يبقا تكتب 3
ولو عايز تمسحه لو مكرر مرة واحدة
هتكتب 1", "Enter Number number You Want To clear", "1", "4", "5")


                               For z As Integer = i + 1 To lstView.Items.Count - 1 Step 1
                                   itemJ = lstView.Items(z)
                                   If itemI.SubItems(6).Text = itemJ.SubItems(6).Text Then 'duplicate found, now delete duplicate
                                       count = count + 1
                                       If count = num Then
                                           lstView.Items.Remove(itemJ)
                                           count = 0
                                           Exit For
                                       End If
                                   End If
                               Next z
                           Next (i)
                       End Sub)