5.1.1. Флажки и переключатели

Флажки (CheckBox) – это элементы управления, которые можно отмечать «галочками», выбирая из ряда опций одну или несколько.

П

ереключатели (OptionButton) – это элементы управления, которые можно отмечать точкой, выбирая один элемент из группы.

Важнейшим событием для этих элементов является событие Click, а основным свойством – его значение Value. С помощью этого свойства можно определить состояние объекта. Свойство Value может иметь три значения: 0 – не отмечен; 1- отмечен; 2 – отмечен, но недоступен. Последнее значение может быть установлено только программно.

Создание элементов управления

Флажки можно применять как самостоятельно, так и группами, а Переключатели только группами, поэтому их следует помещать в рамку. Для удобства управления эти элементы управления целесообразно объявлять как массив управляющих элементов.

Рассмотрим примеры применения этих элементов.

Пример 5.1. Написать текст программы для управления выводом графиков на экран c использованием элементов CheckBox и OptionButton.

Решение.

Создадим форму согласно рисунку (рис.5.1.).

В рамку “Схема ИЛИ” поместим массив элементов управления Check1: Check1(0), Check1(1), Check1(2).

В рамку “Схема И” поместим элемент управления Check2 и массив элементов управления Option1: Option1(0), Option1(1), Option1(2).

В

Рис. 5.1. Графики функций

обработчике события Click кнопки “Показать” запишем текст программы.

Const pi As Single = 3.14159

Dim x As Single, y1 As Single, y2 As Single, y3 As Single

---------------------------------------------------------------------------------------------------------

Private Sub Command1_Click()

Picture1.Cls

Picture1.Scale (-2 * pi, 5)-(2 * pi, -5)

Picture1.Line (-2 * pi, 0)-(2 * pi, 0): Picture1.Line (0, -5)-(0, 5)

For x = -2 * pi To 2 * pi Step 0.01

If Check1(0).Value Then y1 = Sin(x): Picture1.PSet (x, y1), vbGreen

If Check1(1).Value Then y2 = Sin(x + 2 * pi / 3): Picture1.PSet (x, y2), vbBlue

If Check1(2).Value Then y3 = Sin(x + 4 * pi / 3): Picture1.PSet (x, y3), vbRed

Next x

If Check2.Value Then

For x = -2 * pi To 2 * pi Step 0.1

If Option1(0).Value Then y1 = Cos(x): Picture1.PSet (x, y1), vbMagenta

If Option1(1).Value Then y2 = Tan(x): Picture1.PSet (x, y2), vbCyan

If Option1(2).Value Then y3 = Exp(x): Picture1.PSet (x, y3), vbYellow

Next x

End If

End Sub

Пример 5.2. Использование индекса элемента OptionButton (рис.5.2.).

В обработчике события Click элемента управления Option1 параметром является индекс (Index) активного элемента управления. Значение параметра обрабатывается с помощью оператора Select Case.

Private Sub Option1_Click (Index As Integer) Select Case Index Сase 0 MsgBox “Вы выбрали чай” Case 1 MsgBox “Вы выбрали кофе” Case 2 MsgBox “Вы выбрали какао” End Select End Sub