vb程序中热键的设置

Option Explicit

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

Private Sub Form_Load()

Timer1.Interval = 1

End Sub

Private Sub Timer1_Timer()

If GetAsyncKeyState(vbKeyF2)<0 Then ...

If GetAsyncKeyState(vbKeyF2)<0 and GetAsyncKeyState(vbKeyF3)<0 Then ...

End Sub

TAG: 程序 设置 热键