[비주얼베이직] 타이머를 이용한 핫키 설정

선언

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

     

F1 키를 눌렀을경우 메시지 박스 띄우기

     

타이머 인터벌 1000 정도로

     

Private Sub 타이머_Timer()

If GetAsyncKeyState(vbkeyF1) Then '만약 F1을 눌렀을 경우

MsgBox "메시지 박스" '메시지 박스를 띄운다

End If 'If 문 종료

End Sub

     

   

출처: <http://13clover.tistory.com/admin/entry/post/?id=78>