تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال عن المقارنة في ListBox
#1
السلام عليكم ورحمة الله وبركاته

وكل عام وانتم بخير

هذا مثال للماقرنة في listBox1 عن الاسطر المكرر
وهو يقوم بارسال المكرر الى ListBox2
اريد تحديد السطر المكرر المكرر في ListBox1
وذلك بتلوينه أو تحديده بأي طريقة


الملفات المرفقة
.rar   COMPARENEW.rar (الحجم : 281.81 ك ب / التحميلات : 44)
الرد }}}}
تم الشكر بواسطة:
#2
وهناك ملاحظة اخرى

في المثال وبالتحديد في كود المقارنة في السطر

كود :
ListBox1.Items.Remove(DuplicateItem)

لحذف المكرر من ListBox1 لا يعمل
مع أنه في حالة الوصول لحل تلوينه يكفي وسيستغنى عن حذفة
الرد }}}}
تم الشكر بواسطة:
#3
وعليكم السلام ورحمة الله Smile

وأنت بخير أخي Wink

تفضل أخي .. إن شاء الله هذا يكون طلبك

كود :
Private Sub Deleted()
    Dim ItemsToDelete As New List(Of Integer)

    For I As Integer = 0 To ListBox1.Items.Count - 1
        For J As Integer = I + 1 To ListBox1.Items.Count - 1
            If Not ItemsToDelete.Contains(J) Then
                If LCase(ListBox1.Items(I)) = LCase(ListBox1.Items(J)) Then
                    ItemsToDelete.Add(J)
                End If
            End If
        Next
    Next

    Dim Count As Integer = 0

    For Each I As Integer In ItemsToDelete
        ListBox2.Items.Add(ListBox1.Items(I - Count))
        ListBox1.Items.RemoveAt(I - Count)

        Count += 1
        lblFileName2.Text = "Deleted: " & Count
    Next
End Sub

مرفق تصحيح الكود


الملفات المرفقة
.rar   COMPARENEW_Fix.rar (الحجم : 79.73 ك ب / التحميلات : 23)
الرد }}}}
تم الشكر بواسطة:
#4
اشكرك اخي العزيز

لكن لم يحدث اي تغيير عند الاستخدام

المطلوب هو تلوين السطر المكرر في listbox1

بعد ارساله الى ListBox2
الرد }}}}
تم الشكر بواسطة:
#5
لم اجد لسؤالي جواب
الرد }}}}
تم الشكر بواسطة:
#6
وعليكم السلام
يمكنك عمل هذا في الدات ListView اما ListBox لا اعرف
الرد }}}}
تم الشكر بواسطة:
#7
تفضل أخي Smile

كود :
Dim ItemsToDelete As New List(Of Integer)

Private Sub Deleted()
    ItemsToDelete.Clear()

    For I As Integer = 0 To ListBox1.Items.Count - 1
        For J As Integer = I + 1 To ListBox1.Items.Count - 1
            If Not ItemsToDelete.Contains(J) Then
                If LCase(ListBox1.Items(I)) = LCase(ListBox1.Items(J)) Then
                    ItemsToDelete.Add(J)
                End If
            End If
        Next
    Next

    Dim Count As Integer = 0

    For Each I As Integer In ItemsToDelete
        ListBox2.Items.Add(ListBox1.Items(I - Count))
        'ListBox1.Items.RemoveAt(I - Count)

        Count += 1
        lblFileName2.Text = "Deleted: " & Count
    Next

    ListBox1.Invalidate()
End Sub

Private Sub ListBox1_DrawItem(sender As System.Object, e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
    Dim MyBrush As SolidBrush = SystemBrushes.WindowText

    If ItemsToDelete.Contains(e.Index) Then
        MyBrush = New SolidBrush(Color.Red)
    End If

    Dim MyListBox As ListBox = CType(sender, ListBox)

    If MyListBox.Items.Count > 0 Then
        e.DrawBackground()
        e.Graphics.DrawString(MyListBox.Items(e.Index), e.Font, MyBrush, e.Bounds)
        e.DrawFocusRectangle()
    End If
End Sub


الملفات المرفقة
.rar   COMPARENEW_Fix_1.rar (الحجم : 145.09 ك ب / التحميلات : 17)
الرد }}}}
تم الشكر بواسطة:
#8
الف شكر اخي العزيز Motaz Alnuweiri

Shy

لكن لم يعمل معي الكود هل جربته اقصد
هل قمت بقراءة الملف المرفق في سؤالي وبعد استرخاج المكرر نفذت الكود الذ قمت بوضع لي
إقتباس :Dim ItemsToDelete As New List(Of Integer)

Private Sub Deleted()
ItemsToDelete.Clear()

For I As Integer = 0 To ListBox1.Items.Count - 1
For J As Integer = I + 1 To ListBox1.Items.Count - 1
If Not ItemsToDelete.Contains(J) Then
If LCase(ListBox1.Items(I)) = LCase(ListBox1.Items(J)) Then
ItemsToDelete.Add(J)
End If
End If
Next
Next

Dim Count As Integer = 0

For Each I As Integer In ItemsToDelete
ListBox2.Items.Add(ListBox1.Items(I - Count))
'ListBox1.Items.RemoveAt(I - Count)

Count += 1
lblFileName2.Text = "Deleted: " & Count
Next

ListBox1.Invalidate()
End Sub

Private Sub ListBox1_DrawItem(sender As System.Object, e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
Dim MyBrush As SolidBrush = SystemBrushes.WindowText

If ItemsToDelete.Contains(e.Index) Then
MyBrush = New SolidBrush(Color.Red)
End If

Dim MyListBox As ListBox = CType(sender, ListBox)

If MyListBox.Items.Count > 0 Then
e.DrawBackground()
e.Graphics.DrawString(MyListBox.Items(e.Index), e.Font, MyBrush, e.Bounds)
e.DrawFocusRectangle()
End If
End Sub

المعذرة ارجوا تحميل مثالي السابق وفيه مجلد باسم File فيه ملف نصي اقراءة بالبرنامج ونفذ المقارنه يعمد بشكل جيد
المطلوب بعد التنفيذ تحديد السطر الذي تكرر
او تلوينه
الرد }}}}
تم الشكر بواسطة:
#9
الملف الذي ذكرته لايوجد فيه أي سطر متكرر أخي !!
الرد }}}}
تم الشكر بواسطة:
#10
جرب المثال مع الملف

التكرار يكون من بعد الاحرف
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] سؤال حول DataGridView dubai.eig 1 29 اليوم, 12:26 AM
آخر رد: Amir_alzubidy
  سؤال فى حضور و انصراف الموظفين salah mansour 1 34 أمس, 11:25 PM
آخر رد: salah mansour
  سؤال بسيط في ال count khaled12345 2 71 27-05-17, 06:52 PM
آخر رد: khaled12345
  سؤال فى ثيمات المشروع salah mansour 10 115 27-05-17, 01:53 PM
آخر رد: محمود بكرى
  سؤال في ريبورت فيو زيد زينوبي 2 79 24-05-17, 01:29 PM
آخر رد: صبري زينوبي
  سؤال فى ادوات الديف اكسبريس salah mansour 4 90 24-05-17, 10:55 AM
آخر رد: salah mansour
  تضبيط ادخال المعلومات من Rich box الي ال ListBox khaled12345 2 58 22-05-17, 08:50 AM
آخر رد: khaled12345
  سؤال فى الداتا جريد salah mansour 1 100 21-05-17, 12:09 AM
آخر رد: boudyonline
  باستخراج من قاعدة البيانات بشرط listbox items rabeh.ram 0 72 19-05-17, 01:56 PM
آخر رد: rabeh.ram
  سؤال مهم فى اجازت العاملين salah mansour 8 143 17-05-17, 01:07 AM
آخر رد: salah mansour

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


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