以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]非开发者登录时隐藏系统菜单？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=29055)
--  作者：红颜
--  发布时间：2013/2/26 16:00:00
--  [求助]非开发者登录时隐藏系统菜单？

非开发者登录时隐藏系统菜单，菜单区什么也不让显示，下面代码不起作用

代码位置：AfterOpenProject

ApplicationMenu.LeftItems.Clear
ApplicationMenu.RightItems.Clear
ApplicationMenu.BottomItems.Clear
ApplicationMenu.DropdownWidth = 0

 

如何才能做到呢？

我是不让系统菜单显示出来，下面代码也没有用

ApplicationMenu.Enabled = False

[此贴子已经被作者于2013-2-26 16:01:44编辑过]
--  作者：狐狸爸爸
--  发布时间：2013/2/26 16:03:00
--  

AfterOpenProject事件：

 

If User.Type <> UserTypeEnum.Developer Then
    For Each tab As ribbonmenu.tab In RibbonTabs
        tab.Visible = False
    Next
    qat.Visible = False

    ApplicationMenu.visible = False
End If

[此贴子已经被作者于2013-2-26 16:04:07编辑过]
--  作者：红颜
--  发布时间：2013/2/26 16:11:00
--  
以下是引用狐狸爸爸在2013-2-26 16:03:00的发言：

AfterOpenProject事件：

 

If User.Type <> UserTypeEnum.Developer Then
    For Each tab As ribbonmenu.tab In RibbonTabs
        tab.Visible = False
    Next
    qat.Visible = False

    ApplicationMenu.visible = False
End If

 

 

[此贴子已经被作者于2013-2-26 16:04:07编辑过]


图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg
图片点击可在新窗口打开查看

 

老总，我想把菜单区整个隐藏调，上面这一块也不能显示的，谢谢！


 


图片点击可在新窗口打开查看此主题相关图片如下：未命名1.jpg
图片点击可在新窗口打开查看
 只显示窗口标题栏

 

状态栏也不显示

[此贴子已经被作者于2013-2-26 16:16:27编辑过]
--  作者：狐狸爸爸
--  发布时间：2013/2/26 16:15:00
--  

这样：

If User.Type <> UserTypeEnum.Developer Then
    For Each tab As ribbonmenu.tab In RibbonTabs
        tab.Visible = False
    Next
    qat.Visible = False
    ApplicationMenu.visible = False
    ConfigBar.items.clear
End If

不过你得购买开发版才行，否则配置栏始终会显示的。
--  作者：红颜
--  发布时间：2013/2/26 16:25:00
--  
以下是引用狐狸爸爸在2013-2-26 16:15:00的发言：

这样：

If User.Type <> UserTypeEnum.Developer Then
    For Each tab As ribbonmenu.tab In RibbonTabs
        tab.Visible = False
    Next
    qat.Visible = False
    ApplicationMenu.visible = False
    ConfigBar.items.clear
End If

不过你得购买开发版才行，否则配置栏始终会显示的。

让配置栏的高度为0怎么样？能不能设置？
--  作者：红颜
--  发布时间：2013/2/26 16:26:00
--  
让配置栏的高度为0怎么样？能不能设置？
--  作者：狐狸爸爸
--  发布时间：2013/2/26 16:31:00
--  

 不可以
--  作者：布莱克朱
--  发布时间：2013/2/26 19:07:00
--  
搞个超级的  啥菜单都看不到的代码:

Dim Ribbon As C1Ribbon.C1Ribbon = BaseMainform.Controls("C1Ribbon1")
Ribbon.Visible = False
--  作者：flashv
--  发布时间：2013/3/29 12:12:00
--  
用自定义的菜单不可以么?如何显示不就自由了?