Экономическая информатика-стр.405

3.    В процедуры обработки событий UserForm_Click() и UserForm_DblCiick() введите код:

Private Sub UserForm_Click()

'Сообщение о щелчке мыши

UserForml.Caption = «Была нажата кнопка мыши»

End Sub

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.Return _ Boolean)

'Сообщение о двойном щелчке мыши UserForml. Caption = «Событие DblClick»

End Sub

4. Запустите программу на выполнение. После щелчка или двойного щелчка мыши в любом месте формы в ее заголовке будет появляться текстовое сообщение о соответствующем событии (рис. 8.17).

Рис. 8.17. Сообщение о событии

Обработка событий MouseDown и MouseUp

Синтаксическая конструкция процедур обработки событий MouseDown и MouseUp:

Private Sub Имя Элемента ynpaBneraw_MouseDown (Button As Integer, _

Shift As Integer, X As Single, Y As Single)

Private Sub Имя Элемента Управления _MouseUp (Button As Integer, _

Shift As Integer, X As Single, Y As Single)

где Имя Элемента Управления - имя элемента управления, вызвавшего событие;

MouseDown / MouseUp - обрабатываемое событие;

Button    - целое число, сообщающее о том, какие кнопки мыши нажаты;

Shift    - целое число, сообщающее о том, какие тп клавиш [Shift], [Control] или [Alt] нажать ;

X    - координата указателя мыши по горизон тали;

Y    - координата указателя мыши по вертик >

Далее приведен пример обработки событий MouseDown и MouseUp. Когда пользователь нажимает кнопку мыши, вызывается событие MouseDown, а процедура обработки этого события сообщает, какая клавиша мыши нажата, а также какая нажата комбинация управляющих клавиш [Shift], [Ctrl] и [Alt]. Эта процедура также сообщает координаты мыши.

' Пример кода процедуры обработки событий MouseDown и MouseUp Sub CommandButtonl_MouseDown(ByVal Button As Integer, _

ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Dim strButton As String 'для преобразованного значения параметра Button