关于一个自动下拉框的问题

Question

大家经常都会用到这样一个问题。当用户往一个TextBox（MultiLine = False)输入数据或文字时，自动在其下下方（或上方）弹出一个下拉框，下拉框中列出用户以前在此输入的一些数字（或文字串）。
如：我们经常去Google搜索，当我们准备在搜索框里面键入我们要搜索的东西的时候，其下方都会弹出一个下拉框，里面列出我们以前在此搜索过的东西。这种下拉框和普通的ComboBox是不同的：
1.它没有下拉按钮
2.它的下拉列表的右下角会有一个小三角形，用鼠标拖动它可以更改下拉框的大小注：如果各位喜欢分的话，我可以多开几个帖子，分我有得是。
谢谢！

Answer 1

哦，忘记说问题了，问题就是这个控件在哪个ocx里面，谢谢！

Answer 2

http://community.csdn.net/Expert/topic/3558/3558756.xml?temp=.4649317要分者请进！

Answer 3

注：我只要这个ocx，关于如何自动下拉，如何更改下拉列表的宽度，我都知道，只是不想费事去自己做一个控件。
谢谢！

Answer 4

我以前加过一个list,不过没有WINDOWS的好用
也在研究中^^^^^

Answer 5

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 Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const CB_SHOWDROPDOWN = &H14F
Private Const WM_SETREDRAW As Long = &HB&
Private Const CB_FINDSTRING As Long = &H14C&'iKeyCode目的:传递KeyDown事件中的KeyCode
Private iKeyCode As IntegerPublic Sub SearchCombo(InControl As Object)
    On Error GoTo errTrap
     
    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
errTrap:
     MsgBox Err.Description
End Sub
 Private Sub Combo1_Change()
    If iKeyCode <> vbKeyBack And iKeyCode <> vbKeyReturn Then
        SearchCombo Combo1
        SendMessageLong Combo1.hwnd, CB_SHOWDROPDOWN, True, 0
    End If
End SubPrivate Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
    iKeyCode = KeyCode
End SubPrivate Sub Form_Load()
    Combo1.AddItem "asqwed"
    Combo1.AddItem "fgtthgh"
    Combo1.AddItem "nfgftrtyr"
    Combo1.AddItem "werwerwe"
    Combo1.AddItem "ytrtyrtyrty"
    Combo1.AddItem "bfrthrtyrt"
    Combo1.AddItem "rewerwe"
    Combo1.AddItem "vsfsdf"
End Sub

Answer 6

Thank you lxcc(虫子|专注于抢分) 。这两个功能我早就知道怎么做，但还是非常谢谢你的参与。
我的问题在前面已经讲得很清楚了，请您看清楚，谢谢！

Answer 7

我知道你想要那种控件,很可惜!我用Spy++抓过,但是抓不到,不知道是个什么类

Answer 8

http://www.vbaccelerator.com/home/VB/Tips/Add_File_or_URL_AutoCompletion_to_TextBoxes_and_ComboBoxes/article.asp

Answer 9

Option ExplicitPublic Enum SHAutoCompleteFlags
   ' // Currently (SHACF_FILESYSTEM | SHACF_URLALL)
   SHACF_DEFAULT = &H0
   ' // This includes the File System as well as the rest of the shell 
   ' (Desktop\My Computer\Control Panel\)
   SHACF_FILESYSTEM = &H1
   ' // URLs in the User's History
   SHACF_URLHISTORY = &H2
   ' // URLs in the User's Recently Used list.
   SHACF_URLMRU = &H4
   ' // Use the tab to move thru the autocomplete possibilities 
   ' instead of to the next dialog/window control.
   SHACF_USETAB = &H8
   SHACF_URLALL = (SHACF_URLHISTORY Or SHACF_URLMRU)
   ' // This includes the File System 
   SHACF_FILESYS_ONLY = &H10                     '#if (_WIN32_IE >= = &H0600)
   ' // Same as SHACF_FILESYS_ONLY except it only includes directories, 
   ' UNC servers, and UNC server shares. 
   SHACF_FILESYS_DIRS = &H20                     
'#End If ' // (_WIN32_IE >= = &H0600)
   
   ' // Ignore the registry default and force the feature on.
   SHACF_AUTOSUGGEST_FORCE_ON = &H10000000
   ' // Ignore the registry default and force the feature off.
   SHACF_AUTOSUGGEST_FORCE_OFF = &H20000000
   ' // Ignore the registry default and force the feature on. 
   ' (Also know as AutoComplete)
   SHACF_AUTOAPPEND_FORCE_ON = &H40000000
    ' // Ignore the registry default and force the feature off. 
    ' (Also know as AutoComplete)
   SHACF_AUTOAPPEND_FORCE_OFF = &H80000000
End EnumPrivate Declare Function SHAutoComplete Lib "shlwapi.dll" ( _
   ByVal hwndEdit As Long, ByVal dwFlags As Long) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
   (ByVal hwndParent As Long, ByVal hwndChildAfter As Long, ByVal lpszClass As String, _
   ByVal lpszWindow As String) As LongPrivate Const S_OK = 0Public Function AutoComplete( _
      ByVal hWnd As Long, _
      ByVal eFlags As SHAutoCompleteFlags _
   )
Dim lR As Long
   lR = SHAutoComplete(hWnd, eFlags)
   AutoComplete = (lR <> S_OK)
End Function
Public Function GetComboBoxEdithWnd(ByVal hWnd As Long) As Long
   GetComboBoxEdithWnd = FindWindowEx(hWnd, 0, "EDIT", vbNullString)
End Function'To test the function, add a TextBox and a ComboBox to the Project's form. Name the TextBox "txtTest" and the ComboBox "cboTest". Then add this code to the project's form:Private Sub Form_Load()
   AutoComplete txtTest.hWnd, SHACF_FILESYS_ONLY
   AutoComplete GetComboBoxEdithWnd(cboTest.hWnd), SHACF_FILESYS_ONLY
End Sub在文本框内输入c:\ 然后就可以看到效果!

Answer 10

http://community.csdn.net/Expert/topic/3558/3558747.xml?temp=.5977747
http://community.csdn.net/Expert/topic/3563/3563685.xml?temp=.7456171来这两个帖报到吧,专为你送分的,呵呵

Answer 11

http://community.csdn.net/Expert/topic/3563/3563685.xml?temp=.7456171
http://community.csdn.net/Expert/topic/3563/3563680.xml?temp=.8227655
Sorry,错了,是这两个