请问怎样在 VB 中设置系统热键?

发布网友发布时间：2022-04-28 11:29

共1个回答

热心网友时间：2023-10-05 11:44

代码如下：

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

　
Private
Function
MyHotKey(vKeyCode)
As
Boolean

MyHotKey
=
((GetAsyncKeyState(vKeyCode)
<
0))

　
End
Function

　
然后，建立一个
timer
控件，输入以下代码：

Sub
timer1_timer()

If
myHotKey(vbkeyX)
then
…　
'
这里的
vbkeyX
是指系统热键为
X

　
End
Sub

热心网友时间：2023-10-05 11:44

代码如下：

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

　
Private
Function
MyHotKey(vKeyCode)
As
Boolean

MyHotKey
=
((GetAsyncKeyState(vKeyCode)
<
0))

　
End
Function

　
然后，建立一个
timer
控件，输入以下代码：

Sub
timer1_timer()

If
myHotKey(vbkeyX)
then
…　
'
这里的
vbkeyX
是指系统热键为
X

　
End
Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com