Использование элементов Флажок, Переключатель, Рамка

Элемент Флажок (CheckBox) дает возможность пользователю осуществить выбор типа Да / Нет. Можно создать группу элементов. Все флажки в этой группе будут независимы друг от друга. Основное свойства Флажка — Value. Оно равно True, если флажок установлен, и False, если флажок не установлен. Свойство Caption содержит надпись, которая выводится рядом с элементом. При изменении свойства Value возникает событие Click.

Элемент Выключатель (ToggleButton) предназначен для тех же целей, что и Флажок. Они отличаются только внешним видом. Выключатель имеет вид кнопки, которая может находиться в двух состояниях: отпущена или утоплена. На поверхности выключателя можно поместить рисунок. Для этого используется свойство Picture.

Переключатели (.элементы OptionButton) обычно объединяются в группу. Они предназначены для выбора одного из нескольких взаимоисключающих значений. При выборе пользователем нужного элемента остальные элементы в группе автоматически устанавливаются в состояние «не выбран». Для объединения переключателей в группу используются элементы-контейнеры, например Рамка. Если группа одна, то контейнером может служить форма.

Основное свойства Переключателя — Value. Оно равно True, если позиция выбрана (помечена точкой), и False, если не выбрана. Основное событие элемента Переключатель — Click. Оно возникает при изменении значения свойства Value. В группе переключателей событие возникает только для того элемента, чье значение становится True.

Элемент Рамка (Frame) используется в приложениях для создания визуальных или функциональных групп элементов, чаще всего переключателей и флажков. Он относится к элементам-контейнерам, т. е. к элементам, содержащим другие элементы. Например, поместим кнопку в элемент Рамка. Тогда кнопка прикрепляется к краям рамки. Кнопка будет перемещаться, когда перемещается рамка, а свойства Тор и Left кнопки будут определены относительно рамки. Удаляя контейнер, вы удаляете и все элементы, содержащиеся в нем. Создавая группу элементов, сначала поместите в форму элемент Рамка, а потом — необходимые элементы.

Основным свойством элемента Рамка является Caption. Оно содержит текст, который выводится в левом верхнем углу рамки и обычно является названием группы элементов.

Пример 10.31.

Создадим форму, приведенную на рис. 10.6.

Рис. 10.6. Форма, создаваемая в примере 10.31.

На форме имеются два элемента Надпись, две рамки и четыре переключателя. Надпись Label2 используется для вывода текущей даты и времени в зависимости от установленных значений переключателей. Значение изменяется при выборе переключателя.

Решение

Процедуры обработки события Click переключателей и события Initialize формы приведены ниже. Для получения текущей даты и времени используется функция Now, для вывода значения — различные форматы.

Private Sub OptionButtonl_Click () 'Да у даты If OptionButton3 Then.

Label2 = Format (Now, «General Date»).

Else.

Label2 = Format (Now, «Short Date»).

End If.

End Sub.

Private Sub OptionButton2_Click () 'Нет у даты If OptionButton3 Then.

Label2 = Format (Now, «Long Time»).

Else.

Label2 = «» .

End If.

End Sub.

Private Sub OptionButton3_Click () 'Да у времени If OptionButtonl Then.

Label2 = Format (Now, «General Date»).

Else.

Label2 = Format (Now, «Long Time»).

End If End Sub.

Private Sub 0ptionButton4_Click () 'Нет у времени If OptionButtonl Then.

Label2 = Format (Now, «Short Date»).

Else.

Label2 = «» .

End If End Sub.

Private Sub UserForm_Initialize ().

OptionButtonl.Value = True 0ptionButton3. Value = True Label2 = Format (Now, «General Date»).

End Sub.

Пример 10.32

Решим задачу из примера 10.31, используя вместо переключателей флажки. Создайте форму, приведенную на рис. 10.7.

Рис. 10.7. Форма, создаваемая в примере 10.32

Форма содержит два элемента Надпись и два флажка (CheckBoxl для установки даты и ChcckBox2 для установки времени).

Решение

Так как при изменении значения любого флажка нужно выполнять одни и те же действия, они оформлены в виде отдельной процедуры ИзменитьЗиачеиие, которая вызывается в процедурах обработки события Click для флажков.

Private Sub UserForm_Initialize ().

CheckBoxl.Value = True CheckBox2. Value = True Label2 = Format (Now, «General Date»).

End Sub.

Private Sub CheckBoxl_Click ().

ИзменитьЗначение End Sub.

Private Sub CheckBox2_Click ().

ИзменитьЗначение End Sub.

Public Sub ИзменитьЗначение ().

If CheckBoxl And CheckBox2 Then.

Label2 = Format (Now, «General Date»).

Elself CheckBoxl And Not (CheckBox2) Then Label2 = Format (Now, «Short Date»).

Elself Not (CheckBoxl) And CheckBox2 Then Label2 = Format (Now, «Long Time»).

Elself Not (CheckBoxl) And Not (CheckBox2) Then Label2 = «» .

End If End Sub.