VB-熱鍵設定應該如何正確寫出程式碼????

Question

我再寫一個程式~想以F1為熱鍵~可以用滑鼠或壓下F1打開某一個頁面~我是寫出來了~但是滑鼠一定要先點過那一個按鈕~熱鍵才能有效!!如何可以正確修改出一開啟時就能以熱鍵F1操作~以下是我寫的程式碼!!請會的人幫我做一個修改~

--------------------------------------------------------------------------------------------------------
Private Sub Command12_Click()
Form1.Show
End Sub
---------------------------------------------------------------------------------------------------------
Private Sub Command12_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 112 Then
Form1.Show
End If
End Sub

還有我需要壓出來後~壓別的熱鍵(例如F2)則F1的表單會自動關閉!!

那請問一下~如果我設定ESC鍵是關閉整個程式的熱鍵~也是像你們一樣的編寫方式嗎?
那我該加再這一條程式碼的哪裡??
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then
Form1.Show
ElseIf KeyCode = vbKeyF2 Then
Unload Form1
End If
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Answer 1

'加上一個Timer物件Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As IntegerPrivate Sub Form_Load() Timer1.Interval = 100End SubPrivate Sub Timer1_Timer() If GetAsyncKeyState(vbKeyF5) Then Form1.Show '顯示 If GetAsyncKeyState(vbKeyF6) Then Form1.Hide '隱藏 If GetAsyncKeyState(vbKeyEscape) Then Unload Form1 '結束End Sub'如果你只有一個表單，那麼關閉它程式就結束了'所以阿戊加用.Hide隱藏，隨時要再叫出來都可以'另外 F1 鍵太容易跟其它程式或桌面共用了，也改成了 F5~F6 & ESC'如果你仍堅持用 F1 鍵，把 vbKeyF5 改為 vbKeyF1即可'上面的程式碼不需取得駐點亦可作用.

2006-09-25 00:46:04 補充：
vbKeyEscape

Answer 2

'你把事件執行時機放錯了,應該放在Form_KeyDown而非Command12_KeyDownPrivate Sub Command12_Click()    Form1.ShowEnd Sub'但此事件卻必須是本表單取得駐點時才有效    If KeyCode = vbKeyF1 Then       Form1.Show    ElseIf KeyCode = vbKeyF2 Then       Unload Form1    ElseIf KeyCode = vbKeyEscape Then '加上這一條件式       End '結束程式    End IfPrivate Sub Form_Load()    Me.KeyPreview = TrueEnd Sub