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

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

'Проверка значения SHIFT с помощью оператора Select Case 'для выяснения того, какие из клавиш [Shift], [Ctrl] и [Alt] нажаты. 'Присвоение результата проверки строковой переменной strShift

Select Case Shift Case 0 strShift = «»

Case 1 strShift = «Shift»

Case 2 strShift = «Ctrl»

Case 3 strShift = «Shift + Ctrl»

Case 4 strShift = «Alt»

Case 5 strShift = «Shift + Alt»

Case 6 strShift = «Ctrl + Alt»

Case 7

strShift = «Shift + Ctrl + Alt»

End Select

'Проверка значения BUTTON с помощью оператора Select Case 'для определения комбинации нажатых клавиш мыши. 'Присвоение результата проверки строковой переменной strButton.

Select Case Button Case 0 strButton = «»

Case 1 strButton = «Left»

Case 2 strButton = «Right»

Case 3

strButton = «Left + Right»

Case 4 strButton = «Middle»

Case 5

strButton = «Left + Middle»

Case 6

strButton = «Right + Middle»

Case 7 strButton = «All»

End Select

'Сообщить о вызове соответствующего события Label 1.Caption = «Событие MouseDown»

'Сообщить о том, какая комбинация клавиш нажата Label2. Caption = strShift 'Сообщить о том, какие кнопки мыши нажаты CommandButtonl. Caption = strButton End Sub

Private Sub frMouse_MouseUp(Button As Integer, Shift As Integer, _

X As Single, Y As Single)

' Сообщить о вызове соответствующего события Label 1.Caption = «Событие MouseUp»

End Sub

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

Синтаксическая конструкция процедуры обработки этого события:

Private Sub Имя Элемента Управления _MouseMove(Button As_ Integer, Shift As Integer, X As Single, Y As Single)

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

MouseMove    - обрабатываемое событие;

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