主题：[求助]狐爸，请帮解决下分区面板问题

狐爸好，项目设计中需要用到分区面板，希望分区面板上下二部分的高度随着窗口尺寸的不同能自动调整，请问如何实现？

 

我做了个例子见附件，希望窗口打开后SplitContainer2控件的上、下二部分（红色和蓝色）能根据窗口尺寸自动调整为相同高度，请帮忙设计下代码，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:分区面板测试.table

这个不是帮你设过了吗?

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:分区面板测试.table

 

这个上下两部分高度明显不一致呀，我要的是上下两部分高度相等。

怎么不一致啊,完全是等比例缩放的,只要你开始设置的比例对就行了.

设置一下这里,那么就会自动等比例缩放了. 
此主题相关图片如下：qq截图20130606142354.png

1、设计时只有个总高度数据，看不到上、下部分分别是多少高度，如何精确确定上下比例；

2、按你方法打开后明显下半部分比上半部分高。

上面小，是因为有个文本框吧，占了一点地方吧？

只能设计窗口的时候，调整好比例。

 

   是的呀，我就是要求除开文本框后（实际设计也有可能布置更多的其他控件）剩下的部分根据实际分辨率等情况自动分成相等高度的二部分。

   狐爸，这种问题在VB中是很好解决的呀，难道在FoxTable中做不到吗？

e.Form.Controls("SplitContainer2").SplitterDistance=e.Form.Controls("SplitContainer2").height/2-e.Form.Controls("SplitContainer2").SplitterWidth/2

AfterLoad事件：

 

e.Form.Controls("TextBox1").text="测试分区面板"
Dim sp As WinForm.SplitContainer = e.Form.Controls("SplitContainer2")
sp.FixedPanel =0
sp.SplitterDistance = (sp.Height- sp.SplitterWidth - 21 ) / 2 + 21