Global Const DISABLE_COLOR = &H80000000
Global Const ENABLE_COLOR = &H80000005
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Sub ComboBoxChange(ByRef CB As ComboBox)
Dim iStart As Integer
Dim sString As String
iStart = CB.SelStart
If iStart = 0 Then
Exit Sub
End If
'申明API函数
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Const LB_FINDSTRING = &H18F '常数
Private Sub Form_Load()
Text1 = "" '令文本框为空
List1.AddItem "abc"
List1.AddItem "bike"
List1.AddItem "baby"
List1.AddItem "boy"
List1.AddItem "box"
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim intLong As Integer
If KeyCode = vbKeyBack Then Exit Sub
'申明API函数
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Const WM_SETREDRAW As Long = &HB&
Private Const CB_FINDSTRING As Long = &H14C&
Public Sub SearchCombo(InControl As Object)
On Error GoTo trap
Dim StrPos As Long
Dim lPos As Long
Dim SearchStr As String
If TypeOf InControl Is ComboBox Then
StrPos = InControl.SelStart
SearchStr = Left$(InControl.Text, StrPos)