Страница: 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
Страница: 1 |
Вопрос: Новое сообщение без темы
Добавлено: 01.09.02 00:09
Автор вопроса: Ян | Web-сайт:
If GetAsyncKeyState(VK_ESCAPE) Then
MsgBox "Ты нажал Escape!"
End If
Ответы
Всего ответов: 1
Номер ответа: 1
Автор ответа:
Ян
ICQ: 816105
Вопросов: 38
Ответов: 198
Web-сайт:
Профиль | | #1
Добавлено: 01.09.02 00:10
Упс! Не туда послал