[أسامة]

التحقق من و جود item فى الlistbox اخر  اريد ان يتم التحقق ما بين الاثنان listbox اذا كان نفس ال item موجوده فى الاثنان اذا كان هناك item ليسه موجوده فى احد ال listbox يتم ازالتها من الاخرى

كود للتوضيح

كود :

       For Each item In ListBox2.Items
           If ListBox1.Items.Contains(item) Then
               MsgBox(0)
           Else
               ListBox1.Items.RemoveAt(item)
                          End If
       Next

[HASAN6.0]

النصوص المشتركه في الاثنتين فقط 

PHP كود :

For i = ListBox1.Items.Count - 1 To 0 Step -1
            If ListBox2.FindString(ListBox1.Items(i)) = -1 Then ListBox1.Items.RemoveAt(i)
        Next
        For i = ListBox2.Items.Count - 1 To 0 Step -1
            If ListBox1.FindString(ListBox2.Items(i)) = -1 Then ListBox2.Items.RemoveAt(i)
        Next 


اذا كنت تريد ازالة التكرار من  ListBox استعمل هذا

PHP كود :

Dim lst As New List(Of String)
        lst.AddRange(ListBox1.Items.Cast(Of String).ToArray)
        ListBox1.Items.Clear()
        ListBox1.Items.AddRange(lst.Distinct.ToArray) 


[أسامة]

(27-11-15, 01:00 AM)HASAN6.0 كتب : النصوص المشتركه في الاثنتين فقط 

PHP كود :

For i = ListBox1.Items.Count - 1 To 0 Step -1
            If ListBox2.FindString(ListBox1.Items(i)) = -1 Then ListBox1.Items.RemoveAt(i)
        Next
        For i = ListBox2.Items.Count - 1 To 0 Step -1
            If ListBox1.FindString(ListBox2.Items(i)) = -1 Then ListBox2.Items.RemoveAt(i)
        Next 


اذا كنت تريد ازالة التكرار من  ListBox استعمل هذا

PHP كود :

Dim lst As New List(Of String)
        lst.AddRange(ListBox1.Items.Cast(Of String).ToArray)
        ListBox1.Items.Clear()
        ListBox1.Items.AddRange(lst.Distinct.ToArray) 


جزاك الله خير