назад | содержание | вперед

Добавление событий

По умолчанию кнопка уже характеризуется некоторыми событиями, унаследованными от объекта-контейнера. Среди них следующие:

• click — щелчок левой кнопкой мыши
• DragDrop — перемещение объекта
• DragOver — перемещение объекта поверх другого объекта
• GotFocus — установка фокуса на объект
• KeyDown — нажатие на клавишу
• Keypress — нажатие и отпускание клавиши
• Keyup — отпускание клавиши
• LostFocus — потеря фокуса объектом
• MouseDown — нажатие кнопки мыши на объекте
• MouseMove — перемещение указателя мыши за границы объекта
• MouseUp — отпускание кнопки мыши на объекте

При необходимости можно добавить кнопке свои события. Сделать это достаточно просто. Для этого объявите новое событие с помощью следующего кода:

Public Event NewForm ()

Затем создайте процедуру активизации события, введя код, аналогичный указанному ниже:

Private Sub cbNewForm_Click()

RaiseEvent NewForm

End Sub

В приведенном примере при нажатии кнопки будет инициироваться дополнительное событие NewForm, к которому можно привязывать выполнение действий в приложении, в нашем случае вызов бланка формы.

Еще проще событие добавляется с помощью диалогового окна Add Procedure (рис. 14.4), открываемого командой Add Procedure (Добавить процедуру) меню Tools (Сервис).

Рис. 14.4. Диалоговое окно Add Procedure для ввода членов элемента управления ActiveX

Для ввода нового события в этом диалоговом окне необходимо лишь ввести имя события в поле Name (Наименование), установить переключатель Type (Тип) в положение Event (Событие) и выйти из диалогового окна Add Procedure, нажав кнопку ОК. При этом в код элемента управления будет введено объявление нового события. После этого следует ввести инициализацию события, как было указано выше при добавлении события вручную.

назад | содержание | вперед