以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]键值问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95263)

--  作者:pcxjxjhkw
--  发布时间:2017/1/14 15:44:00
--  [求助]键值问题

键盘上每个键是否有一个唯一的键值?

如:keys.F1.id

 


--  作者:有点蓝
--  发布时间:2017/1/14 15:48:00
--  
http://www.foxtable.com/webhelp/scr/0621.htm

msgbox(Keys.F1)

--  作者:pcxjxjhkw
--  发布时间:2017/1/14 15:58:00
--  


此主题相关图片如下:qq截图20170114155424.png
按此在新窗口浏览图片

如何实现:根据上面窗口设置,单击添加时,添加全局快捷键?

 

    Dim obj As GlobalKeyDown = GlobalKeyDown.getInstance
    RegisterHotKey(obj.Handle, 1000, KeyModifiers.Control, Keys.F1) \' 快捷键F1

 

最头疼的问题:如何将窗口中【快捷键】的值转换为代码中红色的部分?


 


--  作者:有点蓝
--  发布时间:2017/1/14 16:13:00
--  
Dim key = [Enum].Parse(Gettype(Keys), "F1")

RegisterHotKey(obj.Handle, 1000, KeyModifiers.Control, key)

--  作者:pcxjxjhkw
--  发布时间:2017/1/14 16:14:00
--