如何用API定义程序热键
2006-02-27 11:54:34 来源:WEB开发网核心提示:一些软件在启动时窗体不可见,在需要操作时按一下某一个键,如何用API定义程序热键,窗体会自动弹出来,很方便,略按久一些,窗体才会弹出,这是因为该软件事先定义了热键,VB程序也能加入此功能
一些软件在启动时窗体不可见,在需要操作时按一下某一个键,窗体会自动弹出来,很方便。这是因为该软件事先定义了热键。
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时不能太快,略按久一些,窗体才会弹出。是何原因,还望高手指点!->
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时不能太快,略按久一些,窗体才会弹出。是何原因,还望高手指点!->