怎样实现Combo下拉框的自动搜索？

Question

proking(小卢)　:
请问是那个API啊？

Answer 1

有写好的控件，我下载了，觉得不打好用，不知合不合你用。要的话，MAIL给你。

Answer 2

谢谢了，anglerchan(渔人丸)　，但是我希望能有源码！

Answer 3

是有源码啊，不是完整的控件，是不用修改就能运行的源程序，在鬼佬的网站上DOWN的。可能对你有用。

Answer 4

在一个窗体上放一个 combo 控件，就可以运行了！
Option Explicit
Private Const CB_FINDSTRING = &H14C
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As LongPrivate Sub Combo1_Change()
On Error Resume Next
    Dim Search As String, listIndex As Long
    
    Search = Combo1.Text
    If Len(Search) > 0 Then
        listIndex = SendMessage(Combo1.hwnd, CB_FINDSTRING, -1, ByVal Search)
        Combo1.listIndex = listIndex
    Else
        Combo1.listIndex = 0
    End If
    Combo1.SelStart = Len(Search)
    Combo1.SelLength = Len(Combo1.Text)
End SubPrivate Sub Form_Load()
Dim i As Integer
With Combo1
    For i = 0 To 100
        .AddItem i & "abc"
    Next
End With
End Sub

Answer 5

sc是要搜索的文本，以下代码是增量查询
For i = 0 To Combo1.ListCount - 1
If sc = Left(Combo1.List(i), Len(sc)) Then
Combo1.ListIndex = i
Exit For
End If
Next i