如何用API定義程序熱鍵

作者：土人

一些軟件在啟動時窗體不可見，在需要操作時按一下某一個鍵，窗體會自動彈出來，很方便。這是因為該軟件事先定義了熱鍵。
VB程序也能加入此功能，步驟如下：

一、申明定義熱鍵的API函數
Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Long) As Integer

二、聲明定義熱鍵變量
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = (GetAsyncKeyState(vKeyCode) < 0)
End Function

三、在Timer1_Timer中加入：
Private Sub Timer1_Timer()
'定義熱鍵
If MyHotKey(vbKeyF12) Then
Me.Visible = True '(設程序啟動時窗體不可見)
End If
End Sub

說明：以上代碼是筆者一個程序中的一部分，運行成功。令人不解的是，按F12時不能太快，略按久一些，窗體才會彈出。是何原因，還望高手指點！ 

原文轉自：http://www.anti-gravitydesign.com