Lọc danh sách trong VB6

Đó hỏi: Xin e-CHÍP chỉ giúp cho em cách làm sao cho khi đánh vào một text box từ nào đó thì list box sẽ hiện lên một danh sách có những từ gần giống (tương tự như từ điển Lạc Việt, KZot,...). Em đang xài VB6.

Đây trả lời: Để lọc danh sách phải sử dụng một query có điều kiện Where dựa trên nội dung của text box và field có dữ liệu cần lọc. Ví dụ, trong VB6, bạn tạo một project mới theo kiểu Standard EXE. Trên form Form1 mặc định, vẽ một text box có tên Text1, một list box có tên List1. Dữ liệu trong List1 được lấy từ database NWIND.MDB có sẵn trong thư mục cài đặt VB6. Bạn gõ vào đoạn mã 1.

Bạn nhấn F5 để chạy thử. Mỗi lần gõ một chữ cái, danh sách sẽ được lọc, đồng thời tự động tìm đến mục có từ đầu tiên (nếu có) giống với từ đang gõ (hình 1). Bạn lưu ý, trong dòng lệnh đầu tiên của thủ tục Text1_Change, ngay sau InStr(CompanyName là dấu phẩy, một dấu nháy đơn và một dấu nháy kép; ngay sau dấu & cuối cùng là một dấu nháy kép và một dấu nháy đơn.

Đoạn mã 1

Option Explicit
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal _
        hWnd As Long, ByVal wMsg As Integer, ByVal wParam As String, _
        lParam As Any) As Long
Const LB_FINDSTRING = &H18F
Private Sub Form_Load()
     TaoList ("")
End Sub
Private Sub Text1_Change()
    TaoList ("InStr(CompanyName,'" & Text1.Text & "') <> 0")
    List1.ListIndex = SendMessage(List1.hWnd, LB_FINDSTRING, Text1, ByVal Text1.Text)
End Sub
Sub TaoList(sDieuKien)
    Dim db As Database, rs As Recordset
    Dim sSQL As String
    Set db = OpenDatabase("C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB")
    sSQL = "SELECT CompanyName " & "FROM Customers " & _
               IIf(sDieuKien = "", "", "WHERE " & sDieuKien & " ") & _
               "ORDER BY CompanyName;"
    Set rs = db.OpenRecordset(sSQL)
    With List1
        .Clear
        If Not rs.EOF Then
             rs.MoveFirst
        End If
        Do While Not rs.EOF
            .AddItem rs!CompanyName
            rs.MoveNext
        Loop
    End With
End Sub

Hình 1 - Lọc danh sách và tự động tìm

Cài Windows XP và Vista trên cùng 1 máy

[Đầu trang]