Переключатель (элемент 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