以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [原创]如何在自己的系统中,根据情况关闭系统菜单和显示系统菜单?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=66622)

--  作者:包头123
--  发布时间:2015/4/10 17:05:00
--  [原创]如何在自己的系统中,根据情况关闭系统菜单和显示系统菜单?
版主:
     将系统菜单加到自己开发的系统后,想在关闭系统菜单的时候关闭它,想在打开的时候,显示它,代码如何写?
     谢谢了。


    版主:发帖子时,提示错误信息:请输入投票内容。在哪里输入投票内容呢?界面上好像不容易找到。


--  作者:Bin
--  发布时间:2015/4/10 17:08:00
--  
不要发起投票,直接发布主题


切换系统菜单用快捷键 CTRL+SHIFT+F12

--  作者:包头123
--  发布时间:2015/4/10 17:24:00
--  
版主:
  我没有说清楚,我的菜单中,既有系统菜单,又有自己定义的菜单,有的时候,想关闭系统菜单,在关闭后,还想在某时,显示系统菜单。
  与您给出的方法不是一码事,不知道我是否说清楚了。

--  作者:Bin
--  发布时间:2015/4/10 17:25:00
--  
不明白,菜单是不可能同时存在自定义和系统菜单的
--  作者:包头123
--  发布时间:2015/4/10 17:30:00
--  
版主:
   我把系统菜单和我自己定义的菜单都放在一起了。如下图所示。

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150410172705.png
图片点击可在新窗口打开查看

  从中可以看出,前面五个菜单项是系统菜单,后面第六项日常工作、系统管理和快捷查询,是我自己定义菜单。
  我希望按下某个快捷键关闭系统菜单,然后再按下某个快捷键,显示系统菜单。


--  作者:包头123
--  发布时间:2015/4/10 17:47:00
--  
我很希望有一个与Syscmd.Project.OpenSystemMenu()对应的系统命令:Syscmd.Project.CloseSystemMenu(),不知道有没有?
如果有,我就能实现我的想法了。
另外,在菜单系统中,如何设置快捷键。

--  作者:包头123
--  发布时间:2015/4/13 10:32:00
--  
最终解决办法找到了:

    需要关闭时,设置为隐藏,需要显示时,设置为可见。

    设置为隐藏的语句如下:

    RibbonTabs("Common").Visible  = False                                           \'关闭系统菜单中的common菜单(日常工作)
    RibbonTabs("Table").Visible       = False                                           \'关闭系统菜单中的Table菜单(数据表)
    RibbonTabs("Project").Visible     = False                                           \'关闭系统菜单中的Project菜单(管理项目)
    RibbonTabs("Print").Visible         = False                                          \'关闭系统菜单中的Print菜单(打印输出)
    RibbonTabs("Other").Visible       = False                                          \'关闭系统菜单中的Other菜单(杂项)