Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=49834&view=findpost&p=327947 Tue, 30 Mar 2004 17:04:43 +0000 Как отследить нажаие клавиши https://forum.sources.ru/index.php?showtopic=49834&view=findpost&p=327947
    Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
    Private Sub Timer1_Timer()
    Dim key1 As Long, key2 As Long
    key1 = GetAsyncKeyState(vbKeyMenu)
    key2 = GetAsyncKeyState(vbKeyA)
    If key1 <> 0 And key2 <> 0 Then MsgBox "Вы нажали Alt+A"
    End Sub
]]> Dufa Работа с клавиатурой