不论窗体上的任何控件有焦点，任何时候按下F5键时，自动调用一个函数A()，如何弄。给一个小例子，谢谢！

Question

不论窗体上的任何控件有焦点，任何时候按下F5键时，自动调用一个函数A()，如何弄。给一个小例子，谢谢！

Answer 1

Private Sub Form_Load()
    Me.KeyPreview = True
End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyF5 Then
        Call A()
    End If
End Sub

Answer 2

给你两个方法.1.生成系统热键/请参考
http://topic.csdn.net/u/20080724/18/50be1846-8279-471a-9d93-a98420e5e8e6.html
中我的回复2.建立一个菜单.设置快捷键为F5 
  在此菜单下调用 CAll A()
  并将此菜单的 Visible 设置为 False