| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 功能区恢复代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=140677) |
| -- 作者：Jaime -- 发布时间：2019/9/11 10:47: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 用以下代码恢复无用，这是管理快速访问栏的 For Each r As RibbonMenu.Tab In RibbonTabs r.visible = True Next ApplicationMenu.visible = True ConfigBar.visible = True 请问老师应该怎么恢复功能区？ |
| -- 作者：有点蓝 -- 发布时间：2019/9/11 10:58:00 -- Dim a As C1Ribbon.C1Ribbon = BaseMainForm.controls("C1Ribbon1") a.RibbonStyle.ConstSet(C1.Win.C1Ribbon.StyleConst.ContentAreaHeight) = 100
|
| -- 作者：Jaime -- 发布时间：2019/9/11 11:03:00 -- 老师 颜色变了，能变回原来的吗 |
| -- 作者：有点蓝 -- 发布时间：2019/9/11 11:08:00 -- 改为原来的样式咯 a.VisualStyle = 7 ‘0~7自行尝试
[此贴子已经被作者于2019/9/11 11:09:12编辑过]
|