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