Question

vb6如何触发一个按键，比如F2键？

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
If MyHotKey(vbKeyF2) Then MsgBox "使用了F2键！"
End Sub
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = (GetAsyncKeyState(vKeyCode) < 0)
End Function
我想让程序能触发一个按键，比如我要触发F2键。我目前找到的方法是上面这个，但我总觉着一直用着计时器Timer，会不会影响程序的效率？
所以想问有没有其他的方法，不用计时器，就可以触发一个按键。
最终用了RegisterHotKey。

Answer 1

在keydown 事件里就行了
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 113 Then MsgBox "F2"
End Sub

追问

这样不行吧，如果窗体上没有控件是可以的，但是窗体上不可能没控件呀。

追答

哪个获得焦点，就用那个检测，只要你的控件支持keydowm，用你的控件出发也行