| Вопрос: Как определить нажат ли ESC. | Добавлено: 26.01.03 10:13 |
Автор вопроса:  vig11 | ICQ: 213777061 |
Ребята как програмно можно определить нажата ли была клавиша ESC. Я помню, был ответ в форуме, поытался найти но не нашёл. 
|
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  MKE Вопросов: 15 Ответов: 14 |
Профиль | | #1 | Добавлено: 26.01.03 11:01 |
|
Private Declare Function GetKeyboardLayoutName Lib "user32" _ Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Sub Form_Load() Timer1.Interval = 1 End Sub Private Sub timer1_Timer() If GetAsyncKeyState(27) Then MsgBox "НАЖАТА ESC" ' 27 - код клавы  object browser/KeyCodeConstants)End Sub |
||
|
Номер ответа: 2 Автор ответа: vig11 ICQ: 213777061 Вопросов: 21 Ответов: 159 |
Профиль | | #2 | Добавлено: 26.01.03 13:02 |
Большое спасибо!!!
|
||
Страница: 1 |