以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何控制Tabcontrol中某个页签的权限  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=65607)
--  作者：jhq1989
--  发布时间：2015/3/19 9:29:00
--  如何控制Tabcontrol中某个页签的权限

“If User.IsRole("开发者") Or User.IsRole("管理员")
Dim pg As WinForm.TabPage

pg = Forms("指标库窗口").Controls("TabControl1").tabpage（10）

 pg.Visible = False

End If

这里面没有tabpage的方法啊，还有如果只是锁定不是隐藏改怎么写。
--  作者：有点甜
--  发布时间：2015/3/19 9:37:00
--  
 If User.IsRole("开发者") Or User.IsRole("管理员")
    Dim pg As WinForm.TabPage
    pg = Forms("指标库窗口").Controls("TabControl1").tabpages(1)
   
    pg.Visible = False
   
End If
--  作者：jhq1989
--  发布时间：2015/3/19 9:41:00
--  如果是锁定某个页签呢
还有这代码是写在哪呢
--  作者：有点甜
--  发布时间：2015/3/19 9:41:00
--  
afterload
--  作者：jhq1989
--  发布时间：2015/3/19 9:53:00
--  

如果要是冻结的话该怎么办
--  作者：jhq1989
--  发布时间：2015/3/19 9:56:00
--  

没有readonly这个方法啊

 
--  作者：有点甜
--  发布时间：2015/3/19 9:57:00
--  
If User.IsRole("开发者") Or User.IsRole("管理员")
    Dim pg As WinForm.TabPage
    pg = Forms("指标库窗口").Controls("TabControl1").tabpages(1)
    For Each c As object In pg.Children
        c.enabled = False
    Next
End If