06-11-18, 05:04 PM
السلام عليكم
عندي ليست فيو
وفيها عناصر متكررة
في عنصر مكرر مرة واحدة وفي عنصر مكرر اكتر من 10 مرات
عايز اعمل شرط انه يحذف المكرر اكتر من 5 مرات
ممكن تعديل الكود
عندي ليست فيو
وفيها عناصر متكررة
في عنصر مكرر مرة واحدة وفي عنصر مكرر اكتر من 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)