Читайте также:
|
Иногда их называют радиокнопками, поскольку их функции очень похожи на кнопки переключения диапазонов в автомобильных радиоприемниках. Переключатели всегда должны находиться в группах, причем только один из переключателей группы может быть активизирован («нажат»). В исходном состоянии переключатель находится в выключенном состоянии, т.к. свойство 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
Дата добавления: 2015-10-26; просмотров: 110 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| Кнопка (Элемент CommandButton) | | | Список (Элемент ListBox) |