VBNet - Форум - Проверка кнопок и клавиатуры

Вопрос: Проверка кнопок и клавиатуры Добавлено: 04.03.04 22:13

Автор вопроса: arg

Мне надо не выходя из выполняемой процедуры
проверить не были ли нажаты другие кнопки и в зависимости от
результата либо продолжить выполнение программы в этой процедуре, либо
передать управление в другую. Подчеркиваю, проверить другие кнопки не выходя из действующей процедуры. Как в старом Basic_е функция INKEY

ARG

Ответить

Ответы Всего ответов: 2

Номер ответа: 1
Автор ответа:

sne

Разработчик Offline Client

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | | #1

Добавлено: 04.03.04 23:52

Так прям из процедуры проверяй вот такую функцию:

Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer

Private Function gbKeyIsPressed(ByVal nVirtKeyCode As KeyCodeConstants) As Boolean
    If (GetAsyncKeyState(nVirtKeyCode) And &H8000&) = &H8000& Then gbKeyIsPressed = True
End Function

Ну а если совсем в этой функции хочется сделать, то прямо в ней и пропиши условие If (GetAsyncKeyState(nVirtKeyCode) And &H8000&) = &H8000&,
где nVirtKeyCode - клавиша нажатие которой необходимо определить...
А далее, уже в зависимости от условия, делай соответствующие действия...

Ответить

Номер ответа: 2
Автор ответа:

POD_Luka

ICQ: 334099107

Вопросов: 10
Ответов: 19

Профиль | | #2

Добавлено: 05.03.04 08:56

Работает даже при не активном окне...

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()

For I = 0 To 255
If GetAsyncKeyState(I) < 0 Then
MsgBox ("НАЖАТИЕ")
End If
Next I

End Sub

Ответить

Страница: 1 |