以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]打开项目只显示独立窗口的代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56641)
--  作者：ZHX88863808
--  发布时间：2014/9/10 11:02:00
--  [求助]打开项目只显示独立窗口的代码

老师：除开发者和管理员外，其他人员打开项目时只显示独立窗口1，其他所有的功能区全部隐藏，代码怎么写呢
--  作者：有点甜
--  发布时间：2014/9/10 11:14:00
--  
If User.Type = UserTypeEnum.User Then
    Forms("窗口1").Open
    For Each r As object In RibbonTabs
        r.visible = False
    Next
End If
--  作者：ZHX88863808
--  发布时间：2014/9/10 11:15:00
--  
代码放在哪里最好？
--  作者：有点甜
--  发布时间：2014/9/10 11:18:00
--  
 afterOpenProject事件
--  作者：有点甜
--  发布时间：2014/9/10 11:19:00
--  
 或者LoadUserSetting事件
--  作者：ZHX88863808
--  发布时间：2014/9/10 11:23:00
--  

谢谢有点甜老师，如果所有的表和配置栏都不显示，怎么写？
--  作者：有点甜
--  发布时间：2014/9/10 11:25:00
--  
以下是引用ZHX88863808在2014-9-10 11:23:00的发言：

谢谢有点甜老师，如果所有的表和配置栏都不显示，怎么写？

 

Dim a As object = BaseMainForm.controls("C1Ribbon1")
a.ConfigToolBar.Visible = False     \'配置栏

For Each t As Table In Tables
    t.Visible = False
Next
--  作者：ZHX88863808
--  发布时间：2014/9/10 11:49:00
--  
搞错了，我的意思是，所有的功能区、配置栏和表都不显示，只显示窗口1，麻烦有点甜老师重新给我写一个，谢谢！
--  作者：有点甜
--  发布时间：2014/9/10 12:03:00
--  
If User.Type = UserTypeEnum.User Then
    Forms("窗口1").Open
    For Each r As object In RibbonTabs
        r.visible = False
    Next
    Dim a As object = BaseMainForm.controls("C1Ribbon1")
    a.ConfigToolBar.Visible = False     \'配置栏
   
    For Each t As Table In Tables
        t.Visible = False
    Next  
End If
--  作者：ZHX88863808
--  发布时间：2014/9/10 12:25:00
--  
谢谢老师！！！