| Вопрос: API для определения нажатия клавиши(Esc) | Добавлено: 21.03.08 21:44 |
Автор вопроса:  Dolgy44 | ICQ: 398582220 |
|
Как, как же начинающему написать для своего уже пчти доделоного первого макроса функцию завершающую выполнение программы с помощью нажатия клавиши Esc.
Знаю API функция какая-то нужна. Ну, кто чем может...? Заранее спасибо обративших на крик о помощи!!! |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:    Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #1 | Добавлено: 21.03.08 23:37 |
|
if GetAsyncKeyState(&h1B) <> 0 then ...
|
||
|
Номер ответа: 2 Автор ответа: Dolgy44 ICQ: 398582220 Вопросов: 1 Ответов: 1 |
Профиль | | #2 | Добавлено: 22.03.08 14:10 |
|
Executioner спасибо.
Проблема с закрытием макроса(А точнее в моем случае одной процедуры) с помощь Esc решается так: В модуль запишем: Public Declare Function GetAsyncKeyState Lib "user32" (ByVal VKEY As Long) As Integer В процедуре: keystate = GetAsyncKeyState(vbKeyEscape) If (keystate And &H1) = &H1 Then Exit Sub End If |
||
Страница: 1 |