标题：[求助]隐藏或显示分区面板

1楼

苏州老街 发表于：2025/3/27 18:16:00

老师好，点击页面集合的页签怎样隐藏或显示分区面板。

Forms.Controls("SplitContainer7").Visible=True

[此贴子已经被作者于2025/3/27 18:21:41编辑过]

2楼

有点蓝 发表于：2025/3/27 20:26:00

3楼

苏州老街 发表于：2025/3/27 20:58:00

老师，我的意思是点击页面集合的签页0显示控件SplitContainer1隐藏控件SplitContainer2点击签页1显示控件SplitContainer2隐藏控件SplitContainer1......

4楼

有点蓝 发表于：2025/3/27 21:17:00

e.Form.Controls("SplitContainer7").Visible=True

5楼

苏州老街 发表于：2025/3/27 22:14:00

老师，隐藏后不显示

Dim tab As WinForm.TabControl = forms("使用数据记录").controls("TabControl1")

Select Case tab.selectedpage.Text

Case "0"

e.Form.Controls("SplitContainer1").Visible=True

e.Form.Controls("SplitContainer1").TopMost= True

e.Form.Controls("SplitContainer2").Visible=False

e.Form.Controls("SplitContainer3").Visible=False

e.Form.Controls("SplitContainer4").Visible=False

Case "1"

e.Form.Controls("SplitContainer2").Visible=True

e.Form.Controls("SplitContainer2").TopMost= True

e.Form.Controls("SplitContainer1").Visible=False

e.Form.Controls("SplitContainer4").Visible=False

e.Form.Controls("SplitContainer3").Visible=False

Case "2"

e.Form.Controls("SplitContainer3").Visible=True

e.Form.Controls("SplitContainer3").TopMost= True

e.Form.Controls("SplitContainer1").Visible=False

e.Form.Controls("SplitContainer2").Visible=False

e.Form.Controls("SplitContainer4").Visible=False

Case "3"

e.Form.Controls("SplitContainer4").Visible=True

e.Form.Controls("SplitContainer4").TopMost= True

e.Form.Controls("SplitContainer1").Visible=False

e.Form.Controls("SplitContainer2").Visible=False

e.Form.Controls("SplitContainer3").Visible=False

End Select

6楼

有点蓝 发表于：2025/3/27 22:22:00

请上传实例测试

共6 条记录, 每页显示 10 条, 页签: [1]