vb.NET中为组合框添加自动查询功能
来源:互联网 发布:网络社交英文怎么说 编辑:程序博客网 时间:2024/04/30 04:14
在窗体中添加如下方法:
第一个方法是AutoCompleteKeyUp,它将组合框和KeyEventArgs对象作为参数,需要在组合框的KeyUp事件中调用此方法;它全根据用户输入的内容选择最接近的内容;
第二个方法是AutoCompleteLeave,在激活组合框的Leave事件时调用,此方法仅提取用户最终选择的内容,按照组合框中的每个匹配内容修改其大小写。
代码如下:
本文来自: IT知道网(http://www.itwis.com) 详细出处参考:http://www.itwis.com/html/net/vbnet/20080124/888.html
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中为组合框添加自动查询功能
- .NET中为组合框添加自动查询功能
- .NET中为组合框添加自动查询功能
- 如何在ASP.NET中为DataGrid添加自动编号的功能
- VB.net中为DataGridView添加记录序号(转帖)
- Vb.net 利用数组进行组合查询
- 在Word中为标题样式添加自动编号功能
- 在Word中为标题样式添加自动编号功能
- 在Word中为标题样式添加自动编号功能
- VB.net组合框笔记
- 为VB应用程序添加英汉翻译功能
- VB.NET版 autoComplete 自动完成功能
- [VB.NET]如何自动为控件取名?
- vb组合查询
- VS2012C++中为组合框添加字符串问题
- Vb.Net程序设计:简单的查询条件组合(更新版)
- Vb.net下,利用数组进行“组合”查询
- VB.NET 机房收费系统之组合查询
- C语言读PCI
- sql refid
- vb.net控制TextBox控件只能输入数值型字符串
- 剑盟现在开放注册了
- 32位windows 支持大内存。
- vb.NET中为组合框添加自动查询功能
- 英文自我介绍 终身受益
- DateTimePicker中自定义时间或日期显示格式
- php 怎样读取word,excel,pdf,
- vb.net实现Datagridview控件显示数据库中的图片
- YC2440 COM0非调试和普通串口 解决方法
- 详解vb.net实现图片以二进制形式上传和读取到数据库
- 详解vb.net实现图片以二进制形式上传和读取到数据库
- 详解vb.net实现图片以二进制形式上传和读取到数据库