以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  快捷菜单所在栏位的隐藏  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146522)

--  作者:newsun2k
--  发布时间:2020/2/25 17:28:00
--  快捷菜单所在栏位的隐藏
如图所示,我没有设置快捷菜单。
但是其所在的一栏还在,导致有较多的空白,如何隐藏?
图片点击可在新窗口打开查看此主题相关图片如下:无标题.jpg
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2020/2/25 17:37:00
--  
afteropenproject事件
If user.Type <> UserTypeEnum.Developer
BaseMainForm.controls("C1Ribbon1").visible = False
end if

--  作者:newsun2k
--  发布时间:2020/2/26 13:52:00
--  
我去,一执行,程序标题靠左显示了。
--  作者:有点蓝
--  发布时间:2020/2/26 14:26:00
--  
上传实例看看
--  作者:newsun2k
--  发布时间:2020/2/26 15:19:00
--  
如图,就是这个标题能否设置成居中。

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


--  作者:有点蓝
--  发布时间:2020/2/26 15:38:00
--  
主界面标题栏绿色位置那里的标题文字?默认就是居中的吧。做了什么设置?
--  作者:newsun2k
--  发布时间:2020/2/26 16:55:00
--  
是的,本来是居中的,执行BaseMainForm.controls("C1Ribbon1").visible = False,就这样了。
--  作者:有点蓝
--  发布时间:2020/2/26 17:29:00
--  
换种方式
Dim a As object = BaseMainForm.controls("C1Ribbon1")
For Each c As object In a.Tabs
    c.visible = False
Next


--  作者:newsun2k
--  发布时间:2020/4/14 15:57:00
--  
还有其他的办法吗?不起作用啊。
--  作者:newsun2k
--  发布时间:2020/4/14 15:59:00
--  
弄个按钮单独执行上面代码也不起作用。

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