- 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=122144)
-- 发布时间：2018/7/19 18:04:00
-- [求助]功能区隐藏问题
我用代码隐藏了功能区，保留了快捷菜单。但是下面会多出一个白条，可以隐藏或者去掉吗
此主题相关图片如下：qq截图20180719180113.png
-- 发布时间：2018/7/19 20:19:00
--
试试这样
ConfigBar.Visible = False
ApplicationMenu.visible = False
For Each o As object In RibbonTabs
o.visible = False
Next
-- 发布时间：2018/7/20 12:05:00
--
还是会留一个白边
-- 发布时间：2018/7/20 12:34:00
--
我测试没问题，截图，或者具体做个例子发上来测试。
-- 发布时间：2018/7/20 14:20:00
--
麻烦看看，谢谢了。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
[此贴子已经被作者于2018/7/20 14:20:24编辑过]
-- 发布时间：2018/7/20 15:18:00
--
lockbasemainform
Dim obj As object = BaseMainForm.controls("C1Ribbon1")
For Each o As object In RibbonTabs
o.visible = False
Next
obj.HideTabHeaderRow = True
unlockbasemainform
-- 发布时间：2018/8/28 15:46:00
--
lockbasemainform Dim obj As object = BaseMainForm.controls("C1Ribbon1") For Each o As object In RibbonTabs o.visible = False Next obj.HideTabHeaderRow = True unlockbasemainform 求助，为了达到隐藏功能区的目的，我在项目全局事件：项目启动后加载了这段代码，效果太好了，目的是达到了，怎么在把功能区调出来？不要吐槽我也在摸索狐表中  此主题相关图片如下：截图.jpg |
[此贴子已经被作者于2018/8/28 15:54:32编辑过]
-- 发布时间：2018/8/28 16:00:00
--
方法一：执行代码
lockbasemainform
Dim obj As object = BaseMainForm.controls("C1Ribbon1")
For Each o As object In RibbonTabs
o.visible = True
Next
obj.HideTabHeaderRow = False
unlockbasemainform
方法二：
http://www.foxtable.com/webhelp/scr/1057.htm
-- 发布时间：2018/8/28 16:10:00
--
感谢，我用了第二种方案