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

老师，隐藏后不显示

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

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