(轉)使用一個下拉框或文字框+列表框的方式實現類似IE位址列自動完成的功能

轉自"問專家:QA003240"

可以使用一個下拉框或文字框+列表框的方式實現。這樣做的好處是下拉框的內容不一定是URL，可以是任意內容。下面是一個用下拉框實現的示例：
    ' *************Declarations
    Private Declare Function SendMessage Lib "user32" _
     Alias "SendMessageA" _
     (ByVal hwnd As Long, _
     ByVal wMsg As Long, _
     ByVal wParam As Long, _
     lParam As Any) _
     As Long
    
    Private Const WM_SETREDRAW As Long = &HB&
    Private Const CB_FINDSTRING As Long = &H14C&
    
    *************Here is the sub that will implement auto search
    
    Public Sub SearchCombo(InControl As Object)
    On Error GoTo trap
    
    Dim StrPos As Long
    Dim lPos As Long
    Dim SearchStr As String
    
     If TypeOf InControl Is ComboBox Then
     StrPos = InControl.SelStart
     SearchStr = Left$(InControl.Text, StrPos)
    
     lPos = SendMessage(InControl.hwnd, CB_FINDSTRING, 0, ByVal SearchStr)
    
     If lPos >= 0 Then
     InControl.Text = InControl.List(lPos)
     InControl.ListIndex = lPos
     End If
    
     With InControl
     .SelStart = StrPos
     .SelLength = Len(InControl.Text)
     End With
     End If
     Exit Sub
    trap:
     MsgBox Err.Description
    End Sub
    
    '**************Implement it like this************
    Private Sub cboParent_Change()
     Call SearchCombo(cboParent) '<--pass the combo box to the sub by name
    End Sub 
    
此問題由vbfan回答。