3. Nhóm điều khiển trình bày giao diện
3.4 Điều khiển OptionButton
Điều khiển OptionButton thường dùng trong những tình huống chọn lựa lấy một kết quả từ danh sách các lựa chọn có sẵn.
Có 2 thuộc tắnh quan trọng: Thuộc tắnh Caption
Để thiết lập nhãn hiển thị cho OptionButton Thuộc tắnh Value
Để xác định giá trị của OptionButton. Bằng True nếu OptionButton được chọn, trái lại là False.
Đặc biệt, một tập hợp các điều khiển OptionButton trên một Frame chỉ có thể
tồn tại nhiều nhất 1 điều khiển OptionButton nhận giá trị True. Vắ dụ sau đây sẽ
sử dụng các điều khiển OptionButton để thực hiện thiết kế 2 câu hỏi thi trắc nghiệm trên máy tắnh:
Trong đó: tên của các OptionButton trên Câu 1 và Câu 2 lần lượt đặt theo thứ
tự từ trên xuống dưới là: opt11, opt12, opt13 và opt21, opt22.
Đáp án đúng của câu 1 nếu Chọn opt12; đáp án đúng Câu 2 nếu chọn opt21 (hình dưới).
Bước 2: viết lệnh cho thủ tục đáp ứng sự kiện Click của nút Kết quả là:
Private Sub cmdKetqua_Click()
Dim ketqua As Integer
'---
'khởi tạo biến kết quả, ban đầu chưa trả lời đúng câu nào '
ketqua = 0
'--- 'nếu chọn opt12, đã trả lời đúng 1 câu '
If opt12.Value = True Then ketqua = ketqua + 1
'---
'nếu chọn opt21, đã trả lời đúng thêm 1 câu nữa '
If opt21.Value = True Then ketqua = ketqua + 1
'--- 'in kết quả
'
MsgBox "Bạn trả lời đúng " + Str(ketqua) + "/ 2 câu !"
End Sub