(01-09-18, 06:40 AM)عابر سبيل 2 كتب :

عدلت قدر الإمكان

على الكود في الموضوع المشار إليه في مشاركتي السابقة

إعمل مشروع جديد

ثم ضع أداة TextBox ثم ضع هذا الكود

PHP كود :

Option Explicit

Dim names(5) As String

Private Sub Form_Load()
    names(0) = "ahmed"
    names(1) = "amal"
    names(2) = "muhammad"
    names(3) = "mahmoud"
    names(4) = "saeed"
    names(5) = "salah"
End Sub

' الربط مع دالة الإكمال التلقائي
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    AutoSel Text1, KeyCode
End Sub

' دالة الإكمال التلقائي
Function AutoSel(tb As TextBox, KeyCode As Integer)
    
    On Error Resume Next
    Select Case KeyCode
        '  8 = Backspace, 37=LeftArraw,   38=UpArraw, 39=RightArraw, 40=DownArraw
        ' 46 = Delete,    33=PageUp,     34=PageDown, 35=End,        36=Home
        Case vbEnter, 8, 37, 38, 39, 40, 46, 33, 34, 35, 36
        Exit Function
    End Select
    
    Dim Text As String
    Text = tb.Text
    
    Dim i As Long
    Dim Temp As String
    
    For i = 0 To UBound(names)
        Temp = Left(names(i), Len(Text))
        If LCase(Temp) = LCase(Text) Then
            tb.Text = names(i)
            tb.SelStart = Len(Text)
            tb.SelLength = Len(names(i))
        End If
    Next

End Function 


(01-09-18, 07:41 AM)عابر سبيل 2 كتب :

وجدت لك مثال في أحد المواقع أفضل مما أشرت له سابقا

I want to Auto Complete My Text box in Visual Basic 6

حمل المرفق الأخير في الموقع

Opps !.zip

(01-09-18, 07:41 AM)عابر سبيل 2 كتب :

وجدت لك مثال في أحد المواقع أفضل مما أشرت له سابقا

I want to Auto Complete My Text box in Visual Basic 6

حمل المرفق الأخير في الموقع

Opps !.zip