+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : التحقق من و جود item فى الlistbox (/showthread.php?tid=13950)
التحقق من و جود item فى الlistbox - أسامة - 27-11-15
التحقق من و جود 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
NextRE: التحقق من و جود item فى الlistbox - HASAN6.0 - 27-11-15
النصوص المشتركه في الاثنتين فقط
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
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)
RE: التحقق من و جود item فى الlistbox - أسامة - 27-11-15
(27-11-15, 01:00 AM)HASAN6.0 كتب : النصوص المشتركه في الاثنتين فقط
اذا كنت تريد ازالة التكرار من ListBox استعمل هذا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
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)
جزاك الله خير