Combobox 自动补全
来源:互联网 发布:mac 终端切换用户 编辑:程序博客网 时间:2024/04/30 06:59
Private Sub ComboBox1_KeyUp(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyUp
AutoCompleteKeyUp(ComboBox1, e)
End Sub
Public 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.Delete, Keys.Down, Keys.CapsLock
Return
End Select
'看看用户输入了些什么
strTyped = Combo.Text
intFoundIndex = Combo.FindString(strTyped)
'如果找到了的话……
If intFoundIndex >= 0 Then
'获取Combo下的匹配项
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
- Combobox 自动补全
- easyui之 combobox自动补全(多选)
- 使easyui中combobox控件支持本地数据自动补全
- 自动补全
- jquery自动补全
- 自动补全
- vim自动补全
- vim 自动补全
- vim自动补全
- javaScript自动补全
- 自动补全
- 自动补全2
- new自动补全
- apt自动补全
- 代码自动补全
- vim 自动补全
- jQuery 自动补全
- vim自动补全‘(’。。。
- Android中OpenMax的适配层
- flex DataGrid按数字顺序,字母,日期顺序排序
- EL表达式详解
- SqlDataAdapter Update(转自:http://blog.csdn.net/dingjinze/archive/2008/11/26/3379743.aspx)
- sql查询中子查询字段和 sql查询字段一样,的解决方法
- Combobox 自动补全
- python满足你需要的50个模块
- 项目管理培训信息
- 图像中运动目标跟踪
- 万年历 C++
- mysql连接数据库
- SqlDataAdapter.UpdateCommand 属性(极易出错的地方)(转自:http://blog.csdn.net/tsapi/archive/2011/03/29/6286654.aspx)
- 在MFC中应用CTreeCtrl控件的技巧 [vckbase]
- Windows下使用doxygen阅读和分析C/C++代码