تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال
#1
كيف يمكن خذف الصفوف المتشابهة المكررة باللست بوكس مثال ( السبت - الاحد ) , ( الاحد - السبت )
الرد }}}
تم الشكر بواسطة:
#2
ياليت مزيد من التفاصيل:
هل البيانات من جدول في القاعدة؟
ان كانت من جدول في قاعدة بيانات فيمكنك صياغة جملة استعلام SELECT DISTINCT Syntax
الرد }}}
#3
استخدم الكود التالي اذا كنت تريد حذف عناصر ليست بوكس المتكررة

1- ضع زر اسمه Button1 على الفورم
2- انسخ والصق الكود التالي

كود :
 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        checkforduplicate()
    End Sub

    Sub checkforduplicate()
        For a As Integer = 0 To ListBox1.Items.Count - 1
            For b As Integer = a + 1 To ListBox1.Items.Count - 1
                If ListBox1.Items(b) = ListBox1.Items(a) Then
                    ListBox1.Items.RemoveAt(b)
                    GoTo l1
                End If
            Next
        Next
        Exit Sub
l1:
        checkforduplicate()
    End Sub

الرد }}}
#4
السلام عليكم ورحمة الله وبركاته
اخوتي الكرام
بارك الله بكم جميعا
من باب الاستزادة في المعرفة وتنويع الطرق اليكم 3 اكواد اخرى
الكود الاول
كود :
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       'حلقتين متعاكستين
       For i As Integer = 0 To ListBox1.Items.Count - 2
           For X As Integer = ListBox1.Items.Count - 1 To i + 1 Step -1
               If ListBox1.Items(i).ToString.ToLower() = ListBox1.Items(X).ToString().ToLower() Then
                   ListBox1.Items.RemoveAt(X)
               End If
           Next
       Next
   End Sub
الكود الثاني
كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       For i As Integer = ListBox1.Items.Count - 1 To 0 Step -1
           If ListBox1.FindStringExact(ListBox1.Items(i)) <> i Then
               ListBox1.Items.RemoveAt(i)
           End If
       Next
   End Sub
الكود الثالث وله عيب بأنه حساس لحالة الاحرف (الانكليزي )
كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       '  انشاءليست من عناصر الليست بوكس بدون تكرار
   Dim items = ListBox1.Items.Cast(Of String)().Distinct().ToArray()
       ListBox1.Items.Clear()
   '   اضافة العناصر الى الليست من جديد    
       For Each item In items
           Me.ListBox1.Items.Add(item)
       Next
   End Sub
ملاحظة : الاكواد الثلاثة عند تعاملها مع النص العربي ستفرق بين الالف والعادية والالف الممدودة والمهموزة ويجب ان يكون العنصر المكرر مطابق تماما حتى يتم خذفه
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم