حذف آیتمهای تکراری یک لیست باکس

[maxvel]

سلام دوستان

چجور میشه آیتمهای تکراری یک لیست باکس رو پیدا کرد؟ :متفکر:

کاره سختیه؟ :متفکر:

اگه کسی بتونه نمونه به همراه توضیح بذاره ممنونش میشم :خجالت:

[xxnagin]

سلام

Public Sub RemoveDuplicateListBox(ByVal L As ListBox)
For Row As Int16 = 0 To L.Items.Count - 2
For RowAgain As Int16 = L.Items.Count - 1 To Row + 1 Step -1
If L.Items(Row).ToString = L.Items(RowAgain).ToString Then
L.Items.RemoveAt(RowAgain)
End If
Next
Next
End Sub