2.6.3.Элементы управления - Переключатель


Элемент управления OptionButton (Переключатель) предлагает пользователю сделать выбор одного элемента из группы альтернативных возможностей. Переключатели размещенные в форме или в элементе управления Frame как в контейнере, являются взаимно исключающими. Основными свойствами переключателя являются свойство value, идентифицирующее его состояние, и свойство caption, задающее oтoбpaжaeмый при нем текст,

 

Пример. В следующем примере три переключателя расположены в рамке. Выбор переключателя вызывает смену курсора. У переключателей отображаются названия курсоров и их изображения. Для реализации данного проекта по требуются три файла курсоров: hnodrop.cur, hnwse.cur и larrow.cur, которые можно найти в каталоге C:\Windows\Cursors, а также эти же файлы, в формате GIF. Итак, конструируйте форму, на которой расположите рамку и три переключателя.

 

Используя окно Properties, установите значения свойств элементов управления, как показано в табл., а в модуле формы наберите код из листинга.

 

Элемент управления

Свойство

Значение

Рамка

Caption

Курсоры

Переключатель

Caption

Picture PicturePosition

Рука указывает вверх

Ссылка на файл harrow.gif

fmPicturePosionLeftCenter

Переключатель

Caption

Picture PicturePosition

Рука указывает на северо-запад

Ссылка на фай hnwse.gif

fmPicturePosionLeftCenter

Переключатель

Caption

Picture PicturePosition

Стандартный курсор

Ссылка на файл larrow.gif

fmPicturePosionLeftCenter

 

Свойство Picture позволяет дополнительно к тексту вывести в переключатель картинку. Свойство PicturePosition устанавливает местоположение картинки. Свойство MousePointer задает тип курсора. Если его значение равно fmMousePointerCustom, то можно создавать пользовательский курсор на основе CUR-файла, ссылка на который задается свойством MouseIcon.

 

Вместо группы переключателей допустимо также использование списка ListBox, у которого значение свойства ListStyle установлено равным fmListStyleOption, а значения свойства MultiSelect — равным  mMultiSelectSingle.


Private Sub UserForm_Initialize()
'Path = "C:\WINDOWS\Cursors\"
'MousePointer = fmMousePointerCustom
OptionButton1.Value = True
End Sub

Private Sub OptionButton1_Click()
MouseIcon = LoadPicture("C:\WINDOWS\Cursors\harrow.cur")
End Sub

Private Sub OptionButton2_Click()
Me.MouseIcon = LoadPicture("C:\WINDOWS\Cursors\Hnwse.cur")
End Sub

Private Sub OptionButton3_Click()
Me.MouseIcon = LoadPicture("C:\WINDOWS\Cursors\larrow.cur")
End Sub



ПОИСК
МОЯ КНОПКА
Контакты
МБОУ "Лицей им.Атякшева"

628260 г. Югорск, ул. Ленина 24,
ХМАО-Югра, Тюменская область
Телефон: 8 (34675)2-48-30
Факс: 8 (34675)2-48-30



89222596815 nady_er@mail.ru
Карта
sample map