Auto Complete combo Box（VB.NET Source Use API）

Auto Complete combo Box（VB.NET Source Use API）

ate 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