Отследить нажатие на клавиши

[Mirus]

Как узнать(при не активной форме) что ктото нажал клавишу на клавиатуре?
Нашел пример с GetAsyncKeyState но он не подходит т.к. в нем можно проверять только конкретную клавишу
GetAsyncKeyState(VK_RETURN) < 0 Then ...
Придется тогда прописывать все клавиши, код получается слишком большой.
Нужно чтоб программа реагировала на любое нажатие на клавиатуре.

[Firestorm]

ну почему это GetAsyncKeyState не подходит? ты скажи в чём суть перехватывания...

в нем можно проверять только конкретную клавишу

а ты как хотел?
можно еще гонять directinput, но эт дополнительные библиотеки, но тебе нужен маленький код...
считаю GetAsyncKeyState является самым подходящим (хе... да я еще даже не могу вспомнить каких-либо других способов определения нажатий клавиш )... всяко в любом случае тебе придется описывать все кнопки...

а это так, мож чё приголится
http://www.vbnet.ru/faq/showtopic.asp?id=172
http://www.vbnet.ru/faq/showtopic.asp?id=364
http://www.vbnet.ru/faq/showtopic.asp?id=168
http://www.vbnet.ru/faq/showtopic.asp?id=166

[Mirus]

а ты как хотел?

Да так и хотел чтоб не описывать все кнопки.
Делаю что-то вроде скринсейвера. Чтоб при набатии клавиши он отключился!
А ссылки что-то не работают

[sash]

Попробуй так:

Код: Выделить всё

For i = 0 To 255
        If GetAsyncKeyState(CLng("&h" & Hex(i))) < 0 Then
         .......   
        End If
Next


диапазон цикла можно изменить как тебе надо.

[Mirus]

sash
Это как раз описывание всех кнопок.
Я думал может API какая нибуть есть что-то вроде Inkey$ как в QBasic'е.

[Firestorm]

sash
Это как раз описывание всех кнопок.

хех... а чем этот код не подходит... он не большой...
можно еще и таймером воспользоваться...

Код: Выделить всё

Private Sub Timer1_Timer()
KeyResult = GetAsyncKeyState(96) 'код кнопки...
If KeyResult = -32767 Then
...
End If


или если так подумать, то при включении скринсейвера, фокус переходит на него и отлавливать все нажатия можно попробовать на форме...

[Mirus]

фокус переходит на него и отлавливать все нажатия можно попробовать на форме

В моем случае форма не активна!

[Amed]

ИМХО, иначе никак - пиши цикл с GetAsyncKeyState

[GriKo]

Я вот этим пользовался в своё время:

Код: Выделить всё

Option Explicit
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Const KEY_TOGGLED As Integer = &H1
Private Const KEY_DOWN As Integer = &H1000
Dim TimeToEnd As Boolean

Private Sub Form_Load()
RunMain
End Sub
Private Sub RunMain()
Me.Show
Me.Refresh
Do
    If (GetKeyState(vbKeyA) And KEY_DOWN) Then
        lblKeyA.Caption = "A is Pressed"
    Else
        lblKeyA.Caption = ""
    End If
    If (GetKeyState(vbKeyLeft) And KEY_DOWN) Then
        lblKeyLeft.Caption = "Left Arrow Key is Pressed"
    Else
        lblKeyLeft.Caption = ""
    End If
    If (GetKeyState(vbKeyCapital) And KEY_DOWN) Then
        lblCapsLock.Caption = "Caps Lock is pressed"
    ElseIf (GetKeyState(vbKeyCapital) And KEY_TOGGLED) Then
        lblCapsLock.Caption = "Caps Lock is toggled"
    Else
        lblCapsLock.Caption = ""
    End If
    DoEvents
Loop Until TimeToEnd
End Sub

Private Sub Form_Unload(Cancel As Integer)
TimeToEnd = True
End Sub