| Вопрос: Контроль нажатия клавиш | Добавлено: 17.07.10 13:02 |
Автор вопроса:  Ghepard
|
|
Здравствуйте!
Поискал в интернете на эту тему и нашёл код, но он не работает( Подскажите, что с ним не так? 1. Положите на форму таймер, поставьте интервал в 50 2. Добавьте в модуль: Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Public Const VK_TAB = &H9 ' Константа для TAB key. ' константы для других кнопок посмотрите в API вьювере ' Поместите в событие Timer: If GetAsyncKeyState(VK_TAB) And KEY_SHIFT = True Then msgboх "Кто то трогает ТАБ", vbinformation End If |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 17.07.10 13:04 |
| А зачем KEY_SHIFT = True? | ||
|
Номер ответа: 2 Автор ответа: iprog Вопросов: 26 Ответов: 110 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 17.07.10 15:43 |
| Если убрать KEY_SHIFT = True, то все должно быть нормально. | ||
Страница: 1 |