以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]页面集合的问题!  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=16021)

--  作者:gaoyong30000
--  发布时间:2012/1/30 17:17:00
--  [求助]页面集合的问题!
我窗口A  页面集合设置的 双击就隐藏当前选中的页面

如何判断页面集合里页面全部隐藏后 就关闭当前窗口  ?
[此贴子已经被作者于2012-1-30 22:38:41编辑过]

--  作者:kitty
--  发布时间:2012/1/30 20:53:00
--  
假设有3个标签,那就设置3个Boolean型变量flag1,flag2,flag3,对应每个页面,隐藏一个就令Boolean型变量为false.再判断所有的变量是否都为false,如果是则关闭当前窗口。
--  作者:gaoyong30000
--  发布时间:2012/1/30 21:04:00
--  
额 这是个方法! 不过俺项目里有6个变量了 汗
--  作者:gaoyong30000
--  发布时间:2012/1/30 23:07:00
--  
Dim flag As Boolean=True
For Each pg As WinForm.TabPage In Forms("窗口1").Controls("TabControl1").TabPages
    If pg.Visible=True Then
        flag=False
    End If
Next
If flag=True  Then
    MessageBox.Show("都隐藏了")
Else
    MessageBox.Show("有没有隐藏的")
End If
多谢了~