以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  功能区如何不显示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109181)

--  作者:huhu
--  发布时间:2017/11/6 14:13:00
--  功能区如何不显示

图片点击可在新窗口打开查看此主题相关图片如下:功能区.jpg
图片点击可在新窗口打开查看
前面2个功能区都有内容所以需要显示。但后面那个功能区没内容,所以希望不要显示。

--  作者:有点甜
--  发布时间:2017/11/6 14:39:00
--  

selectTab事件

 

Dim a As C1Ribbon.C1Ribbon = BaseMainForm.controls("C1Ribbon1")
a.VisualStyle = 0
a.RibbonStyle.ColorSet(C1.Win.C1Ribbon.StyleColor.TabBackground) = Color.Bisque
a.RibbonStyle.ColorSet(C1.Win.C1Ribbon.StyleColor.FormBackground) = Color.LightSkyBlue
a.RibbonStyle.ConstSet(C1.Win.C1Ribbon.StyleConst.ContentAreaHeight) = 0

 

或者

 

Dim a As object = BaseMainForm.controls("C1Ribbon1")
a.height = 50


--  作者:188802386
--  发布时间:2018/1/4 13:10:00
--  
我是所有功能区都没有内容,请问如何全部都不显示呢



--  作者:有点甜
--  发布时间:2018/1/4 14:58:00
--  

只能如2楼处理。如果菜单全部不显示,就这样写

 

BaseMainForm.controls("C1Ribbon1").visible = False