تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ايجاد العناصر المتشابهة بين مصفوفتين
#1
عندي 2 مصفوفة اريد جلب العناصر المتشابة بين الاثنين ووضعها بالتيكست بوكس
الرد
تم الشكر بواسطة:
#2
السلام عليكم
تفضل
ولاتنسى جعل خاصية تعدد الاسطر فى التكست بوكس ممكنة

كود :
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
الرد
تم الشكر بواسطة: sooriaty03 , hoob computer , mazen55 , 3booody
#3
(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
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم