首页 > > 程序设计 > VB >

如何用API定义程序热键

2008-02-23 06:53:55来源：互联网阅读 ()

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

一、申明定义热键的API函数
Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Long) As Integer

二、声明定义热键变量
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = (GetAsyncKeyState(vKeyCode) < 0)
End Function

三、在Timer1_Timer中加入：
Private Sub Timer1_Timer()
'定义热键
If MyHotKey(vbKeyF12) Then
Me.Visible = True '(设程序启动时窗体不可见)
End If
End Sub

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

上一篇：用API函数定义热键又一法
下一篇：用Shell语句调出控制面板

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有