[كود] البحث في المصفوفة vb6.0 (من الصعب الى السهل)

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

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 