VB6熱鍵 GetAsyncKeyState

'宣告API
Private Declare Function GetAsyncKeyState Lib “user32″ (ByVal vKey As Long) As Integer

'加入一個Timer
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF3) Then '如果按下F3
Msgbox "test"   '彈出訊息
End If    '結束如果
End Sub

'如果要 F3開啟 F4關閉
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF3) Then '如果按下F3
Msgbox "你按下了F3"   '彈出訊息
ElseIf GetAsyncKeyState(vbKeyF4) Then '如果按下F4
Msgbox "你按下了F4"   '彈出訊息
End If    ''結束如果
End Sub

FB: 陳小逆

RC:DreamAnonymous