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

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

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

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

Ниже приведен пример процедуры обработки события MouseMove.

Private Sub UserForm_MouseMove(ByVal Button As Integer, _

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

Dim strX As String 'для преобразования значения параметра X Dim strY As String 'для преобразования значения параметра Y ' Преобразование целых значений параметров X и Y в строковые strX = CStr(X) strY = CStr(Y)

' Вывести на экран информацию о положении указателя мыши Label2.Caption = «X:» & strX & «,» & «Y:» & strY End Sub

Эта процедура обрабатывает событие и выдает информацию о положении указателя мыши.

8.5.3. ОБРАБОТКА СОБЫТИЙ КЛАВИАТУРЫ

Visual Basic поддерживает три события клавиатуры:

Событие    Описание

KeyPress    Генерируется, когда нажимается, а затем отпускается одна из символьных клавиш

KeyDown    Генерируется при нажатии клавиши

KeyUp    Г енерируется при отпускании клавиши

Обработка события KeyPress

Когда при выполнении программы пользователь нажимает клавишу клавиатуры, Windows вызывает событие KeyPress (нажатие клавиши) сначала для формы, которая имеет фокус, а затем для элемента управления, имеющего фокус. Синтаксическая конструкция процедуры обработки события KeyPress:

Private Sub Имя Элемента Управления__

KeyPress (KeyAscii as Integer)

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

KeyPress    - имя события;

KeyAscii    - код ASCII той клавиши, которая была нажата.

Событие KeyPress ассоциируется с символом нажатой клавиши. Когда происходит событие, VBA передает аргументу KeyAscii код ASCII той клавиши, которая была нажата. Этот символ становится доступным для процедуры обработки события.