以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助：同一窗口呈现不同情况的控件办法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75571)
--  作者：shixia
--  发布时间：2015/10/10 14:35:00
--  求助：同一窗口呈现不同情况的控件办法

有一个窗口，计划安排三组控件，当按下按钮A时，窗口中出现一组控件，当按下按钮B时，窗口中出现第二组控件，第一组消失，当按下按钮C时，窗口中出现第三组控件，前两组消失。当然对每一组控件中的每一单个控件进行控制了可以实现，但是当每组控件数量较多时就非常麻烦，而且代码超多，我相一次性处理一组控件，请教大家有什么好的办法
--  作者：Hyphen
--  发布时间：2015/10/10 15:12:00
--  
把一组控件都放到一个Panel(面板)中，统一设置Panel的显示和隐藏
--  作者：shixia
--  发布时间：2015/10/10 15:28:00
--  
试了，不行
--  作者：shixia
--  发布时间：2015/10/10 15:37:00
--  

窗口Forms("系统设置") 中有两个 Panel  面板，每个面板中有若干个不同类型的控件，我用以下代码无法 让参数Panel  面板有面板中所有的控件 可见。求高手帮助
Forms("系统设置").Controls("参数Panel").Visible = True
Forms("系统设置").Controls("参数Panel").TopMost= True

For Each FB As  WinForm.Control In Forms("系统设置").Controls("参数Panel").Children
    FB.Visible = True
    FB.TopMost= True
Next
Forms("系统设置").Controls("增加Panel").Visible = False
Forms("系统设置").Controls("增加Panel").BackMost = True
For Each FB As  WinForm.Control In Forms("系统设置").Controls("增加Panel").Children
    FB.Visible = False
    FB.BackMost = True
Next
--  作者：逛逛
--  发布时间：2015/10/10 15:46:00
--  

直接用TabControl吧

 

显示时设置他的 ShowTabs = False
--  作者：狐狸爸爸
--  发布时间：2015/10/10 15:48:00
--  

帮助有介绍：

http://www.foxtable.com/help/topics/2383.htm

 
--  作者：shixia
--  发布时间：2015/10/10 15:48:00
--  
是个办法
--  作者：shixia
--  发布时间：2015/10/10 16:27:00
--  
再请教：不用 SelectedIndex 而是直接

用 SelectedPage 选择页签标题或名称来切换页面的代码怎么写
[此贴子已经被作者于2015/10/10 16:27:40编辑过]
--  作者：Hyphen
--  发布时间：2015/10/10 17:00:00
--  
Dim tbl As WinForm.TabControl = e.Form.Controls("TabControl1")
For Each tp As WinForm.TabPage In tbl.TabPages
    If tp.Text = "Page2" Then
        tbl.SelectedPage = tp
        Exit For
    End If
Next