Sử dụng điều khiển Option

Đ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

'/// Hiển thị thông báo khi người dùng click chọn nút Xanh

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()

If optXanh.Value = True Then Me.BackColor = &HFF0000 '/// nền Màu Xanh

If optDo.Value = True Then Me.BackColor = &HFF& '// Nền Màu Đỏ

If optVang.Value = True Then Me.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ên Form thì 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.
• Me.Caption hay viết Form1.Caption để đặt tiêu đề cho Form.

Nhiều nhóm lựa chọn