| Версия для печати
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум на Исходниках.RU > Работа с клавиатурой > Как отследить нажаие клавиши |
| Автор: Dufa 30.03.04, 17:04 |
| <{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}> 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 |