Der er to måder. Du kan vælge i listboxen når hele ordet er indtastet i textboxen, eller du kan vælge i listboxen når noget af ordet er indtastet i textboxen.
Koden sættes ind i textboxens Text1_Change event:
Hele ordet:
Private Sub Text1_Change()
Dim X1 As Integer
For X1 = 0 To List1.ListCount - 1
If StrComp(List1.List(X1), Text1.Text, vbTextCompare) = 0 Then
List1.Selected(X1) = True
Exit For
End If
Next X1
End Sub
Noget af ordet:
Private Sub Text1_Change()
Dim X1 As Integer
For X1 = 0 To List1.ListCount - 1
If InStr(1, List1.List(X1), Text1.Text, vbTextCompare) > 0 Then
List1.Selected(X1) = True
Exit For
End If
Next X1
End Sub