| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 菜单闪现 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88354) |
| -- 作者：南望 -- 发布时间：2016/8/1 14:28:00 -- 菜单闪现 以下代码放到AfterOpenProject事件中时，当以项目经理登录后“管理3”和“管理4”的菜单会闪现一下后才会消失，这个过程都看得很清楚，体验很不好，有什么办法不让失效的菜单闪现吗？ Select Case _UserGroup Case "项目经理" RibbonTabs("管理1").Visible = True RibbonTabs("管理2").Visible = True RibbonTabs("管理3").Visible = False RibbonTabs("管理4").Visible = False Case "总经理" RibbonTabs("管理1").Visible = True RibbonTabs("管理2").Visible = True RibbonTabs("管理3").Visible = True RibbonTabs("管理4").Visible = True end select |
| -- 作者：大红袍 -- 发布时间：2016/8/1 14:52:00 -- 我测试这两句代码，并没有闪
RibbonTabs("Table").Visible = False
你做个例子上来看看 |
| -- 作者：大红袍 -- 发布时间：2016/8/1 14:56:00 -- 或者，试试
Dim a As C1Ribbon.C1Ribbon = BaseMainForm.controls("C1Ribbon1")
|