以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]有点甜 老师分享的用代码设置计算机快捷键简单例子的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127959)

--  作者:mositu
--  发布时间:2018/11/26 11:03:00
--  [求助]有点甜 老师分享的用代码设置计算机快捷键简单例子的问题
这个例子我用上了,感谢,有个问题,注册的快捷键在有些人的电脑上可能已被注册了,如何判断出来就不注册了。求解,先谢过了
--  作者:有点甜
--  发布时间:2018/11/26 11:19:00
--  

注册的时候,有返回值的,如

 

Dim result = RegisterHotKey(obj.Handle, 100, KeyModifiers.none, Keys.F10)

If result = true then

    msgbox("成功")

Else

    msgbox("失败")

End If


--  作者:mositu
--  发布时间:2018/11/26 11:58:00
--  
谢谢甜老师,还请教一个问题,如果我想做一个软件内的全局快捷键,可不可以
也就是说在使用其他程序时候快捷键是不起作用的,而在本软件中无论在做什么,都可以实现快捷键。

--  作者:有点甜
--  发布时间:2018/11/26 12:16:00
--  

1、没有控件内的快捷键。

 

2、你可以在处理的时候,判断是否在软件内,如

 

If system.windows.forms.form.activeform isnot nothing then

    msgbox("在软件内")

End If


--  作者:Rex1Chen
--  发布时间:2019/3/6 12:02:00
--  
不错,谢谢!