以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  tabcontrol 页面权限  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65407)
--  作者：swagger
--  发布时间：2015/3/15 19:24:00
--  tabcontrol 页面权限

tabcontrol切换页面用什么代码控制权限？

 

在selectedindexchaning 里

 

if user.name <> "ft" then

 

Forms("窗口").Controls("TabControl1").basecontrol.enabled= false

 

end if

 

是不是这样

 

 

 

 
--  作者：有点甜
--  发布时间：2015/3/15 19:27:00
--  

大致这样

 

If e.Sender.SelectedPage.Text = "page2" Then
    If user.Name = "开发者" Then
        For Each c As Object In e.Sender.SelectedPage.Children
            c.Enabled = False
        Next
    Else
        For Each c As Object In e.Sender.SelectedPage.Children
            c.Enabled = True
        Next
    End If
End If
--  作者：swagger
--  发布时间：2015/3/15 20:10:00
--  

那隐藏某个页面呢？

 

if If e.Sender.SelectedPage.Text = "数据统计" Then

 

Forms("窗口").Controls("TabControl1").SelectedPage.Visible = False

 

end if

 

放在afterload里面，只能隐藏第一页

 
--  作者：swagger
--  发布时间：2015/3/15 20:11:00
--  

Forms("窗口").Controls("TabControl1").SelectedPage.Visible = False

 

是不是该用类似

 

Forms("窗口").Controls("TabControl1").SelectedPage.tabpages(1).Visible = False

Forms("窗口").Controls("TabControl1").SelectedPage(0).Visible = False

--  作者：swagger
--  发布时间：2015/3/15 20:13:00
--  
以下是引用有点甜在2015/3/15 19:27:00的发言：

大致这样

 

If e.Sender.SelectedPage.Text = "page2" Then
    If user.Name = "开发者" Then
        For Each c As Object In e.Sender.SelectedPage.Children
            c.Enabled = False
        Next
    Else
        For Each c As Object In e.Sender.SelectedPage.Children
            c.Enabled = True
        Next
    End If
End If

可以了，刚才说错了，这段代码应该selectedindexchanged

[此贴子已经被作者于2015/3/15 20:14:13编辑过]
--  作者：有点甜
--  发布时间：2015/3/15 20:14:00
--  

Forms("窗口").Controls("TabControl1").Tabpages(0).Visible = False

Forms("窗口").Controls("TabControl1").Tabpages(1).Visible = False