以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何遍历页面集合的所有页面  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189784)

--  作者:zhangchi96
--  发布时间:2023/12/25 22:06:00
--  如何遍历页面集合的所有页面
1、 这是不显示页面集合里某一个页面的代码:
          Dim tab As WinForm.TabControl = e.form.controls("页面集合")
          tab.TabPages("按钮页面").Visible = false

2、如果一个页面集合里有许多个页面,甚至以后还会添加页面,目前我只想显示其中一个已知的页面,名字是:A页面,如何遍历所有页面,让他们都不显示,遍历到A页面就显示

--  作者:有点蓝
--  发布时间:2023/12/25 22:13:00
--  
Dim tab As WinForm.TabControl = e.form.controls("页面集合")
For Each p As WinForm.TabPage In tab.TabPages
    p.Visible = False
Next 
tab.TabPages("A页面").Visible = true

--  作者:zhangchi96
--  发布时间:2023/12/25 22:14:00
--  
谢谢,辛苦了!
--  作者:zhangchi96
--  发布时间:2023/12/26 20:56:00
--  
蓝版主,我原计划是在一个窗体中,插入了一个汇总表,在这个汇总表的click属性里,添加一个语句,
当点击其中一个列的汇总数值时,弹出一个窗体,就是开始提问提到的含有“页面集合”的窗体

因此需要用到你发给我的 一段代码,但这段代码是需要写在click属性里,
但系统提示语法不对 ,说form不是。。。。的成员,请问这段代码在click中应如何写?
(开始提问没说清楚,添麻烦了)

--  作者:有点蓝
--  发布时间:2023/12/26 21:09:00
--  
e.form
改为
forms("某某窗口")