Tác giả: Sưu tầm
Mô tả: Tự động lọc danh sách của listbox khi gõ
Add vào form 1 ListBox (List1), TextBox (Text1)
Mã: Chọn hết
- 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()
- With List1
- .AddItem "XP"
- .AddItem "Vista"
- .AddItem "Seven"
- .AddItem "VB6"
- .AddItem "VB.NET"
- .AddItem "PHP"
- .AddItem "Laptop"
- .AddItem "NetBook"
- .AddItem "Picture"
- End With
- End Sub
-
- Private Sub Text1_Change()
- List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
- End Sub