[求助]分区面板内控件布局问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

大家好，请教个分区面板内控件布局的问题：

我想将附件中分区面板左侧的上下二部分做成相等高度，且控件在各自分区内居中。

自己弄了很久都没弄好，请各位帮下忙，谢谢。

背景色只是为了区分各分区而设。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:分区面板测试.table

谢谢各位。

2楼的附件与我上传的附件一样的，不知是不是传错了？

3楼的代码左上按钮水平、垂直均居中，达到了我想要的效果，但左下的文本框水平居中，垂直没能居中。

5楼的效果与3楼基本相同，但我不清楚为什么要做成计划？！

再次谢谢各位！

[此贴子已经被作者于2013-6-5 15:52:45编辑过]

e.Form.Height 这个属性在代码编辑窗口怎么按Tab键后找不到呢？我还以为Form没有这个属性呢图片点击可在新窗口打开查看

以下是引用lsy在2013-6-5 15:56:00的发言：

Dim spl As WinForm.SplitContainer = e.Form.Controls("SplitContainer2")
Dim b As WinForm.Button = e.Form.Controls("Button1")
Dim t As WinForm.TextBox = e.Form.Controls("TextBox1")
spl.SplitterDistance = e.Form.Height/ 2
b.Top = (spl.SplitterDistance - b.Height)/2
t.Top = (spl.SplitterDistance - t.Height)/2
b.Left = (spl.Width - b.Width)/2
t.Left = (spl.Width - t.Width)/2

如果窗口是主窗口一类，设计大小与打开时的大小有区别，代码如下：

Dim spl As WinForm.SplitContainer = e.Form.Controls("SplitContainer2")
Dim b As WinForm.Button = e.Form.Controls("Button1")
Dim t As WinForm.TextBox = e.Form.Controls("TextBox1")
spl.SplitterDistance = WorkingAreaHeight*0.75/2
b.Top = (spl.SplitterDistance - b.Height)/2
t.Top = (spl.SplitterDistance - t.Height)/2
b.Left = (spl.Width - b.Width)/2
t.Left = (spl.Width - t.Width)/2

[此贴子已经被作者于2013-6-5 16:07:47编辑过]

越弄越复杂了，WorkingAreaHeight*0.75 这里为什么要 *0.75？

SplitContainer2上下二半没能相同高度。

主题：[求助]分区面板内控件布局问题