[mazen55]

عندي 2 مصفوفة اريد جلب العناصر المتشابة بين الاثنين ووضعها بالتيكست بوكس

[ali.alfoly]

السلام عليكم
تفضل
ولاتنسى جعل خاصية تعدد الاسطر فى التكست بوكس ممكنة

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim lst_1() As String = {"على", "محمد", "احمد", "شعبان", "رجب", "سيد"}
        Dim lst_2() As String = {"شعبان", "ممدوح", "غريب", "على", "ناصر", "فوزى"}

        For Each nem As String In lst_1
            If (Array.IndexOf(lst_2, nem) <> -1) Then
                Me.TextBox1.Text += nem & vbNewLine
            End If
        Next

    End Sub

[mazen55]

(23-10-13, 02:46 AM)ali.alfoly كتب : السلام عليكم
تفضل
ولاتنسى جعل خاصية تعدد الاسطر فى التكست بوكس ممكنة

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim lst_1() As String = {"على", "محمد", "احمد", "شعبان", "رجب", "سيد"}
        Dim lst_2() As String = {"شعبان", "ممدوح", "غريب", "على", "ناصر", "فوزى"}

        For Each nem As String In lst_1
            If (Array.IndexOf(lst_2, nem) <> -1) Then
                Me.TextBox1.Text += nem & vbNewLine
            End If
        Next
مشكور جدا علي الرد تم حل المشكلة واسف علي التاخير في ردي النت في 100 مشكلة

    End Sub