VB.NET添加自动查询功能实现技巧概述

VB.NET编程语言的应用范围非常广泛，比如对文本的操作，或者在程序中添加各种文本框，对数据库的操作等等。今天大家将会了解到有关VB.NET添加自动查询功能的实现方法，以此加深大家对VB.NET这一语言的认知程度。#t#

网站建设哪家好，找创新互联公司！专注于网页设计、网站建设、微信开发、小程序制作、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了恒山免费建站欢迎大家使用！

在窗体中添加如下方法实现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  
 
 
 

VB.NET添加自动查询功能相关操作方法就为大家介绍到这里。

名称栏目：VB.NET添加自动查询功能实现技巧概述
转载来于：http://www.shufengxianlan.com/qtweb/news35/108185.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联