Tham khảo tài liệu 'visual basic 6 vovisoft part 16', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Ta gọi PrintList để in những Items đã được selected trong Listbox lstNames như sau Private Sub CmdPrint_Click PrintList lstHexadecimal True EVENT LOG IN HEX End Sub Thêm Horizontal Scrollbar vào Listbox Có lẽ bạn để ý thấy cả hai Listboxes lstASCII và lstHexadecimal đều có Horizontal Scrollbar phía dưới. By default Listbox không có Horizontal Scrollbar. Muốn tạo ra nó bạn phải thêm hai câu dưới đây vào một Basic module Public Declare Function SendMessage Lib user32 Alias SendMessageA ByVal hwnd As Long ByVal wMsg As Long ByVal wParam As Long lParam As Any As Long Global Const LB-SETHORIZONTALEXTENT H194 Kế đó trong Sub Form_Load gọi Function SendMessage qua Application Programming Interface API để yêu cầu Listbox cho hiện ra Horizontal Scrollbar. Dim VLong As Long make a horizontal scrollbar for both Listboxes VLong SendMessage LB_SETHORIZONTALEXTENT ByVal 0 VLong SendMessage LB_SETHORIZONTALEXTENT ByVal 0 Bạn có thể download source code của program nầy để có đầy đủ. Trong bài tới ta sẽ học thêm các áp dụng còn lại của ListBox. Chương Bảy - Dùng List Controls bài thứ ba Listbox Search trong Text File Ta biết rằng ListBox có thể chứa rất nhiều hàng text con số hàng tối đa là 65535 . Ta đã quen với việc hiển thị content của một text file trong một Listbox. Ta đã dùng ListBox để display các Events sự cố xãy ra trong real-time. Giả dụ ta ghi lại tất cả mọi Events xãy ra trong real-time của một hệ thống an ninh tức là ta biết ai ra vào cửa nào lúc mấy giờ. Các Events nầy vừa đuợc log xuống một Text file vừa được cho vào một ListBox để luôn luôn hiển thị Event mới nhất ở cuối ListBox. Khi đã có mọi Events nằm trong ListBox ta có thể Search tìm kiếm xem một người nào đã đi qua những cửa nào của building bằng cách iterate qua từng hàng trong ListBox và nhận diện một Text Pattern hàng với Function InStr. Trong bài mẫu dưới đây ta đánh tên của một người vào trong TextBox rồi click nút Find và
