VB.NET ComboBox 实现自动完成、自动过滤模糊查询的功能问题

rmini 2016-10-25 11:31:37

' 自动过滤函数
Private Sub AutoComplete(ByVal ComBox As ComboBox)
'With 函数的使用，不了解的可以上网查下
With ComBox
'首先清空自动完成自定义数据源，这样您可以在每次combobox的items项改变时，调用该函数
.AutoCompleteCustomSource.Clear()
'设置自动完成的完整字符串源，共有9种选项，这里选择了自定义源
.AutoCompleteSource = AutoCompleteSource.CustomSource
'设置组合框的文本完成行为，有四种选项，这里选择的是自动完成和列表框显示的组合
.AutoCompleteMode = AutoCompleteMode.SuggestAppend
'将items中所有的字符串添加到自定义数据源中
For Each item As String In .Items
.AutoCompleteCustomSource.Add(item)
Next
End With
End Sub

'这种方法是使用一个ComboBox 和ListBox的组合的方式实现，ComboBox命名为ComboBox1 ,ListBox是代码创建
' 在ComboBox1的TextChanged事件中执行操作如下
Private Sub ComboBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
'获取输入的字符串
Dim text As String = ComboBox1.Text.Trim()
'用以记录匹配字符串的个数
Dim index As Integer = 0
Dim listBox1 As New ListBox
' list_Pd是定义的全局布尔变量，用于判断是否创建了listbox控件
If list_Pd Then '如果已经创建
For Each contr As Control In Me.Controls '遍历窗体中的所有控件，寻找创建的listbox控件
If contr.Name = "list" Then
listBox1 = CType(contr, ListBox)
End If
Next
Else '如果没有创建，则调用Custom_ListBox()函数创建
listBox1 = Custom_ListBox(ComboBox1)
End If
'将listbox 控件所有项清空
listBox1.Items.Clear()
'将查询的结果添加到listbox 的items 中
For Each Str As String In ComboBox1.Items
'将所有的字符串全部转化为小写再判断，这样输入就不用分大小写了
If Not text = "" And Str.ToLower.Contains(text.ToLower) Then
index = index + 1
listBox1.Items.Add(Str)
End If
Next
'判断符合条件的项的个数，
If index = 1 Then
ComboBox1.Text = listBox1.Items(0)
ComboBox1.SelectionStart = Len(Me.ComboBox1.Text)
'ComboBox1.SelectedText = Trim(Me.ComboBox1.Text)
listBox1.Visible = False
ElseIf index > 1 Then
listBox1.Visible = True
Else
listBox1.Visible = False
End If
End Sub
'自动创建listbox控件的函数
Private Function Custom_ListBox(ByVal ComBox As ComboBox) As ListBox
Dim Listbox As New ListBox
Dim point As Point
point.X = ComBox.Location.X
point.Y = ComBox.Location.Y + ComBox.Height
With Listbox
.Name = "list" '设置控件名称
.Location = point '设置控件的位置，放在combobox的下面
.Width = ComBox.Width '控件的宽度，与combobox的宽一样
.Height = ComBox.Height * (ComBox.Items.Count + 1) '高度
.Items.Clear()
.Visible = False
End With
AddHandler Listbox.Click, AddressOf ListBox_Click '添加点击事件 ListBox_Click（）
Me.Controls.Add(Listbox) '这步重要将控件添加到窗体中。没有这句将不会显示listbox控件
list_Pd = True
Return Listbox
End Function
'创建的listbox的点击事件函数
Private Sub ListBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
CType(sender, ListBox).Visible = False
ComboBox1.Text = CType(sender, ListBox).SelectedItem
End Sub

以上是从网上百度得到的，但是有两个问题：
1是假设数据库中有“北京市朝阳区”，当我输入朝阳区的时候（即输入超过2个字），combobox自动显示为北京市朝阳区阳区，这显然不是想要的，该怎么修改？
2是假设数据库中有“北京市朝阳区”，当我输入朝的时候（即输入只有1个字），combobox自动显示为北京市朝阳区，这下是对的，但是此时没法用backspace键删除，我想可以用backspace键删除，该怎么修改？
3是当combobox得到正确的项后，怎么让combobox的字符设置为全部选中状态，应该修改哪里？
(以上环境是vs2010 vb.net)

...全文