منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : استخراج الاسطر المتشابهة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
     السلام عليكم ورحمة الله وبركاته



اريد من اخوتي الكرام  كود لاستخراج الاسطر المتشابهة  في listbox1 ووضعا فيlistbox2 مثلا

   

                                             اكون شاكر لكم على مساعدتي  Shy
السلام عليكم اخي الكريم
تفضل هذا الكود سيقوم بفحص الليست بوكس الاولى وكل عنصر مكرر سيضعه في الليست بوكس الثانية
كود :
  For i As Integer = 0 To ListBox1.Items.Count - 1
           For j As Integer = ListBox1.Items.Count - 1 To (i + 1) Step -1
               If ListBox1.Items(j) = ListBox1.Items(i) Then
                   ListBox2.Items.Add(ListBox1.Items(j).ToString)
               End If
           Next
       Next
(01-02-20, 06:03 PM)ابراهيم ايبو كتب : [ -> ]السلام عليكم اخي الكريم
تفضل هذا الكود سيقوم بفحص الليست بوكس الاولى وكل عنصر مكرر سيضعه في الليست بوكس الثانية
كود :
  For i As Integer = 0 To ListBox1.Items.Count - 1
           For j As Integer = ListBox1.Items.Count - 1 To (i + 1) Step -1
               If ListBox1.Items(j) = ListBox1.Items(i) Then
                   ListBox2.Items.Add(ListBox1.Items(j).ToString)
               End If
           Next
       Next


مشكور  يااخي على المساعدة و النصيحة  Blush
الحمد لله والشكر لله
ولك اخي الكريم