combobox的动态显示

Question

    combobox和list组合使用，如何做到在combobox里输入一个和多少英文或中文，list显示相像的选项，其它则不显示，或者有没有其它办法实现。

Answer 1

Const LB_FINDSTRING = &H18F
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Sub Combo1_Change()
   List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Combo1.Text))
End SubPrivate Sub Form_Load()
   List1.Clear
   List1.AddItem "Apples"
   List1.AddItem "Banana"
   List1.AddItem "Bread"
   List1.AddItem "山东"
   Text1.Text = ""
End Sub

Answer 2

我測試怎麼看不出結果？？？就好像我輸入一個"A",前字母為A的就會顯示在List裡，其它的則不顯示出來，如果輸入的數據與加載的數據不符，則list裡什麼都沒有

Answer 3

不好意思，還是不太明白，我的意思是就好比搜索（百度），如果你輸入一個字，list 就會顯示這個字相似的

Answer 4

楼主想要实现的是模糊查询吧，可以用Like比较运算符 如   if   abc   like   "*c "   =   true   then 
            msgbox   true 
     end   if 里面的通配符和DOS里面的通配符是一回事 
通过这个，就可以实现模糊查询了