Tự động lọc danh sách khi gõ

[PhapSuXeko]

Thủ thuật: Tự động lọc danh sách khi gõ
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

1. 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
2. Const LB_FINDSTRING = &H18F
3.  
4. Private Sub Form_Load()
5.     With List1
6.         .AddItem "XP"
7.         .AddItem "Vista"
8.         .AddItem "Seven"
9.         .AddItem "VB6"
10.         .AddItem "VB.NET"
11.         .AddItem "PHP"
12.         .AddItem "Laptop"
13.         .AddItem "NetBook"
14.         .AddItem "Picture"
15.     End With
16. End Sub
17.  
18. Private Sub Text1_Change()
19.     List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
20. End Sub

[vb6.0]

tại textbox gõ :
Adodc1.Recordset.Filter = "Ten_phong= '" & Text1.Text & "'"
If text1.Text = "" Then: Adodc1.Refresh
ban thay ten_phong theo cái của bạn nhé
thế là ok rồi.Mình làm chương trình này hoài chạy ok luôn.
chúc thành công

[yringayun]

hjhj
chua thu sao ma bt day