|
#2
lianyicq2015-01-08 12:19
combobox没能用简单方法实现，就是在输入的时候要求自动下拉，可能都要借助API的消息函数。这样比较麻烦。
如果用textbox和list的办法，简单易行。如下例，添加textbox和list  程序代码：Option Explicit Dim dataList(5) As String Sub ini() dataList(0) = "apologize" dataList(1) = "abuse" dataList(2) = "access" dataList(3) = "amusement" dataList(4) = "moment" dataList(5) = "movement" End Sub Sub setData() Dim i As Integer For i = 0 To 5 List1.List(i) = dataList(i) Next End Sub Private Sub Form_Load() ini setData Text1.Text = "" End Sub Private Sub List1_Click() Text1.Text = List1.Text End Sub Private Sub Text1_Change() List1.Clear Dim i As Integer For i = 0 To 5 If InStr(1, dataList(i), Text1.Text) <> 0 Then List1.AddItem dataList(i) Next End Sub |
如何设计ComboBox的过滤功能,直接能模糊查找
如何设计的过滤功能,直接能模糊查找
详细说就是直接在omboBox输入字符后,下拉框显示出来过滤后的结果
输入的字符可能是后面的几位,不是从头开始的