combobox 怎样实现输入字符上拉列表即出现匹配的项

combobox 怎样实现输入字符下拉列表即出现匹配的项
各位高手，最近我编了一个简易的浏览器，用到了combobox 我想在实现输入字符下拉列表即自动出现以前输入过的匹配的项
当在下拉列表中选中它时自动浏览指定网页，请高手指教，谢谢了~~~~

------解决方案--------------------

VB code


'This program needs a textbox ('Text1') on a form
Private Const SHACF_AUTOAPPEND_FORCE_OFF = &H80000000
Private Const SHACF_AUTOAPPEND_FORCE_ON = &H40000000
Private Const SHACF_AUTOSUGGEST_FORCE_OFF = &H20000000
Private Const SHACF_AUTOSUGGEST_FORCE_ON = &H10000000
Private Const SHACF_DEFAULT = &H0
Private Const SHACF_FILESYSTEM = &H1
Private Const SHACF_URLHISTORY = &H2
Private Const SHACF_URLMRU = &H4
Private Const SHACF_USETAB = &H8
Private Const SHACF_URLALL = (SHACF_URLHISTORY Or SHACF_URLMRU)
Private Const GW_CHILD = 5
Private Declare Sub SHAutoComplete Lib "shlwapi.dll" (ByVal hwndEdit As Long, ByVal dwFlags As Long)
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long




Private Sub Form_Load()
    SHAutoComplete GetWindow(Combo1.hwnd, GW_CHILD), SHACF_AUTOAPPEND_FORCE_ON Or SHACF_URLALL
End Sub

combobox 怎样实现输入字符上拉列表即出现匹配的项

相关推荐