主题：求教如何设置tabcontrol的页面打开控制

求教如何设置tabcontrol的页面打开控制

你用这样写代码，在AfterLoad事件中，根据登录用户，隐藏其无权进入的页面即可。

狐爸，求详解，我只是希望在首页打开时能控制对应部门的人员打开tabcontrol页面，我不想隐藏页面啊～～～

SelectedIndexChanging事件：
 
Dim tb As WinForm.Tabcontrol = e.sender
Select Case tb.TabPages(e.newindex).Name
    Case "页面名称1","页面名称3"
        If _UserGroup <>  "业务部" Then
            e.cancel =True
            MessageBox.Show("非业务部人员无法进入!")
        End If
    Case "页面名称2","页面名称5"
        If _UserGroup <>  "办公室" Then
            e.cancel =True
            MessageBox.Show("非办公室人员无法进入!")
        End If
End Select

非常感谢，请问能否设置成直接按usergroup登录后打开对应的页面呢

窗口AlterLoad 事件判断usergroup设置 SelectedIndex=2 (指定页面的编号即可)  和你1楼的代码类似

窗口AfterLoad事件：
 
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Select Case _UserGroup
   case "张三"
        tab.SelectedIndex = 0
   case "李四"
        tab.SelectedIndex = 1
    case "王五"
        tab.SelectedIndex = 2
End Select

非常感谢两位～～

噢～～还是有提示错误啊！
此主题相关图片如下：20130918.jpg