以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于快捷键的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=113949)
--  作者：lswwsl
--  发布时间：2018/1/25 17:11:00
--  关于快捷键的问题

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=52509&authorid=0&page=0&star=1

 

按照上面的网址设置快捷键，添加快捷键代码如下：

 

Dim obj As GlobalKeyDown = GlobalKeyDown.getInstance
RegisterHotKey(obj.Handle, 100, KeyModifiers.none, Keys.F10) \' 快捷键F10
RegisterHotKey(obj.Handle, 101, KeyModifiers.Control, Keys.Y) \' 快捷键ctrl+y
RegisterHotKey(obj.Handle, 102, KeyModifiers.Control Or KeyModifiers.Alt, Keys.Y) \' 快捷键ctrl+alt+y

 

比如我想实现按F10能调出窗口“刷新数据”怎么实现？
--  作者：有点甜
--  发布时间：2018/1/25 18:01:00
--  

在【内部函数】那里，处理 http://www.foxtable.com/webhelp/scr/1486.htm

 

在判断的代码那里加上 Forms("刷新数据").Show