VB后台获得按键,并执行自己的函数(非钩子及热键)

VB后台获得按键,并执行自己的函数(非钩子及热键)作者:丹心 QQ:121877114答案不太麻烦,一个TIMER控件即可

Option Explicit
'按钮事件
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Public Sub shift()'你自己的事件
MsgBox "你按下了Shift"
End Sub

Private Sub Form_Load()
Timer1.Interval = 250
End Sub

Private Sub Timer1_Timer()'是否按下shift
If GetAsyncKeyState(vbKeyShift) Then shift
End Sub

---