L b= Bound(Mang_bandau): U b= UBound(Mang_bandau)
6. Hộp danh sách (ListBox)
ListBox cho phép liệt kê một danh sách các giá trịđể người dùng có thể quan sát và lựa chọn một hoặc một vài giá trị trong danh sách này.
Mỗi giá trị trong ListBox luôn có chỉ số (Index) và nội dung (Text). Ø
ØThuộc tính:
Thuộc tính Mô tả Ghi chú
List Trả về danh sách các giá trị trong điều khiển Tham khảo Object Browser
ListCount Trả về số lượng các giá trị trong danh sách Kiểu Long ListIndex Trả về chỉ số của giá trị được chọn trong danh
sách Kiểu Variant
Text Trả về nội dung của giá trị được chọn Kiểu String Selected(i) Kiểm tra xem phần giá trị i có được chọn hay
không.
Kiểu Boolean Ø
ØPhương thức:
Phương thức Mô tả Ghi chú
AddItem Thêm một giá trị vào trong danh sách RemoveItem Xoá một giá trị khỏi danh sách Clear Xoá toàn bộ danh sách
Tham khảo trong Object Browser hoặc Help
Ví dụ: tạo UserForm với ListBox như hình dưới:
Hai OptionButton phục vụ cho việc lựa chọn loại hình dự án. Người dùng chỉ có thể chọn một trong hai điều khiển này.
Mã lệnh cho sự kiện Initialize (sự kiện này được tự động gọi khi chương trình nạp UserForm vào bộ nhớ của máy tính) của UserForm như sau:
Private Sub UserForm_Initialize() lstDsMc.AddItem "Mat cat dau", 0 lstDsMc.AddItem "Mat cat L/4", 1 lstDsMc.AddItem "Mat cat L/2", 2 lstDsMc.AddItem "Mat cat 3L/4", 3 lstDsMc.AddItem "Mat cat cuoi", 4 End Sub
Phương thức AddItem có hai tham số đều là tham số tuỳ chọn: tham số thứ nhất là nội dung của phần tử, tham số thứ hai là vị trí chèn phần tử trong danh sách.
Kết quả chạy chương trình như sau:
Để biết người dùng đã lựa chọn phần tử nào trong ListBox, viết mã lệnh cho sự kiện Click của ListBox như sau:
Private Sub lstDsMc_Click()
‘Hiển thị giá trị được chọn lên tiêu đề của UserForm Me.Caption = lstDsMc.Text
End Sub
Kết quả khi người dùng chọn một giá trị trong ListBox:
UserForm: usfMc
ListBox: lstDsMc
Yêu cầu: khi chương trình hoạt động, trong ListBox sẽ có một danh sách các mặt cắt được thống kê ra.