Yêu cầu: Thiết kế form như hình 4.4. Form cho phép người sử dụng chọn một trong 3 màu chữ xanh (Blue), đỏ (Red), đen (Black) và chọn kiểu chữ là Đậm (Bold) hoặc Nghiêng (Italic) hoặc gạch chân (Underline). Các kiểu chữ có thể kết hợp với nhau.
88 Hình 4.4 Form với các điều khiển check box và Radio button
1. Thiết kế:
Form: + Text: Điều khiển Check box và Radio button Groupbox 1: + Text: Màu chữ
Groupbox 2 + Text: Kiểu chữ Radio button 1 + Name: rdbxanh + Checked: True + Text: Xanh Radio button 2 + Name: rdbdo
+ Text: Đỏ Radio button 3 + Name: rdbden
+ Text: Đen Check box 1 + Name: chkdam
+ Text: Đậm
Check box 2 + Name: chknghieng + Text: Nghiêng Check box 3 + Name: chkgc
+ Text: Gạch chân Textbox + Name: txtvbmau
89 + Font: Times New Roman, size 14
+ Text: This is a sample text
2. Code:
Để điều khiển màu chữ chúng ta thiết lập giá trị màu cho thuộc tính Fore color của textbox txtvbmau. Các màu này lấy trong lớp Color.
Ví dụ: điều khiển màu chữ thành Blue khi nút Xanh được chọn (sự kiện Checkedchange của rdbxanh
txtvbmau.ForeColor = Color.Blue
Muốn điều khiển kiểu chữ (Font Style) ta phải truy cập vào phương thức New của lớp Font. Lớp này nằm trong namespace System.Drawing. Để sử dụng Namespace này ta bổ sung thêm câu lệnh Imports vào đầu cửa sổ Code (bên trên dòng lệnh Public Class form1).
Imports System.Drawing
Thay đổi kiểu chữ, font chữ ta sử dụng cú pháp sau:
Tên_điều_khiển.Font = new Font (font_name, font_style) Trong đó font_name là tên một font hệ thống thuộc System.Drawing.Font; font_style thuộc System.Drawing.Font.Style. Font_Style có thể nhận các giá trị Bold (1), Italic (2), Regular (0), Strikeout (8) và Underline (4).
Ví dụ: muốn đổi kiểu chữ của textbox txtvbmau thành chữ đậm: txtvbmau.Font = New Font(txtvbmau.Font, FontStyle.Bold)
Muốn thêm (hoặc bớt) hiệu ứng font_style ta sử dụng các phép toán bit: OR (XOR).
Ví dụ: Thêm kiểu chữ đậm cho textbox txtvbmau:
txtvbmau.Font = New Font(txtvbmau.Font, txtvbmau.Font.Style Or _ FontStyle.Bold)
Bỏ hiệu ứng chữ đậm:
txtvbmau.Font = New Font(txtvbmau.Font, txtvbmau.Font.Style XOr _ FontStyle.Bold)
Code cho sự kiện checkedchange của chkdam: If chkdam.Checked = True Then
txtvbmau.Font = New Font(txtvbmau.Font, txtvbmau.Font.Style Or _ FontStyle.Bold)
90 txtvbmau.Font= New Font(txtvbmau.Font, txtvbmau.Font.Style Xor _ FontStyle.Bold)
End If