- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]分区面板 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81549)
-- 发布时间：2016/3/1 10:05:00
-- [求助]分区面板
老师好，隐藏分区面板2分区面板1保持不变。
-- 发布时间：2016/3/1 10:41:00
--
设置属性
控件.SplitterDistance = 500
-- 发布时间：2016/3/1 20:04:00
--
老师，我Forms("系统").Controls("SplitContainer1").SplitterDistance = 250设置后没有，2分区隐藏后1分区还是被拉出去了。
-- 发布时间：2016/3/1 20:05:00
--
e.Form.Controls("SplitContainer1").Panel2Collapsed = True
-- 发布时间：2016/3/1 22:21:00
--
没看懂你的意思，上传具体说明问题。
-- 发布时间：2016/3/2 8:36:00
--
此主题相关图片如下：图像 1.png
-- 发布时间：2016/3/2 9:36:00
--
直接改下整个控件的宽度
Dim SplitContainer1 As WinForm.SplitContainer = e.Form.Controls("SplitContainer1")
SplitContainer1.Width = SplitContainer1.Panel1.Width
显示改回原值
Dim SplitContainer1 As WinForm.SplitContainer = e.Form.Controls("SplitContainer1")
SplitContainer1.Width = 400