窗口 AfterLoad
Dim sc As WinForm.SplitContainer = e.Form.Controls("SplitContainer1")sc.IsSplitterFixed = Truesc.SplitterDistance = (sc.width - sc.SplitterWidth)/2
窗口 SizeChanged
Dim sc As WinForm.SplitContainer = e.Form.Controls("SplitContainer1")sc.SplitterDistance = (sc.width - sc.SplitterWidth)/2