Кнопка CheckBox (Флажок) также находится на панели элементов управленияToolbox. Флажок может быть либо установлен (содержит «галочку»), либо сброшен (пустой). Напишем программу, которая управляет стилем шрифта текста, выведенного на метку Label. Управлять стилем будем посредством флажка CheckBox.

Используя панель инструментов, в форму поместим метку Label1 и флажок CheckBox1. Далее приведен текст программы управления этими объектами.

Управление стилем шрифта

[code]‘ Программа управляет стилем шрифта текста выведенного на метку
‘ Label посредством флажка CheckBox
Public Class Form1
Private Sub Form1_Load(ByVal senderAs System.Object,ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = «Флажок CheckBox»
CheckBox1.Text = «Полужирный»
CheckBox1.Focus()
Label1.Text = «Выбери стиль шрифта»
Label1.TextAlign = ContentAlignment.MiddleCenter
Label1.Font = New System.Drawing.Font(«Courier New», 14.0!)
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal senderAs System.Object,ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
‘ Изменение состояния флажка на противоположный:
If CheckBox1.Checked = TrueThen Label1.Font = New Drawing.Font(«Courier New», 14.0!, FontStyle.Bold)
If CheckBox1.Checked =False Then Label1.Font = New Drawing.Font(«Courier New», 14.0!, FontStyle.Regular)
End Sub
End Class[/code]

При обработке события Form1_Load задаем начальные значения некоторых свойств объектов Form1, Label1 и CheckBox1. Удобно получить пустой обработчик этого события, дважды щелкнув в пределах формы. Между строчками Private Sub Form1_Load и End Sub присваиваем начальные значения некоторым свойствам и запускаем методы объектов. Так, тексту флажка, выводимого с правой стороны, присваиваем значение «Полужирный».

Кроме того, при старте программы фокус должен находиться на флажке (CheckBox1.Focus ()), в этом случае пользователь может изменять установку флажка даже клавишей <Пробел>.

Текст метки — «Выбери стиль шрифта», выравнивание метки TextAlign задаем посередине и по центру (MiddleCenter) относительно всего того места, что предназначено для метки. Задаем шрифт метки Courier New (в этом шрифте все буквы имеют одинаковую ширину) размером 14 пунктов.

Изменение состояния флажка соответствует событию CheckedChanged. Чтобы получить пустой обработчик события CheckedChanged, следует дважды щелкнуть на элементе CheckBox1 вкладки Form1.vb (Design). Между соответствующими строчками следует записать (см. текст программы): если флажок установлен (т. е. содержит «галочку») Checked = True, то для >меткиLabel1 устанавливается тот же шрифт Courier New, 14 пунктов, но Bold, т. е. полужирный. Заметим, что в операторе условия после оператора присваивания (=) символ продолжения строки (_) необязателен.

Далее — следующая строчка кода: если флажок не установлен, т.е. CheckBox1.Checked=False, то шрифт устанавливается Regular, т.е. обычный. Очень часто эту ситуацию программируют, используя ключевое слово Else (Иначе), однако это выражение будет выглядеть более выразительно и понятно так, как написали мы.

Программа написана, нажмите клавишу <F5>. Проверьте работоспособность программы.