以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 菜单中不存在名为"table"的功能区 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194481) |
-- 作者:郜磊 -- 发布时间:2024/12/15 2:27:00 -- 菜单中不存在名为"table"的功能区 老师,打扰一下,我在beforeopenproject项目事件里面写了一段很简单的代码, Dim Table1 As RibbonMenu.Tab Table1 = RibbonTabs("Table") Dim Table2 As RibbonMenu.Tab Table2 = RibbonTabs("Project") Dim Table3 As RibbonMenu.Tab Table3 = RibbonTabs("Other") If user.Type <> UserTypeEnum.Developer Or user.Type <> UserTypeEnum.Administrator Then Table1.Visible = False Table2.Visible = False Table3.Visible = False End If If user.Type = UserTypeEnum.Developer Or user.Type = UserTypeEnum.Administrator Then Table1.Visible = True Table2.Visible = True Table3.Visible = True End If |
-- 作者:郜磊 -- 发布时间:2024/12/15 3:15:00 -- 老师,我知道什么原因了,要在菜单设计那里加入代码才行 |
-- 作者:有点蓝 -- 发布时间:2024/12/15 20:00:00 -- beforeopenproject事件执行的时候,项目还没有打开,菜单还不存在。 可以到AfterOpenProject或者LoadUserSetting事件处理
|