Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

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




Поделиться с друзьями:


Дата добавления: 2014-12-23; Просмотров: 337; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.011 сек.