[محمد ايمن]

السلام عليكم ورحمت الله وبركاتو

بعد انكم هل في كود اضغط علي بوطون يمسح النتاءج المشابه في ليست بوك

وشكران

[ابو ليلى]

السلام عليكم و رحمة الله و بركاته
جرب استخدام الكود :

PHP كود :

   Private Sub RemoveDuplicate(_ListBox As ListBox)
        For postion As Integer = 0 To _ListBox.Items.Count - 2
            For postion2 As Integer = _ListBox.Items.Count - 1 To postion + 1 Step -1
                If _ListBox.Items(postion).ToString = _ListBox.Items(postion2).ToString Then
                    _ListBox.Items.RemoveAt(postion2)
                End If
            Next
        Next
    End Sub 


[ابو روضة]

زيادة على حل استاذ أبو ليلى تابع هذه الحلول

http://vb4arb.com/vb/showthread.php?tid=30804

[محمد ايمن]

(09-04-20, 07:13 PM)ابو ليلى كتب : السلام عليكم و رحمة الله و بركاته
جرب استخدام الكود :

PHP كود :

   Private Sub RemoveDuplicate(_ListBox As ListBox)
        For postion As Integer = 0 To _ListBox.Items.Count - 2
            For postion2 As Integer = _ListBox.Items.Count - 1 To postion + 1 Step -1
                If _ListBox.Items(postion).ToString = _ListBox.Items(postion2).ToString Then
                    _ListBox.Items.RemoveAt(postion2)
                End If
            Next
        Next
    End Sub 


شكران لرض حضرتك المميز

---

(09-04-20, 07:49 PM)ابو روضة كتب :

زيادة على حل استاذ أبو ليلى تابع هذه الحلول

http://vb4arb.com/vb/showthread.php?tid=30804

شكران لحضرتك