'Данный пример покажет, нажаты ли клавиши мыши момент загрузки формы. 'Обращение MButtonDown(I) вы можете использовать в любом месте вашей 'програамы, где I = 1 (левая клавиша мыши), 2 (правая клавиша мыши) или 3 '(средняя клавиша мыши)
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As KeyCodeConstants) As Integer
Public Function MButtonDown(btButton As Byte) As Boolean Select Case btButton Case Is = 1 MButtonDown = CBool(GetKeyState(vbKeyLButton) And &H8000) Case Is = 2 MButtonDown = CBool(GetKeyState(vbKeyRButton) And &H8000) Case Is = 3 MButtonDown = CBool(GetKeyState(vbKeyMButton) And &H8000) End Select End Function
Private Sub Form_Load() If MButtonDown(1) Then MsgBox "Левая клавиша нажата!" If MButtonDown(2) Then MsgBox "Правая клавиша нажата!" If MButtonDown(3) Then MsgBox "Средняя клавиша нажата!" End Sub
Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Определить, какие клавиши мыши нажаты", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!