08-11-20, 04:13 AM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله و بركاته
كنت سابقا استخدم:
لكن الاسهل :
كامل الكود الخاص بالفورم:
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