+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : كود استخراج العناصر المختلفة بين 2 ليست (/showthread.php?tid=17331)
كود استخراج العناصر المختلفة بين 2 ليست - samira20 - 16-09-16
السلام عليكم
عندي 2 ليست و اريد استخراج العناصر المختلفة بينهما الى ليست اخرى
جزاكم الله خيرا
RE: كود استخراج العناصر المختلفة بين 2 ليست - Ahmed_Mansoor - 17-09-16
وعليكم السلام ورحمة الله وبركاته
أهلا أختي الكريمة , ضعي هذا الكود في زر :
PHP كود :
Dim I As Integer
Dim H As Integer
Dim Is_Found As Boolean
List3.Clear
For I = 0 To List1.ListCount - 1
Is_Found = False
For H = 0 To List2.ListCount - 1
If Trim$(List1.List(I)) = Trim$(List2.List(H)) Then
Is_Found = True
Exit For
End If
Next
If Is_Found = False Then List3.AddItem Trim$(List1.List(I))
Next
For I = 0 To List2.ListCount - 1
Is_Found = False
For H = 0 To List1.ListCount - 1
If Trim$(List2.List(I)) = Trim$(List1.List(H)) Then
Is_Found = True
Exit For
End If
Next
If Is_Found = False Then List3.AddItem Trim$(List2.List(I))
Next