تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] البحث في المصفوفة vb6.0 (من الصعب الى السهل)
#1
بسم الله الرحمن الرحيم 
السلام عليكم ورحمة الله و بركاته
كنت سابقا استخدم:
PHP كود :
Private Function found(uname As String) As Boolean
Dim i 
As Integer
For 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 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 

الرد
تم الشكر بواسطة: sendbad100


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كود البحث داخل قاعدة البيانات Hussein alsaqqaf 9 3,606 15-02-17, 11:59 PM
آخر رد: Hussein alsaqqaf
  البحث في اللست فيو أبو عمر 1 1,250 26-03-16, 04:01 PM
آخر رد: rohaem

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


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