让textbox变成具有url自动完成功能.txt

来自「VB技巧问答10000例,是一个教程」· 文本 代码 · 共 58 行

实 际 上 IE实 现 的 URL自 动 完 成 功 能 并 不 是 调 用 API实 现 的 。 你 可 以 使 用 一 个 下 拉 框 或 文 本 框 +列 表 框 的 方 式 实 现 。 
    下 面 是 一 个 用 下 拉 框 实 现 的 示 例 ： 
    ' *************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 
<END>     
Private Declare Function SHAutoComplete Lib "Shlwapi.dll" _ 
     (ByVal hWndEdit As Long, ByVal dwFlags As Long) As Long 
    这 个 函 数 可 以 满 足 你 的 要 求 。 
<END>