Foxtable(狐表)用户栏目专家坐堂 → 求助:同一窗口呈现不同情况的控件办法


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

主题:求助:同一窗口呈现不同情况的控件办法

帅哥哟,离线,有人找我吗?
shixia
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:759 积分:7038 威望:0 精华:1 注册:2008/9/2 20:04:00
求助:同一窗口呈现不同情况的控件办法  发帖心情 Post By:2015/10/10 14:35:00 [只看该作者]

有一个窗口,计划安排三组控件,当按下按钮A时,窗口中出现一组控件,当按下按钮B时,窗口中出现第二组控件,第一组消失,当按下按钮C时,窗口中出现第三组控件,前两组消失。当然对每一组控件中的每一单个控件进行控制了可以实现,但是当每组控件数量较多时就非常麻烦,而且代码超多,我相一次性处理一组控件,请教大家有什么好的办法


 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2015/10/10 15:12:00 [只看该作者]

把一组控件都放到一个Panel(面板)中,统一设置Panel的显示和隐藏

 回到顶部
帅哥哟,离线,有人找我吗?
shixia
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:759 积分:7038 威望:0 精华:1 注册:2008/9/2 20:04:00
  发帖心情 Post By:2015/10/10 15:28:00 [只看该作者]

试了,不行

 回到顶部
帅哥哟,离线,有人找我吗?
shixia
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:759 积分:7038 威望:0 精华:1 注册:2008/9/2 20:04:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
逛逛
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:1693 积分:12135 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2015/10/10 15:46:00 [只看该作者]

直接用TabControl吧

 

显示时设置他的 ShowTabs = False


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2015/10/10 15:48:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
shixia
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:759 积分:7038 威望:0 精华:1 注册:2008/9/2 20:04:00
  发帖心情 Post By:2015/10/10 15:48:00 [只看该作者]

是个办法

 回到顶部
帅哥哟,离线,有人找我吗?
shixia
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:759 积分:7038 威望:0 精华:1 注册:2008/9/2 20:04:00
  发帖心情 Post By:2015/10/10 16:27:00 [只看该作者]

再请教:不用 SelectedIndex 而是直接

用 SelectedPage 选择页签标题或名称来切换页面的代码怎么写

[此贴子已经被作者于2015/10/10 16:27:40编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By: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

 回到顶部