如何使VB检测到键盘按键
展开全部
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form_Load()
Timer1.Interval = 300
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyP) Then SendKeys "jjjjjjjjjjjj"
End Sub
Private Sub Form_Load()
Timer1.Interval = 300
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyP) Then SendKeys "jjjjjjjjjjjj"
End Sub
追问
第一行哪个值是指代P键的?
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询