高手进，热键的问题

[f50282912]

有一个程序，是按热键F7执行，现在我想在按F7后弹出一个提示框，要怎么实现，用钩子吗，可是VB没有全局钩子，能实现吗

[f50282912]

我自己解决了，用GetAsyncKeyState()检验按键状态
If (GetAsyncKeyState(VK_F7) And &H1) = &H1 And (GetAsyncKeyState(VK_F7) And &H80) <> &H80 Then
MsgBox "开单后记得 问拿货人拿货的位置并在库存内删掉 ", vbExclamation, "提示"
End If

[penguinhzf]

最简单的方法是在form_mouseup里添加一句

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
if keycode=118 then
...(代码)
end if
End Sub

如果不行,提倡使用API