VB.NET中怎么添加自动查询功能，很多新手对此不是很清楚，为了帮助大家解决这个难题，下面小编将为大家详细讲解，有这方面需求的人可以来学习下，希望你能有所收获。
在窗体中添加如下方法实现VB.NET添加自动查询功能：
***个方法是AutoCompleteKeyUp，它将组合框和KeyEventArgs对象作为参数，需要在组合框的KeyUp事件中调用此方法；它全根据用户输入的内容选择最接近的内容；
第二个方法是AutoCompleteLeave，在激活组合框的Leave事件时调用，此方法仅提取用户最终选择的内容，按照组合框中的每个匹配内容修改其大小写。
VB.NET添加自动查询功能的代码如下：
计算
安全
数据库
网络和加速
企业服务
Private Sub AutoCompleteKeyUp(ByVal Combo As ComboBox, ByVal e As KeyEventArgs) Dim strTyped As String Dim intFoundIndex As Integer Dim objFoundItem As Object Dim strFoundText As String Dim strAppendText As String '忽略特殊键 Select Case e.KeyCode Case Keys.Back, Keys.Left, Keys.Right, Keys.Up, Keys.Down, Keys.Delete, Keys.CapsLock Return End Select '在查询列表中找到 strTyped = Combo.Text intFoundIndex = Combo.FindString(strTyped) If intFoundIndex >= 0 Then objFoundItem = Combo.Items(intFoundIndex) strFoundText = Combo.GetItemText(objFoundItem) strAppendText = strFoundText.Substring(strTyped.Length) Combo.Text = strTyped & strAppendText Combo.SelectionStart = strTyped.Length Combo.SelectionLength = strAppendText.Length End If End Sub Private Sub AutoCompleteLeave(ByVal Combo As ComboBox) Dim intFoundIndex As Integer intFoundIndex = Combo.FindStringExact(Combo.Text) Combo.SelectedIndex = -1 Combo.SelectedIndex = intFoundIndex End Sub Private Sub ComboBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyUp AutoCompleteKeyUp(ComboBox1, e) End Sub Private Sub ComboBox1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.Leave AutoCompleteLeave(ComboBox1) End Sub 看完上述内容是否对您有帮助呢？如果还想对相关知识有进一步的了解或阅读更多相关文章，请关注亿速云行业资讯频道，感谢您对亿速云的支持。
亿速云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
