|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：土人 日期：2005-8-4 11:32:58 |
|
|
一些软件在启动时窗体不可见，在需要操作时按一下某一个键，窗体会自动弹出来，很方便。这是因为该软件事先定义了热键。
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时不能太快，略按久一些，窗体才会弹出。是何原因，还望高手指点！ |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 土人 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:32:58 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]