16-09-16, 10:35 PM
17-09-16, 12:07 AM
وعليكم السلام ورحمة الله وبركاته
أهلا أختي الكريمة , ضعي هذا الكود في زر :
أهلا أختي الكريمة , ضعي هذا الكود في زر :
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