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

Điều khiển CheckBox (Hộp kiểm tra) được sử dụng để yêu cầu người sử dụng lựa chọn một hoặc nhiều lựa chọn (Cũng có thể là 0 có lựa chọn nào). Thuộc tính Value sẽ cho biết là check box có được chọn hay là không.

Thực hành: Đặt kiểu chữ cho hộp văn bản (Đậm, nghiêng, gạch chân) khi người dùng click vào các lựa chọn tương ứng, sau đó click nút "Đặt kiểu chữ".

Hướng dẫn: Vì kiểu chữ của văn bản có thể là Đậm, Nghiêng và gạch chân đồng thời, do vậy ta không thể đưa ra cho người dùng lựa chọn theo kiểu Radio option, mà ở đây phải đưa điều khiển Checkbox vào để người dùng có thể thực hiện nhiều lựa chọn.

Thiết kế giao diện:

Giao diện và kết quả của chương trình

Đặt các thuộc tính

Điều khiển	Thuộc tính : Giá trị
Label	+ Name: lblThongBao+ Caption: Gõ văn bản vào ô textbox ở dưới
TextBox	+ Name: txtThongBao+ MultiLine: True+ Scrolls : Both+ Text: để trống
CheckBox	+ Name: chkBold+ Value: 0 – Unchecked
CheckBox	+ Name: chkItalic+ Value: 0 – Unchecked
CheckBox	+ Name: chkUnderline+ Value: 0 – Unchecked
Command button	+ Name: cmdDatKieuChu+ Caption: Đặt kiểu chữ

Viết lệnh:

Option Explicit

'/// Thủ tục này xuất hiện khi người dùng click chọn hộp kiểm tra "Chữ đậm"

Private Sub chkBold_Click()

Me.Caption = "Hộp kiểm tra ""Đậm"" đã được chọn"

End Sub

Private Sub chkItalic_Click()

MsgBox "Hộp kiểm tra ""Nghiêng"" đã được chọn"

End Sub

Private Sub chkUnderline_Click()

MsgBox "Hộp kiểm tra ""Gạch chân"" đã được chọn"

End Sub

Private Sub cmdDatKieuChu_Click()

'/// Kiểm tra nếu người dùng chọn hộp kiểm tra nào thì đặt kiểu font tương ứng

If chkBold.Value = 1 Then'/// Người dùng đã chọn hộp "Chữ đậm"

txtThongBao.Font.Bold = True

Else '/// Người dùng đã không chọn hộp "Chữ đậm"

txtThongBao.Font.Bold = False '/// Đặt lại thành chữ thường (Không đậm)

End If

If chkItalic.Value = 1 Then

txtThongBao.Font.Italic = True

Else

txtThongBao.Font.Italic = False

End If

If chkUnderline.Value = 1 Then

txtThongBao.Font.Underline = True

Else

txtThongBao.Font.Underline = False

End If

End Sub

Ghi chú:

• Ngoài 2 giá trị thường dùng của thuộc tính Value là 1-Checked và 0-UnChecked, còn một giá trị thứ 3 dùng trong một số trường hợp là 2-Grayed để ám chỉ rằng bên trong nó có nhiều lựa chọn con khác và một số đã được chọn và một số thì không.
• Có thể viết lệnh ngay ở bên trong sự kiện click chuột của CheckBox.
• Thuộc tính Visible và Enable của CheckBox cũng được dùng để ẩn/hiện và cấm/cho phép tương tác với checkbox.
• Đối tượng con Font của điều khiển TextBox dùng để thay đổi kiểu chữ và kiểu font của hộp văn bản.