Question

VB 判断是否按键

一个隐藏的VB程序 如何判断是否键盘被按下？
不是在界面上按的

ps:不是记录 是只要有按键就会msgbox "你按键盘了"

Answer 1

窗体上放入一个Timer控件

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

Private Sub Form_Load()
Timer1.Interval = 200
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyQ) Then MsgBox "你按下了Q键"
End Sub

Answer 2

不在界面上
那你要后台运行这个程序
记录键盘的按键?

Answer 3

VB里有一个专门的事件，判断键盘上哪个键被按下（包括按下和抬起两个动作），键盘上每个按键都对应唯一的阿斯克码，当某个按键被按下时，触发该事件。

Answer 4

GetAsyncKeyState