假如是垂直分区,将区分2的高度固定为500
With e.Form.Controls("SplitContainer1") .SplitterDistance = . BaseControl.ClientSize.Height - 504End With