• Home
 · 
• Miscellaneous
 · 
• Dedect keypress

Dedect keypress

This code finds if any key pressed. This will be helpfull for example you're programming a screensaver. But you can not get keypresses through forms because of some components which does not support this keypress event. So you must use some API's to do this.

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

Rate Dedect keypress

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

sKeyStat = 0
For i = 0 To 255
 KeyResult = GetAsyncKeyState(i)
  If KeyResult = -32767 Then
   sKeyStat = 1
   Exit For
  End If
Next i
 If sKeyStat = 1 Then
  msgbox "Key pressed!!!"
 End If