Події кнопок

Поза сумнівом, з усіх подій, пов'язаних з кнопками, найчастіше використовується Click. Нижче перераховані усі події кнопок.

MouseUp	OLECompleteDrag	OLEDragDrop	OLEDragOver
OLEGiveFeedback	OLESetData	OLEStartDrag	Click
KeyPress	DragDrop	KeyUp	DragOver
LostFocus	GotFocus	MouseDown	KeyDown
MouseMove

Ймовірно, на перших порах вас в основному цікавитиме подія Click. Саме воно найчастіше використовується для кнопок, а інші події знадобляться лише після того, як ви освоїте програмування на Visual Basic. З іншого боку, замість події Click можна скористатися подією MouseUp. У багатьох застосуваннях для Windows XP використовується саме ця подія, оскільки після натиснення кнопки миші користувач може передумати і відмовитися від збудження події Click.

Методи кнопок

Далі перераховані різні методи кнопок, найпоширенішим з яких є SetFocus.

Drag	Move	OLEDrag	Refresh
SetFocus	ShowWhatsThis	ZOrder

Метод SetFocus використовується для передачі фокусу конкретній кнопці. Наприклад, з його допомогою можна повернутися до кнопки за умовчанням після того, як буде закінчено редагування текстового поля на формі. В цьому випадку код виглядатиме так:

cmdMyButton.SetFocus

А розташовується він зазвичай в процедурі події Change текстового поля.

Робота з кнопками

Роботу з кнопками краще всього розглядати на практичному прикладі:

1. Якщо ви встановили приклади додатків з компакт-диска Visual Basic, відкрийте проект \MSDN98\98vs\1033\Samples\VB98\Controls\Controls.vbp

2

. Запустіть додаток командою Run > Start. У діалоговому вікні Control Examples натисніть кнопку Test Buttons - на екрані з'явиться форма, зображена на мал. 3.2.

3. Натисніть кнопку Змінити сигнал і простежите, як змінюється сигнал світлофора. Коли тестування буде завершено, натисніть кнопку Закрити.

Ми удосконалимо це застосування і помістимо зображення світлофора прямо на кнопку Змінити сигнал.

4. Завершіть роботу додатка командою Run > End.

5

Мал. 3.2. Робота з кнопками.

. Активізуйте форму Test Buttons, двічі клацнувши на рядку frmButton у вікні проекту.

6 Розтягніть кнопку Змінити сигнал до таких розмірів, щоб в ній могло поміститися зображення світлофора. У вікні властивостей Встановіть значення властивості Style кнопки в 1 - Graphical.

7. Задайте властивостям Visible елементів imgGreen, imgYellow і imgRed значення False.

8 Включите в процедуру події Load форми наступний фрагмент:

Private Sub Form_Load()

cmdChange.Picture = imgGreen.Picture

End Sub

9. Зміните код процедури ChangeSignal:

Private Sub ChangeSignal()

Static signal As Integer

signal = signal + 1

If signal > 3 Then signal = 1

Select Case signal

Case Is = 1

Case Is = 1

cmdChange.Picture = imgYellow.Picture

Case Is = 2

cmdChange.Picture = imgRed.Picture

Case Is = 3

cmdChange.Picture = imgGreen.Picture

End Select

End Sub

10. Ще раз Запустіть програму (Run > Start). Знову натисніть кнопку Test Buttons, щоб викликати однойменне діалогове вікно. Тепер при натисненні кнопки Змінити сигнал зображення світлофора на кнопці змінюється точно так, як і раніше змінювався малюнок над кнопкою.

Незважаючи на простоту, цей приклад наочно демонструє основні принципи роботи з кнопками. Ви можете включити в процедуру події Click інші команди, щоб кнопка виконувала додаткові завдання. Наприклад, якщо кнопка повинна закривати додаток, процедура Click виглядатиме так:

Private Sub cmdChangeSignal_Click()

End

End Sub

ПІДКАЗКА. Щоб помістити графічне зображення на кнопку, необхідно спочатку встановити значення властивості Style в 1 - Graphical. Потім у властивості Picture вказується ім'я графічного файлу з потрібним малюнком.