[dasktop]

مرحبا


انا لدي مشروع ويحتوي على اداتين ليست بوكس للمقارنة بينهما


وفي اليست بوكس الاول كلمات وارقام وفي الليست بوكس 2 كلمات وارقام



كتبت شرط اذا في ليست بوكس رقم 1 رقم او اسم غير موجود في ليست بوكس 2 يضهر رساله 

كود :

Dim p As Boolean
       For x5 As Integer = 0 To ListBox2.Items.Count - 1
           For x6 As Integer = 0 To ListBox2.Items.Count - 1
               For Each t In ListBox1.Items(x5)
                   For Each t2 In ListBox2.Items(x6)
                       Dim x As String = t
                       If (x.Contains(t2)) Then
                       Else
                           p = True
                       End If
                   Next
               Next
           Next
       Next
       If p = True Then
           MsgBox("no", MsgBoxStyle.Exclamation)
       End If

الشرط لايعمل الا اذا اول سطر مشابه لـ اول سطر ماهي المشكلة علماً تم استخدام دالة المقارنة string.Equals