[dasktop]

مرحبا


انا لدي مشروع ويحتوي على اداة 2 اداة listbox 

وكل اداة تحتوي على حروف وارقام 


كيف نقارن اذا محتويات listbox1  مثل محتويات listbox2 

انا كتبت  الكود التالي 

كود :

   If ListBox2.Text = ListBox1.Text Then
               MsgBox("good")
           Else
               MsgBox("no")
           End If

ولم ينجح ماهي المشكلة

[سعود]

ان كانت هناك طريقة مدعومة  فلا اعلم لكن المحاولة قد تلبي وقد حاولت بالكود التالي:

PHP كود :

  Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim same As Boolean
        For i As Integer = 0 To ListBox1.Items.Count - 1
            Dim t As String = ListBox1.Items(i)
            For ii As Integer = 0 To ListBox2.Items.Count - 1
                Dim tt As String = ListBox2.Items(ii)
                If tt <> t Then
                    same = False
                Else
                    same = True
                End If
            Next
        Next
        If same = True Then
            MsgBox("Same", MsgBoxStyle.Information, "")
        Else
            MsgBox("NOt same", MsgBoxStyle.Critical, "")
        End If
    End Sub 


[dasktop]

فنان اخي سعود

وسااسميك دكتور الفيوجال بيسك

[سعود]

(16-08-19, 02:42 PM)dasktop كتب : فنان اخي سعود

وسااسميك دكتور الفيوجال بيسك

هههههههه الله يسعدك