Capturar Pressionamento D Tecla

[Ozi]

Salve Galera! Seguinte,

num post antigo perguntei sobre como detectar o pressionamento das teclas, o Greymalkin ate me deu a dica das APIs GetAsyncKeyState, GetKeyboardState ou GetKeyState. beleza, como não tenho experiencia com APIs até achei un ex. na net, mas o problema e que este exemplo só detecta a tecla ESC e eu queria q pegasse qualquer tcla que fosse pressionada e informasse ao usuario. abaixo o cod. que peguei na net:

Se alguém souber como fazer a modificação eu agradeço.

------------------------------------------------------------------------

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Private Const VK_ESCAPE = &H1B

Private Const VK_KEYDOWN As Long = -128

Private Const VK2_KEYDOWN As Long = -127

Dim continue As Boolean

Private Sub Form_Load()

Dim key As Long

Me.Show

continue = True

Do While continue

key = GetKeyState(VK_ESCAPE)

If key = VK_KEYDOWN Or key = VK2_KEYDOWN Then

If Not Me.Caption = "ESC is pressed" Then

Me.Caption = "ESC is pressed"

End If

Else

If Not Me.Caption = "ESC is not pressed" Then

Me.Caption = "ESC is not pressed"

End If

End If

DoEvents

Loop

End Sub

[Guest Guest]

Tenta esse código:

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Private Const VK_KEYD = 68

Private Const VK_KEYDOWN As Long = -128

Private Const VK2_KEYDOWN As Long = -127

Dim continue As Boolean

Private Sub Form_Load()

Dim key As Long

Me.Show

continue = True

Do While continue

key = GetKeyState(68)

If key = VK_KEYDOWN Or key = VK2_KEYDOWN Then

If Not Me.Caption = "D is pressed" Then

Me.Caption = "D is pressed"

End If

Else

If Not Me.Caption = "D is not pressed" Then

Me.Caption = "D is not pressed"

End If

End If

DoEvents

Loop

End Sub

[Ozi]

Valeu a intenção guest, mas assim fica na mesma. neste caso o prog só detectaria o pressionamento da tecla "D" mas eu qria o seguinte: se o usuario presiona "a" o sistema avisa que ele pressionou "a" mas se ele pressiona "h" tb é avisado q pressiono "h" e assim com todas as teclas do Teclado. Obs. gostaria que esse cod. detectase o pressionamento mesmo sem q o prog esteja com o foco. você sabe como fazer isso?

Abraços!!!

[Ozi]

alguém sb cm fazer pra detectar pression. de tecla usando api sem q o prog esteja com o foco(es 2º plano)? alg pde me dar uma força?

[Graymalkin]

alguém sb cm fazer pra detectar pression. de tecla usando api sem q o prog esteja com o foco(es 2º plano)? alg pde me dar uma força?

Com esse código você já está detectando isso. O problema é fazer com que ele detecte *todas* as teclas (isso, é claro, sem declarar uma por uma...).

Abraços,

Graymalkin