vb设置热键

明次 · 发表于 2009-4-6 12:10

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
Timer1.Interval = 50
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyControl) And GetAsyncKeyState(vbKeyMenu) And GetAsyncKeyState(vbKeyReturn) Then
MsgBox "你按下了ctrl +alt +enter"
End If
End Sub

topckey · 发表于 2009-4-6 16:13

这个是VB代码``那个Timer1是时间控制吗?

明次 · 发表于 2009-4-8 17:18

是的``:)``````

ps520 · 发表于 2009-7-14 18:56

看不懂、

虽然在学习

hack1993 · 发表于 2009-8-8 07:15

顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.顶.

lizuolong · 发表于 2010-5-10 13:36

提示: 作者被禁止或删除内容自动屏蔽

f.dw · 发表于 2010-5-28 00:47

学习。

帐号		自动登录	找回密码
密码			注册[Register]

lizuolong lizuolong 当前离线好友阅读权限 0 听众最后登录 1970-1-1 头像被屏蔽	lizuolong 发表于 2010-5-10 13:36 提示: 作者被禁止或删除内容自动屏蔽

	回复支持举报

[其他转载] vb设置热键