怎么为软件设置热键?用VB设置

2024-12-29 10:42:16

推荐回答（2个）

回答1：

我不知道你想要怎样的效果，应该是下面的效果吧
我弄过的，可以的
private
declare
function
getkeystate
lib
"user32"
(byval
nvirtkey
as
long)
as
integer
dim
key1
as
integer
const
keycode1
as
integer
=
121
private
sub
form_load()
key1
=
getkeystate(keycode1)
timer1.interval
=
10
timer1.enabled
=
true
me.visible
=
false
end
sub
private
sub
timer1_timer()
if
getkeystate(keycode1)
<>
key1
then
msgbox
"你按下了热键"
key1
=
getkeystate(keycode1)
end
if
end
sub
你要按f10的，就会看到效果啦

回答2：

呵呵不是很容易的，如果不是，就需要从网络上搜索了，哪么再控件设置本身就有，如果是这就需要看看你的程序是不是再活动的时候使用热键了