以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]分区面板  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187109)

--  作者:江南小镇
--  发布时间:2023/6/21 15:09:00
--  [求助]分区面板
老师好,怎样设置分区面板(Panel2)的高度或宽度。
--  作者:有点蓝
--  发布时间:2023/6/21 15:11:00
--  
http://www.foxtable.com/webhelp/topics/0819.htm
--  作者:江南小镇
--  发布时间:2023/6/21 17:20:00
--  
老师,分区面板(上下分区的第二分区的高度)用代码搞不定。谢谢老师
--  作者:有点蓝
--  发布时间:2023/6/21 17:34:00
--  
写了什么代码?
--  作者:江南小镇
--  发布时间:2023/6/21 17:38:00
--  
老师,我要设置分区面板二的高度。下面代码不起作用。

e.Form.Controls("SplitContainer2").Panel2.Height = 100

[此贴子已经被作者于2023/6/21 19:50:03编辑过]

--  作者:hongsejiyi
--  发布时间:2023/6/23 18:02:00
--  
可以试一下,设置面板的扩展尺寸,是否能完成你的需求(或者使用锚定、停靠功能)
Dim p As WinForm.SplitContainer = e.Form.Controls("SplitContainer2")
Dim p1 = p.Panel2
p1.ExtendSize  = New Size(200, 400)    ’100为宽,200为高
p1.ExtendSize = New Size(p1.Width, 400)  \'宽不变,高为400,经实际测试,新尺寸大于原尺寸时有效

--  作者:有点蓝
--  发布时间:2023/6/24 20:33:00
--  
请认真理解一下2楼的帮助

e.Form.Controls("SplitContainer2").SplitterDistance = 100

如果panel1是固定的,SplitterDistance 就是panel1的高度,panel2的高度=SplitContainer的高度-panel1的高度,在SplitContainer的高度不变的情况下,设置了panel1的高度也就大于设置了panel2的高度

--  作者:江南小镇
--  发布时间:2023/6/24 20:48:00
--  
老师,理解不了panel1的高度的根据窗口大小自由落定,2分区的高度固定在一个量的范围内。
--  作者:有点蓝
--  发布时间:2023/6/24 20:52:00
--  
请上传实例说明