5.2. Флажок (элемент Check Boxes)

Флажки используются для отображения логических данных, т.е. данных, которые могут принимать только два значения – True или False (Да/Нет, Вкл/Выкл). Когда флажок находится «во включенном состоянии», на нем изображена галочка, если же флажок находится «в выключенном состоянии», квадратик будет пустым. Однако, имеет место и третье состояние, когда элемент управления «заморожен» и нет возможности изменить его состояние.

Состояние	Значения свойства Value
Unchecked (Сброшен)	0 (vbUnchecked )
Checked (Установлен)	1 (vbChecked )
Grayed (Недоступен)	2 (vbGrayed )

Рис. 5.2.1. Виды флажков

В нешний вид значка зависит от свойства Style. Если установить значение данного свойства равным 1 – Graphical, то вместо обычного квадратика с галочкой, флажок примет вид кнопки, состояние которой (утопленное или приподнятое) зависит от значения соответствующего логического параметра. Кроме того, на кнопку можно поместить какой-нибудь рисунок. На рисунке показано два графических флажка. Для выбора изображения, которое нужно поместить на кнопку, используются два свойства – Picture и DownPicture. Эти свойства определяют картинки, которые приводятся для каждого вида 2-х положений.

П ример 4. На форме находятся два флажка, изменяющих вид текста в верхнем поле. Первый флажок отображает текст в поле полужирным шрифтом, а второй – курсивным.

Private Sub Chk1_Click()

Txt1.FontBold = Chk1.Value

End Sub

Private Sub Chk2_Click()

Рис. 5.2.2. Форма к примеру 4 Txt2.FontItalic = Chk2.Value

End Sub

Private Sub Cmd1_Click()

End

End Sub

5.3. Переключатель (элемент Option Button)

Иногда их называют радиокнопками, поскольку их функции очень похожи на кнопки переключения диапазонов в автомобильных радиоприемниках. Переключатели всегда должны находиться в группах, причем только один из переключателей группы может быть активизирован («нажат»). В исходном состоянии переключатель находится в выключенном состоянии, т.к. свойство Value по умолчанию имеет значение False. Только один переключатель группы может находиться во включенном состоянии (Value - True). Другими словами, как только вы установите значение свойства Value одного из переключателей равным True, аналогичные свойства всех других переключателей данной группы сбрасываются в False.

Н абор логически связанных друг с другом переключателей нужно поместить в объект-контейнер, которым обычно является группа (рамка) – Frame.

В программе переключатели можно использовать двояко.

Если внутри контейнера помещается массив радиокнопок (вначале проектируется 1 радиокнопка, затем она копируется через буфер обмена и вставляются 2 и 3 радиокнопки), тогда выбор радиокнопки определяется в процедуре отклика по ее индексу, который передается в качестве параметра. Массив радиокнопок целесообразен при большом количестве кнопок, поскольку при этом формируется одна процедура отклика.

Вариант 1.

Private Sub optDrink_Click(Index as Integer)

Select Case Index

Case 0

MsgBox “Вы выбрали чай”

Case 1

MsgBox “Вы выбрали кофе”

Case 2

MsgBox “Вы выбрали какао”

End Select

End Sub

Если радиокнопки помещены в контейнер независимо (они не являются элементами массива) тогда отклик формируется от каждой кнопки. Этот Вариант удобен, когда количество радиокнопок минимально, т.е. равен 2.

Вариант 2.

Private Sub cmdStertDrink_Click()

If optSugar=True then

DoWithSugar

Else

DoWithoutSugar

End If

End Sub

Процедуры носят номинальный характер, т.е. они не приводятся целью фрагмента – показать подключение той или иной процедуры, в зависимости от включенной кнопки.

П ример 5. В текстовом окне должны отображаться выбранные компоненты операционной системы и процессора.

Dim i As Integer, j As Integer

Private Sub Form_Load()

i = 0

j = 0

Disp

End Sub

Private Sub Optoc_Click(Index As Integer)

j = Index

Disp

End Sub

Private Sub Opttex_Click(Index As Integer)

i = Index

Disp

End Sub

Sub Disp()

Lbl1.Caption = "Вы выбрали компьютер " & Opttex(i).Caption & _

" с системой "& Optoc(j).Caption

End Sub

Private Sub CmdExit_Click()

End

End Sub