网站 › 『编程语言区』 › vb设置热键

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

vb设置热键

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

学习。

查看完整版本: vb设置热键