منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] بعد ازنكم احتاج كود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] بعد ازنكم احتاج كود (/showthread.php?tid=34246)

بعد ازنكم احتاج كود - محمد ايمن - 09-04-20

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


RE: بعد ازنكم احتاج كود - ابو ليلى - 09-04-20

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

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 


RE: بعد ازنكم احتاج كود - ابو روضة - 09-04-20

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

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


RE: بعد ازنكم احتاج كود - محمد ايمن - 09-04-20

(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)ابو روضة كتب :
زيادة على حل استاذ أبو ليلى تابع هذه الحلول


شكران لحضرتك