- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]窗口分区如何自动根据屏幕自动平分 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178102)
-- 发布时间：2022/6/18 7:29:00
-- [求助]窗口分区如何自动根据屏幕自动平分
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:平分.table |
窗口的afterload事件如下：
Dim wz As Integer = e.Form.Controls("SplitContainer1").Width
Dim p As WinForm.SplitPanel = e.Form.Controls("SplitContainer2").Panel2
p.Left = wz/2
e.Form.Controls("SplitContainer2").SplitterDistance = wz / 2
此主题相关图片如下：1.png
[此贴子已经被作者于2022/6/18 7:29:03编辑过]
-- 发布时间：2022/6/18 8:13:00
--
设置第一个分区的扩展尺寸，宽度为500，高度为400：
Dim p As WinForm.SplitPanel =
Forms("窗口2").Controls("SplitContainer1").Panel1
p.ExtendSize = New
Size(500,400)
-- 发布时间：2022/6/18 8:54:00
--
代码放到sizechanged事件