Foxtable(狐表)用户栏目专家坐堂 → 有没有老板键


  共有2126人关注过本帖树形打印复制链接

主题:有没有老板键

帅哥哟,离线,有人找我吗?
蓝蚂蚁
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7885 威望:0 精华:0 注册:2016/6/11 11:10:00
有没有老板键  发帖心情 Post By:2018/6/25 8:46:00 [只看该作者]

由于是办公室的共用电脑,电脑轮流着用,当被人用电脑时,我不想退出Foxtable项目,想把项目隐藏起来,所以有个老板键就相当有用处的,但老板键如何设置,帮助里好像没有,望老师解答一下,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/25 9:31:00 [只看该作者]

快捷键? http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=52509&skin=0

 

把foxtable项目隐藏起来,不就好了?

 

basemainform.visible = False/True


 回到顶部
帅哥哟,离线,有人找我吗?
蓝蚂蚁
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7885 威望:0 精华:0 注册:2016/6/11 11:10:00
  发帖心情 Post By:2018/6/25 9:51:00 [只看该作者]

哈哈  老师 这个例子是你做的  福利贴啊  谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
蓝蚂蚁
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7885 威望:0 精华:0 注册:2016/6/11 11:10:00
  发帖心情 Post By:2018/6/25 10:03:00 [只看该作者]

不会用啊 老师
我想用Ctrl +Shift+P 就把项目隐藏,看了你的列子,不知道如何设置
[此贴子已经被作者于2018/6/25 10:03:59编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/25 10:14:00 [只看该作者]

1、注册快捷键(看按钮代码);

 

2、在内部函数那里,判断快捷键,执行代码。


 回到顶部
帅哥哟,离线,有人找我吗?
蓝蚂蚁
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7885 威望:0 精华:0 注册:2016/6/11 11:10:00
  发帖心情 Post By:2018/6/25 15:02:00 [只看该作者]

老师  代码能执行了 也达到要求,唯一不足的是 每次用这快捷键时都要在项目打开时点击一次添加快捷键才能用,能不能把这代码放到项目加载时执行,即:
AfterOpenProject的代码:
Dim obj As GlobalKeyDown = GlobalKeyDown.getInstance
RegisterHotKey(obj.Handle, 103, KeyModifiers.Control Or KeyModifiers.Shift, Keys.Q) ' 快捷键ctrl+Shift+Q



但这个提示错误,请问老师该如何解决

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/25 17:01:00 [只看该作者]

回复楼上,报什么错?代码不会有问题的。

 回到顶部
帅哥哟,离线,有人找我吗?
蓝蚂蚁
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7885 威望:0 精华:0 注册:2016/6/11 11:10:00
  发帖心情 Post By:2018/6/25 19:53:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:image 1.jpg
图片点击可在新窗口打开查看

下面是内部函数

 
图片点击可在新窗口打开查看此主题相关图片如下:image 2.jpg
图片点击可在新窗口打开查看

 

 

在你那个连接下载“全局快捷键_例子_商业版”后 把添加快捷键里面的代码放到其AfterOpenProject中,一切正常,但把这段代码放到我设计的项目里面报错,提示信息见图片。不知哪里出现问题,



 回到顶部
帅哥哟,离线,有人找我吗?
蓝蚂蚁
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7885 威望:0 精华:0 注册:2016/6/11 11:10:00
  发帖心情 Post By:2018/6/25 20:19:00 [只看该作者]

已解决 ,把你的例子下载后导出代码,发现有一段全局代码的,在我的项目里面相应地更改一下,全都ok.

 回到顶部