[سعود]

بسم الله الرحمن الرحيم 

السلام عليكم ورحمة الله و بركاته

كنت سابقا استخدم:

PHP كود :

Private Function found(uname As String) As Boolean
Dim i As Integer
For i = 0 To UBound(arr)
If arr(i) = uname Then
found = True
Exit Function
End If
Next
found = False
End Function 


لكن الاسهل :

PHP كود :

Private Function find(uname As String) As Boolean
find = InStr(Join(arr), uname)
End Function 


كامل الكود الخاص بالفورم:

PHP كود :

Dim arr(5) As String
Private Function found(uname As String) As Boolean
Dim i As Integer
For i = 0 To UBound(arr)
If arr(i) = uname Then
found = True
Exit Function
End If
Next
found = False
End Function
Private Sub cmdseach_Click()
MsgBox found(Text1.Text)
End Sub
Private Sub Form_Load()
arr(0) = "سعود"
arr(1) = "علي"
arr(2) = "ماضي"
arr(3) = "ناجح"
arr(4) = "عارف"
arr(5) = "hindi"
End Sub
Private Function find(uname As String) As Boolean
find = InStr(Join(arr), uname)
End Function