8
Февраль
2009
Как определить, какая кнопка мыши нажата?
Как определить, какая кнопка мыши нажата?
Option Explicit
'Нажмите одну из кнопок мыши
Private Sub Form_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Text1.Text = _
"Ты нажал левую кнопку мыши"
If Button = 4 Then Text1.Text = _
"Ты нажал среднюю кнопку мыши"
If Button = 2 Then Text1.Text = _
"Ты нажал правую кнопку мыши"
End Sub
Private Sub Form_MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Text1.Text = ""
End Sub