Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Visual Basic 6.0~01.doc
Скачиваний:
0
Добавлен:
01.05.2025
Размер:
21.23 Mб
Скачать

Властивості перемикачів

Перемикачі володіють безліччю властивостей, перерахованих далі.

Alignment

FontSize

Picture

Appearance

FontStrikethru

RightToLeft

BackColor

FontUnderline

Style

Caption

ForeColor

Tablndex

CausesValidation

Height

TabStop

Container

HelpContextID

Tag

DisabledPicture

hWnd

ToolTipText

DownPicture

Index

Top

DragIcon

Left

UseMaskColor

DragMode

MaskColor

Value

Enabled

MouseIcon

Visible

Font

MousePointer

WhatsThisHelpID

FontBold

Name

Widht

FontItalic

OLEDropMode

FontName

Parent

І знову найважливішою виявляється властивість Name; імена перемикачів зазвичай забезпечуються префіксом opt. Властивість Caption допомагає користувачеві визначити, для чого призначений перемикач. Популярна властивість Value надзвичайно корисно як в режимі конструювання, так і в режимі виконання. У режимі виконання можна перевірити його значення і визначити, в якому стані (встановленому або знятому) знаходиться перемикач. Властивість Value може набувати два значення: True і False. У режимі конструювання дозволяється встановити значення властивості Value одного з елементів в True - за умовчанням набуває значення False. Тоді цей (і тільки цей!) перемикач в цій групі буде встановлений при відкритті форми. Якщо задати значення True для властивості Value іншого перемикача групи, попередній перемикач автоматично знімається. У версії 6 у перемикачів з'явилася нова властивість Style. При стандартному значенні (0 - Standard) малюється звичайний перемикач, схожий на той, що зображений на початку цього розділу. Задаючи значення 1 - Graphical, ви доб'єтеся того, що перемикач виглядатиме як звичайна кнопка, але при цьому з групи все одно можна буде вибрати лише одну кнопку.

Події перемикачів

З декількох подій, пов'язаних з перемикачами, реально використовується тільки подія Click.

Click

KeyDown

MouseMove

OLEGiveFeedback

DblClick

KeyPress

MouseUp

OLESetData

DragDrop

KeyUp

OLECompleteDrag

OLEStartDrag

DragOver

LostFocus

OLEDragDrop

Validate

GotFocus

MouseDown

OLEDragOver

Зазвичай в програмах перевіряється властивість Value - по ньому можна дізнатися, в якому стані знаходиться перемикач. Визначивши стан, додаток виконує необхідні дії. Найчастіше властивість Value перевіряється в процедурі події Click кнопки, натиснутої після установки потрібного перемикача. Це дозволяє перевірити перед викликом наступної процедури деяку умову за допомогою конструкцій If.. End або Select Case.. End Select. Проте в деяких ситуаціях дія повинна виконуватися відразу після установки перемикача, і тоді доводиться перехоплювати подію Click. Розглянемо наступний приклад:

1. Запустіть проект Controls командою Run > Start.

2. Натисніть кнопку Option Buttons на формі Control Examples.

3. Клацніть на будь-якому перемикачі і подивитеся на напис у верхній частині форми. Властивість Caption напису змінюється в процедурі події Click відповідного перемикача.

4. Після перегляду результатів закрийте діалогове вікно кнопкою Close.

5. Завершіть додаток кнопкою Exit на формі Control Examples.

Щоб проглянути код цього прикладу, виконаєте наступні дії:

1. Двічі клацніть на формі frmOptions у вікні проекту, щоб активізувати її.

2. Двічі клацніть на перемикачі 486, щоб відкрити вікно програми. У вікні міститься наступний код:

Private Sub opt486_Click()

'присвоїти значення строкової змінної

strComputer = «486»

'викликати підпрограму

Call DisplayCaption

End Sub

Процедура події Click спочатку привласнює змінній strComputer значення 486, а потім викликає іншу процедуру, яка змінює текст напису. 3 Виберіть рядок (General) із списку в лівій верхній частині вікна (він називається списком об'єктів). Потім виберіть рядок (DisplayCaption) із списку процедур в правій верхній частині вікна. У вікні програми з'являється код процедури DisplayCaption:

Sub DisplayCaption()

' об'єднати текст напису з двома строковими змінними

lblDisplay. Caption = «Ви вибрали комп'ютер» & _

strComputer & «з системою» & strSystem

End Sub

Зверніть увагу - властивість Caption напису lblDisplay задається саме в цій процедурі, що викликається з процедури Click кожного перемикача.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]