Điều khiển Option button chỉ cho phép người dùng thực hiện lựa chọn 1 trong số nhiều lựa chọn được đưa ra.
Thực hành:Viết chương trình thực hiện việc thiết lập màu của Form là Xanh, Đỏ và Vàng tương ứng khi người dùng chọn nút radio Xanh, Đỏ, Vàng.
Thiết kế giao diện:
Giao diện chương trình
Đặt tên cho các điều khiển
Điều khiển Tên (Name) Caption Option Button optXanh &Xanh Option Button optDo Đỏ Option Button optVang &Vàng Command button cmdDatMau Đặt màu Command button cmdThoat &Thoát Option Explicit
'/// Hiển thị thông báo khi người dùng click chọn nút Đỏ Private Sub optDo_Click()
Me.Caption = "Nút Đỏ đã được chọn" End Sub
Private Sub optXanh_Click()
Me.Caption = "Nút Xanh đã được chọn" End Sub
'/// Hiển thị thông báo khi người dùng click chọn nút Vàng
Private Sub optVang_Click()
Me.Caption = "Nút Vàng đã được chọn" End Sub
'/// Đặt lại màu nền của Form ứng với lựa chọn của người dùng
Private Sub cmdDatMau_Click()
IfoptXanh.Value = TrueThenMe.BackColor = &HFF0000'/// nền Màu Xanh
IfoptDo.Value = TrueThenMe.BackColor = &HFF& '// Nền Màu Đỏ
IfoptVang.Value = TrueThenMe.BackColor = &HC0FFFF'// Nền Màu Vàng
End Sub
Private Sub cmdThoat_Click()
End' /// Thoát
End Sub Ghi chú:
• Sự kiện Click của Option button xảy ra bất cứ khi nào người dùng click chuột, lúc đó thuộc tính value của nút được click tự động có giá trị là true, còn của các option khác thì có giá trị là false.
• Thuộc tính value của option cho ta biết là nút đó có được click hay không ?. True có nghĩa là được click và false có nghĩa là không.
• Tại một thời điểm, nếu có nhiều nút option trênFormthì chỉ có nhiều nhất là 1 option được click (chọn). Trong một số trường hợp nếu có nhiều nhóm chọn thì các option tương ứng phải được đặt thành các nhóm (bằng cách đặt chúng trong các frame) như H3.