Страница: 1 |
Можно так: Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Const VK_ESCAPE = &H1B 'Константа может быть другой, смотри ApiViewer! Private Sub Timer1_Timer() 'Interval = 20 End Sub Public Const VK_F1 = &H70 Public Const VK_Q = &H51 Public Const VK_NUMLOCK = &H90 Public Const VK_0 = &H30 Public Const VK_EnterN = &H6C Страница: 1 |
Вопрос: Горячие клавиши и не только...
Добавлено: 31.08.02 23:23
Автор вопроса: Matrix | Web-сайт:
Хелп, плиз! Как поймать сочетание клавиш вне окна(то биш в Иксплорере)
Ответы
Всего ответов: 2
Номер ответа: 1
Автор ответа:
Ян
ICQ: 816105
Вопросов: 38
Ответов: 198
Web-сайт:
Профиль | | #1
Добавлено: 01.09.02 00:11
If GetAsyncKeyState(VK_ESCAPE) Then
MsgBox "Ты нажал Escape!"
End If
Номер ответа: 2
Автор ответа:
Алексей
black admin
ICQ: 261779681
Вопросов: 87
Ответов: 633
Web-сайт:
Профиль | | #2
Добавлено: 01.09.02 06:22
Public Const VK_F2 = &H71
Public Const VK_F3 = &H72
Public Const VK_W = &H57
Public Const VK_E = &H45
Public Const VK_R = &H52
Public Const VK_T = &H54
Public Const VK_Y = &H59
Public Const VK_U = &H55
Public Const VK_I = &H49
Public Const VK_O = &H4F
Public Const VK_P = &H50
Public Const VK_A = &H41
Public Const VK_S = &H53
Public Const VK_D = &H44
Public Const VK_F = &H46
Public Const VK_G = &H47
Public Const VK_H = &H48
Public Const VK_J = &H4A
Public Const VK_K = &H4B
Public Const VK_L = &H4C
Public Const VK_Z = &H5A
Public Const VK_X = &H58
Public Const VK_C = &H43
Public Const VK_V = &H56
Public Const VK_B = &H42
Public Const VK_N = &H4E
Public Const VK_M = &H4D
Public Const VK_PAUSE = &H13
Public Const VK_SCREEN = &H2C '&H2A
Public Const VK_SCROLL = &H91
Public Const VK_SHEFT = &H10
Public Const VK_CTRL = &H11
Public Const VK_CAPSLOCK = &H14
Public Const VK_1 = &H31
Public Const VK_2 = &H32
Public Const VK_3 = &H33
Public Const VK_4 = &H34
Public Const VK_5 = &H35
Public Const VK_6 = &H36
Public Const VK_7 = &H37
Public Const VK_8 = &H38
Public Const VK_9 = &H39
Public Const VK_Enter = 13
Public Const VK_Back = 8
Public Const VK_Spase = 32