- 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=40186)
-- 发布时间：2013/9/11 14:28:00
-- 求教如何设置tabcontrol的页面打开控制
求教如何设置tabcontrol的页面打开控制
tabcontrol有9个页面的，我想设置成每点击一个页面由_usergroup 控制 我在SelectedIndexChanging事件中设置的
我自己写的代码：Dim tb As WinForm.Tabcontrol = e.sender
If _UserGroup = "业务部" Then
tb = Forms("首页").Controls("TabControl1").TabPages(0)
Else MessageBox.Show("非业务部人员无法进入!")
End If
我写的代码明显是错的，请高手指点～～～～～～～～·
[此贴子已经被作者于2013-9-11 14:29:09编辑过]
-- 发布时间：2013/9/11 14:29:00
--
你用这样写代码，在AfterLoad事件中，根据登录用户，隐藏其无权进入的页面即可。
-- 发布时间：2013/9/11 14:33:00
--
狐爸，求详解，我只是希望在首页打开时能控制对应部门的人员打开tabcontrol页面，我不想隐藏页面啊～～～
[此贴子已经被作者于2013-9-11 14:35:38编辑过]
-- 发布时间：2013/9/11 14:38:00
--
Select e.sender.TabPages(e.NewIndex).Text
Case ="该页面的标题"
If _UserGroup <> "业务部" Then
MessageBox.show("非业务部人员无法进入")
e.cancel=True
End If
End Select
-- 发布时间：2013/9/11 14:39:00
--
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
[此贴子已经被作者于2013-9-11 14:39:23编辑过]
-- 发布时间：2013/9/11 14:54:00
--
非常感谢，请问能否设置成直接按usergroup登录后打开对应的页面呢
-- 发布时间：2013/9/11 15:01:00
--
窗口AlterLoad 事件判断usergroup设置 SelectedIndex=2 (指定页面的编号即可) 和你1楼的代码类似
-- 发布时间：2013/9/11 15:02:00
--
窗口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
-- 发布时间：2013/9/11 16:10:00
--
非常感谢两位～～
-- 发布时间：2013/9/11 16:46:00
--
噢～～还是有提示错误啊！
此主题相关图片如下：20130918.jpg
发布打开后我选择是采购部的员工登录的，但首页还是以第一页面打开～
狐爸！bin！急救啊～～～～～～～～～～～～～～～～
[此贴子已经被作者于2013-9-12 9:45:26编辑过]