如何用API定义程序热键

文章出处：网络转载 作者：未知　发布时间：2006-07-28 收藏到QQ书签

一些软件在启动时窗体不可见，在需要操作时按一下某一个键，窗体会自动弹出来，很方便。这是因为该软件事先定义了热键。
VB程序也能加入此功能，步骤如下：

一、申明定义热键的API函数
PrivateDeclareFunctionGetAsyncKeyStateLib"user32"_
(ByValvKeyAsLong)AsInteger

二、声明定义热键变量
PrivateFunctionMyHotKey(vKeyCode)AsBoolean
MyHotKey=(GetAsyncKeyState(vKeyCode)<0)
EndFunction

三、在Timer1_Timer中加入：
PrivateSubTimer1_Timer()
'定义热键
IfMyHotKey(vbKeyF12)Then
Me.Visible=True'(设程序启动时窗体不可见)
EndIf
EndSub

说明：以上代码是笔者一个程序中的一部分，运行成功。令人不解的是，按F12时不能太快，略按久一些，窗体才会弹出。是何原因，还望高手指点！->