http://wlbookwl.myrice.com/jck2002/01/020116vbrj.htm 注册热键方法 还有一种不注册直接检测 Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Function MyHotKey(vKeyCode) As Boolean MyHotKey = GetAsyncKeyState(vKeyCode) < 0 End Function '以上我是放在bas里面的,你可以自己设置 '调用 If MyHotKey(vbKeyF10) Then Shell "C:\WINDOWS\NOTEPAD.EXE", 1 End If
谢谢,ok了 不过第二种是不是需要用timer时时监测,是不是太耗资源了
键盘钩子我正好刚做一个,这个我倒是知道。可是消息队列怎么实现呀?我对vb不是很熟,许多想法都是从vc上转过来的,结果根本就实现不了。键盘钩子我也使用vc做的,用vb怎么实现呀。给点提示。thank u.
注册热键方法
还有一种不注册直接检测
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Function MyHotKey(vKeyCode) As Boolean
MyHotKey = GetAsyncKeyState(vKeyCode) < 0
End Function
'以上我是放在bas里面的,你可以自己设置
'调用
If MyHotKey(vbKeyF10) Then
Shell "C:\WINDOWS\NOTEPAD.EXE", 1
End If
不过第二种是不是需要用timer时时监测,是不是太耗资源了