22
Декабрь
2008
Как ловить нажатия клавиш вне окна приложения?
Как ловить нажатия клавиш вне окна приложения?
Option Explicit
Private Declare Function GetAsyncKeyState _
Lib "user32" (ByVal vKey As Long) As Integer
Const VK_RETURN = &HD
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(VK_RETURN) Then
MsgBox "Возврат"
End If
End Sub