Trong phần thực hành này, chúng ta sẽ đọc một số thuộc tính rất hay dùng của ListBox và hiển thị ra màn hình.
Thiết kế giao diện: Như phần trước nhưng thêm nút lệnh (đặt Name là cmdThongTin, Caption là "&Các thông tin thêm về ListBox" như hình 6) :
Giao diện chương trình khi chạy
Viết lệnh: Option Explicit
'/// Thực hiện thêm nội dung trong textbox vào Listbox khi người dùng '/// Click chuột vào nút "Thêm"
Private SubcmdThem_Click()
lstDanhSach.AddItem txtNewItem.Text, 0 '/// 0 --> Thêm vào đầu danh sách End Sub
'// Hiển thị giá trị một số thuộc tính quan trọng của ListBox
Private SubcmdThongTin_Click()
Debug.Print "Tổng số mục trong listbox là (lstDanhsach.ListCount) : " &
Debug.Print "Chỉ số của mục đang chọn là (lstDanhsach.ListIndex) : " &
lstDanhSach.ListIndex
Debug.Print "Nội dung của mục đang được chọn: lstDanhsach.Text = " &
lstDanhSach.Text
Debug.Print "Nội dung (ND) của mục thứ 3 là : lstDanhsach.List(2) = " &
lstDanhSach.List(2)
Debug.Print "Mục đầu tiên là : lstDanhsach.List(0) = " &lstDanhSach.List(0)
Debug.Print "Mục cuối là : lstDanhsach.List(lstDanhsach.ListCount-1) = " & _
lstDanhSach.List(lstDanhSach.ListCount - 1)
End Sub
'/// Gọi Phương thức Clear để xoá toàn bộ các mục trong ListBox
Private SubcmdXoa_Click() lstDanhSach.Clear
End Sub
Private SubcmdThoat_Click()
Kết quả khi chạy chương trình ứng với các lựa chọn ở hình 6:
Kết quả khi chạy chương trình
Ghi chú:
• Thuộc tính ListCount cho ta biết số mục hiện có trong ListBox, nếu không có mục nào thì thuộc tính này có giá trị là 0.
• Thuộc tính ListIndex cho ta biết chỉ số (lưu ý chỉ số được tính từ 0) của mục hiện đang được chọn (Mục có thanh sáng). Nếu không có mục nào được chọn thì nó có giá trị là -1.
• Thuộc tính Text cho ta nội dung của mục hiện đang được chọn. nếu không có mục nào được chọn (không có thanh sáng) thì thuộc tính này sẽ có giá trị là một xâu rỗng.
• Thuộc tính List (i) cho ta nội dung của mục có chỉ số là i. Như vậy muốn lấy giá trị của mục đang được chọn thì ngoài việc sử dụng thuộc tính Text, ta còn có thể viết như sau: lstDanhSach.List(DanhSach.ListIndex)
• Mục đầu tiên của Listbox có chỉ số là 0 và Mục cuối cùng có chỉ số là lstDanhSach.ListCount – 1.
• Trong trường hợp listbox có thể không chứa mục nào (Listbox rỗng) thì để tránh bị lỗi, trước khi thao tác, chúng ta nên kiểm tra thuộc tính ListCount xem có > 0 hay không (tức không rỗng hay không ?).