Private Const CB_FINDSTRING As Long = &H14C ' 行首模糊匹配
Private Const CB_FINDSTRINGEXACT As Long = &H158 ' 完全匹配
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Private Sub Form_Load()
Combo1.AddItem "李海"
Combo1.AddItem "欧阳"
Combo1.AddItem "宋耀武"
End Sub
'试着在文本框中输入数字
Private Sub Text1_Change()
Debug.Print Timer
Combo1.ListIndex = SendMessage(Combo1.hwnd, CB_FINDSTRING, -1, Text1.Text)
End Sub
Private Const CB_FINDSTRING As Long = &H14C
Private Const CB_FINDSTRINGEXACT As Long = &H158
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Private Sub Form_Load()
Dim i As Long
For i = 0 To 100
Combo1.AddItem i
Next
End Sub
'试着在文本框中输入数字
Private Sub Text1_Change()
Combo1.ListIndex = SendMessage(Combo1.hwnd, CB_FINDSTRINGEXACT, -1, Text1.Text)
End Sub