Question

VB Combobox 控件怎么样可以做到输入后自动匹配最靠近的关键字？

我做的软件，用的combobox控件，空间的内容是由另一个条件下赋值列表的。比如 ：
Combo1.AddItem "中国"
Combo1.AddItem "中非"
Combo1.AddItem "美国"
Combo1.AddItem "意大利"
Combo1.AddItem "菲律宾"
Combo1.AddItem "俄罗斯"

怎么样可以做到，在combo1输入框中，输入“中”时，自动将含有中字的项目匹配，如“国”和“非”分别字母是“g”和“f”开头，那么自动匹配“中”的第一个关键词项目是“中非”
同理，输入唯一美字开头时，会自动匹配“美国”
当然不止这几个汉字，我需要所有中英文标点符号都能自动匹配。

赏金100，请笑纳！

Answer 1

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 Integer
 
 Public 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 Sub

 Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
     iKeyCode = KeyCode
 End Sub

 Private Sub Form_Load()
Combo1.AddItem "中国"
Combo1.AddItem "中非"
Combo1.AddItem "美国"
Combo1.AddItem "意大利"
Combo1.AddItem "菲律宾"
Combo1.AddItem "俄罗斯"
 End Sub

上代码，请采纳。

Answer 2

找别人的现有插件可能更现实点，总感觉算法会很多。

Answer 3

首先右击ComboBox，选择属性，打开属性编辑器，然后按照下图操作

追问

首先，我的是VB6，功能没那么强大，没去学VS什么的，所以我的界面没这功能。
然后，我刚说了我的combobox控件的内容是由另一个条件下赋值列表的。
比如 ：
按下某按键，combo1就有以下内容。
Combo1.AddItem "中国"
Combo1.AddItem "美国"
有新办法实现关键词搜索吗？

追答

不好意思，我以为你说的是VB.NET，VB6只有在中学的时候接触过，现在已经不记得了，手头也没有能用的VB编译器，但是我觉得不管是什么语言，思想总是相通的，以下我就给出一点我的愚见：

1. 首先最好还是研究以下VB中提供的ComboBox是否具有.NET中的这些属性，不管怎么说这是最理想的解决方案。

2. 如果确实如你所说没有这么强大的功能，那么就要考虑通过代码来解决了

3. 捕捉ComboBox的TextChange事件（VB中的名字我不知道，但是我觉得肯定有），在该事件的句柄中处理自动完成（Auto Complete）的功能。

4. 首先获取输入的字符（假设变量名为key），然后在ComboBox的Items集合中查找以key开头的Item，（伪代码：Combo1.Find(item=>item.StartsWith(key))），然后把得到的Item赋值给ComboBox就可以了(伪代码：Combo1.Text = item)

十分抱歉，一般情况下我不会回答自己不熟悉的问题的，但是既然这条题目我已经误打误撞地进来了，我只能尽我所能提供一些思路了。

追问

感激不尽，我也是新手，你那么用心的回答，虽然感激，但是我看不懂，我自己思路有，但不知道怎么语言怎么组织。
在此谢谢了哈。