| Вопрос: про кнопку Esc | Добавлено: 27.03.08 21:51 |
Автор вопроса:  Сергей
|
| Подскажите, пожалуйста, функцию, аналогичную нажатию клавиши Esc. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:    Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #1 | Добавлено: 28.03.08 00:56 |
|
Эм.... я прям и не знаю что посоветовать...
SendKeys("{ESC}"  ?
|
||
|
Номер ответа: 2 Автор ответа: AWPICQ: 345685652 Вопросов: 96 Ответов: 1212 |
Web-сайт: Профиль | | #2 | Добавлено: 28.03.08 02:21 |
|
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_KEYUP = &H2 'событие отпускания клавиши Public Sub PressKey(CH As Byte) Call keybd_event(CH, 0, 0, 0) Call keybd_event(CH, 0, KEYEVENTF_KEYUP, 0) End Sub Public Sub OnKey(CH As Byte) Call keybd_event(CH, 0, 0, 0) End Sub Public Sub OffKey(CH As Byte) Call keybd_event(CH, 0, KEYEVENTF_KEYUP, 0) End Sub ВОТ ТАК МОЖНО PressKey 27
|
||
Страница: 1 |