专家坐堂-[求助]隐藏或显示分区面板Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]隐藏或显示分区面板  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=196087)

--  作者：苏州老街
--  发布时间：2025/3/27 18:16:00
--  [求助]隐藏或显示分区面板

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

Forms.Controls("SplitContainer7").Visible=True
[此贴子已经被作者于2025/3/27 18:21:41编辑过]

--  作者：有点蓝
--  发布时间：2025/3/27 20:26:00
--
http://www.foxtable.com/webhelp/topics/1918.htm

--  作者：苏州老街
--  发布时间：2025/3/27 20:58:00
--
老师，我的意思是点击页面集合的签页0显示控件SplitContainer1隐藏控件SplitContainer2点击签页1显示控件SplitContainer2隐藏控件SplitContainer1......

--  作者：有点蓝
--  发布时间：2025/3/27 21:17:00
--
e.Form.Controls("SplitContainer7").Visible=True

--  作者：苏州老街
--  发布时间：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

--  作者：有点蓝
--  发布时间：2025/3/27 22:22:00
--
请上传实例测试