-- 作者:yd0731
-- 发布时间:2013/12/5 15:52:00
--
感谢bin,
自己找到了另外一种方法,先把固定分区取消掉,然后用:
Dim a1 As Single = e.Form.Controls("SplitContainer1").Height e.Form.Controls("SplitContainer1").SplitterDistance = a1/2
通过上面的命令可以达到上下分区高度各分50%的效果。
[此贴子已经被作者于2013-12-5 15:54:46编辑过]
|