Foxtable(狐表) → 用户栏目 → 专家坐堂 → 点击页面选项按钮隐藏页面集合的页面


  共有3306人关注过本帖树形打印复制链接

主题：点击页面选项按钮隐藏页面集合的页面
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109713 积分：558275 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/11 17:32:00 [显示全部帖子]

去掉SelectedIndexChanged代码

TopicLinkClick事件中写上：

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")

For i As Integer = 7 To 10

    tab.TabPages(i).Visible = False

Next

Select Case e.Link.Text

    Case "资产"

        Dim pg7 As WinForm.TabPage = tab.TabPages(7)

        pg7.Visible = True

        tab.SelectedPage = pg7

……
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109713 积分：558275 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/11 20:04:00 [显示全部帖子]

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")

For i As Integer = 7 To 10

    tab.TabPages(i).Visible = False

Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109713 积分：558275 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/11 21:02:00 [显示全部帖子]

只关闭一个页面？

e.Form.Controls("TabControl1").TabPages(0).Visible = False
或
e.Form.Controls("TabControl1").TabPages("某页面名称").Visible = False
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109713 积分：558275 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/11 21:54:00 [显示全部帖子]

放到按钮，或者任务栏点击事件里。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109713 积分：558275 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/11 22:50:00 [显示全部帖子]

Dim p As WinForm.TabPage = e.Form.Controls("TabControl1").TabPages("某页面名称")
if p.Visible then
p.Visible = False
else
p.Visible = true
endif
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109713 积分：558275 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/12 8:45:00 [显示全部帖子]

代码没有问题，应该是页签没有设置页面名称，或者名称不正确

 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109713 积分：558275 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/12 14:18:00 [显示全部帖子]

    Case "资产"
        Dim pg7 As WinForm.TabPage = tab.TabPages(7)
        If pg7.Visible Then
            pg7.Visible = False
        Else
            pg7.Visible = true
            tab.SelectedPage = pg7
        End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109713 积分：558275 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/12 14:48:00 [显示全部帖子]

上传实例

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询