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

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

Зазвичай в програмах перевіряється властивість 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 кожного перемикача.