窗口AfterLoad事件
Dim sp = forms("窗口1").Controls("FileManager1").basecontrol.Controls("SplitContainer1")sp.Orientation = 1sp.SplitterDistance = sp.width-40