以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  隐藏功能组  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128315)
--  作者：hqy168168
--  发布时间：2018/12/3 18:31:00
--  隐藏功能组

系统维护  和  基本设置两个功能区没有功能组的内容，希望实现点击这两个功能区时不出现功能组的空白。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb
--  作者：有点蓝
--  发布时间：2018/12/3 20:18:00
--  
afteropenproject事件

For Each tab As RibbonMenu.Tab In RibbonTabs
    If tab.Groups.Count = 0 Then
        tab.Visible = False
    End If
Next
--  作者：hqy168168
--  发布时间：2018/12/4 20:08:00
--  
这个没有实现我的目的啊。要达到的意思是：点击“人员信息”，打开功能，点击“系统维护”和“基本设置”，打开某个主窗口（这两项没有功能组）
--  作者：有点蓝
--  发布时间：2018/12/4 20:30:00
--  
实现不了你所需要的用法
--  作者：有点甜
--  发布时间：2018/12/5 9:18:00
--  

方法一：

 

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 C1Ribbon.C1Ribbon = BaseMainForm.controls("C1Ribbon1")
a.height = 55