VB.Net文本框自动完成所选项目

我有一个vb.net表单，上面有一个文本框，用于从数据库自动完成自定义集合。当用户从“自动完成”列表中找到所需的值时是否会触发事件

当用户按Enter键或双击列表中的某个项目时，会触发e.KeyCode=13的KeyDown事件。

请在vb.net中尝试此Aucomplete for Textbox*

---

简单的解决方案，谢谢！很棒的分享-永远不会得到！

Private Sub txtFilterBy_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles txtFilterBy.TextChanged
  txtSearch("Select Name From items", txtFilterBy)
End Sub

Public Sub txtSearch(ByVal strsql As String, ByVal textboxName As TextBox)
  con.ConnectionString = constr
  Excercise_Add.con.Open()
  Dim namesCollection As New AutoCompleteStringCollection()
  cmd = New MySqlCommand(strsql,con)
  da.SelectCommand = cmd
  read = cmd.ExecuteReader()
  While (read.Read)
    namesCollection.Add(read(0).ToString())
  End While
  textboxName.AutoCompleteMode = AutoCompleteMode.Suggest
  textboxName.AutoCompleteCustomSource = namesCollection
  textboxName.AutoCompleteSource = AutoCompleteSource.CustomSource
  con.Close()
End Sub