Страница: 1 |
Здравствуйте, люди добрые. Подсскажите пожалуйста, как можно определить нажатую клавишу. Имеется в виду, как узнать был нажат правый или левый Shift (Ctrl, Alt, Enter и т.д.) Вопреки моим ожиданиям строка в обработчике KeyDown: If e.KeyCode=Keys.LShiftKey Then.... не принесла результата. Или я чего то недопонимаю. Как быть
Поюзай апиху GetKeyEvent Отслеживание нажатия кнопок клавы End Sub как я понял это тебе и надо!!! Страница: 1 |
Вопрос: KeyCode?
Добавлено: 10.05.03 20:01
Автор вопроса: Антоха
Ответы
Всего ответов: 4
Номер ответа: 1
Автор ответа:
den2003
Вопросов: 13
Ответов: 11
Web-сайт:
Профиль | | #1
Добавлено: 10.05.03 20:20
Лучше юзай DirectInput
Номер ответа: 2
Автор ответа:
msv
Вопросов: 34
Ответов: 312
Web-сайт:
Профиль | | #2
Добавлено: 11.05.03 07:40
Посмотри Object Browser - константы, мож к ним надо приравнивать.
Номер ответа: 3
Автор ответа:
ZeroX
ICQ: 220401330
Вопросов: 47
Ответов: 406
Профиль | | #3
Добавлено: 12.05.03 12:40
Номер ответа: 4
Автор ответа:
V!RU$™
ICQ: 132309822
Вопросов: 24
Ответов: 54
Web-сайт:
Профиль | | #4
Добавлено: 12.05.03 15:03
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer() ‘таймер
If (GetAsyncKeyState(vbKeyRight)) Then ‘задаёт какую кнопку отслеживать в данном случае vbKeyRight – "право"
Label1.Caption = "Right" ‘При нажатие на кнопку появляется надпись в Label1
End If