Auto Complete combo Box(VB.NET Source Use API)
来源:互联网 发布:拳王阿里 百度云 编辑:程序博客网 时间:2024/04/28 07:35
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hWndLock As System.IntPtr) As Long
Private Structure SIZE
Dim cx As Long
Dim cy As Long
End Structure
Public Sub LockWindow(ByVal hwnd As System.IntPtr)
Dim lRet As Long
lRet = LockWindowUpdate(hwnd)
End Sub
Private Sub ReleaseWindow()
Dim lRet As Long
lRet = LockWindowUpdate(Nothing)
End Sub
Private Sub ComboDropdown(ByRef comboObj As ComboBox)
Call SendMessage(comboObj.Handle, CB_SHOWDROPDOWN, 1, 0&)
End Sub
Private Sub ComboRetract(ByRef comboObj As ComboBox)
Call SendMessage(comboObj.Handle, CB_SHOWDROPDOWN, 0, 0&)
End Sub
Public Function ComboAutoComplete(ByRef comboObj As ComboBox) As Boolean
Dim lngItemNum As Long
Dim lngSelectedLength As Long
Dim lngMatchLength As Long
Dim strCurrentText As String
Dim strSearchText As string
Dim sTypedText As String Const CB_LOCKED = &H255
Try
With (comboObj)
If .Text = Nothing Then
Exit Function
End If
Call LockWindow(.Handle)
If ((InStr(1, .Text, .Tag, vbTextCompare) <> 0 And Len(.Tag) = Len(.Text) - 1) Or (Left(.Text, 1) <> Left(.Tag, 1) And .Tag <> Nothing)) And .Tag <> CStr(CB_LOCKED) Then
strSearchText = .Text
lngSelectedLength = Len(strSearchText)
lngItemNum = .FindString(strSearchText)
ComboAutoComplete = Not (lngItemNum = -1)
If ComboAutoComplete Then
lngMatchLength = Len(.Items.Item(lngItemNum)) - lngSelectedLength .Tag = CB_LOCKED
sTypedText = strSearchText
.Text = .Text & Right(.Items.Item(lngItemNum), lngMatchLength)
.SelectionStart = lngSelectedLength
Dim Temp As Integer Temp = lngMatchLength .SelectionLength = Temp
'.Text = .Text & Right(.Items.Item(lngItemNum), lngMatchLength) .Tag = sTypedText
End If
ElseIf .Tag <> CStr(CB_LOCKED) Then
.Tag = .Text
End If
Call ReleaseWindow()
End With
Catch err As Exception
MsgBox(err.Message & err.StackTrace)
End Try
End Function
Private Structure SIZE
Dim cx As Long
Dim cy As Long
End Structure
Public Sub LockWindow(ByVal hwnd As System.IntPtr)
Dim lRet As Long
lRet = LockWindowUpdate(hwnd)
End Sub
Private Sub ReleaseWindow()
Dim lRet As Long
lRet = LockWindowUpdate(Nothing)
End Sub
Private Sub ComboDropdown(ByRef comboObj As ComboBox)
Call SendMessage(comboObj.Handle, CB_SHOWDROPDOWN, 1, 0&)
End Sub
Private Sub ComboRetract(ByRef comboObj As ComboBox)
Call SendMessage(comboObj.Handle, CB_SHOWDROPDOWN, 0, 0&)
End Sub
Public Function ComboAutoComplete(ByRef comboObj As ComboBox) As Boolean
Dim lngItemNum As Long
Dim lngSelectedLength As Long
Dim lngMatchLength As Long
Dim strCurrentText As String
Dim strSearchText As string
Dim sTypedText As String Const CB_LOCKED = &H255
Try
With (comboObj)
If .Text = Nothing Then
Exit Function
End If
Call LockWindow(.Handle)
If ((InStr(1, .Text, .Tag, vbTextCompare) <> 0 And Len(.Tag) = Len(.Text) - 1) Or (Left(.Text, 1) <> Left(.Tag, 1) And .Tag <> Nothing)) And .Tag <> CStr(CB_LOCKED) Then
strSearchText = .Text
lngSelectedLength = Len(strSearchText)
lngItemNum = .FindString(strSearchText)
ComboAutoComplete = Not (lngItemNum = -1)
If ComboAutoComplete Then
lngMatchLength = Len(.Items.Item(lngItemNum)) - lngSelectedLength .Tag = CB_LOCKED
sTypedText = strSearchText
.Text = .Text & Right(.Items.Item(lngItemNum), lngMatchLength)
.SelectionStart = lngSelectedLength
Dim Temp As Integer Temp = lngMatchLength .SelectionLength = Temp
'.Text = .Text & Right(.Items.Item(lngItemNum), lngMatchLength) .Tag = sTypedText
End If
ElseIf .Tag <> CStr(CB_LOCKED) Then
.Tag = .Text
End If
Call ReleaseWindow()
End With
Catch err As Exception
MsgBox(err.Message & err.StackTrace)
End Try
End Function
- Auto Complete combo Box(VB.NET Source Use API)
- Auto Complete combo Box(VB.NET Source Use API)
- Auto Complete combo Box(VB.NET Source Use API)
- Asp.net中创建Auto Complete Text Box 概述
- combo box
- Combo box
- Combo Box
- Combo Box
- Combo Box
- [VB]How to get index from combo box
- Combo Box的简单使用(Win32)
- auto complete
- auto-complete
- VC++ Combo Box/Combo Box Ex控件
- VC++ Combo Box/Combo Box Ex控件
- 两个combo box关联
- Combo Box 用法
- Combo Box控件
- 用推送技术动态更新页面内容
- 服务器推送(Server Push)
- 用InstallShield 进行 ASP 软件的打包和自动安装
- GB与BIG5内码转换COM的原代码(已经贴在开发者俱乐部了,在这里再贴一下)
- 键盘幽灵VB版
- Auto Complete combo Box(VB.NET Source Use API)
- The UDPChat Source(VB.NET)
- The MD4 Class.(C#)
- 随着鼠标的移动变换表格背景色
- 如何在程序中使用自己的库单元
- 给自己一个定位
- Delphi组件属性
- Delphi点滴
- Refactoring 读书笔记(繁体)