23-10-13, 02:20 AM
23-10-13, 02:46 AM
السلام عليكم
تفضل
ولاتنسى جعل خاصية تعدد الاسطر فى التكست بوكس ممكنة
تفضل
ولاتنسى جعل خاصية تعدد الاسطر فى التكست بوكس ممكنة
كود :
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
24-10-13, 08:38 PM
(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