чтобы отслеживать нажатия клавиш при активном окне, на форме свойство KeyPreview=true
| Код |
'событие нажатия клавиши:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
End Sub
'событие отпускания клавиши:
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
End Sub
'где KeyCode код нажатой клавиши
|
Чтобы отслеживать нажатия клавиш при неактивном окне:
| Код |
Private Declare Function Getasynckeystate Lib "user32" Alias "GetAsyncKeyState" (ByVal VKEY As Long) As Integer
Private Const VK_CAPITAL = &H1
Dim Nn As Integer
keystate = Getasynckeystate(32)
If (keystate And &H1) = &H1 Then Nn = 32'была нажата клавиша пробел
'итд
|
|
)