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
