- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 动态生成的 Splitcontainer 的分隔条的位置 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149639)
-- 发布时间：2020/5/8 11:17:00
-- 动态生成的 Splitcontainer 的分隔条的位置
我在程序中动态生成一个 SplitContainer，分隔条的位置默在黄金分隔的位置，希望左边的 Panel 能窄一点，请问如何在程序内用语句控制？
我设置如下，没反应
Dim p As WinForm.SplitPanel =
Forms("窗口2").Controls("SplitContainer1").Panel1
p.width = 200
-- 发布时间：2020/5/8 11:37:00
--
Dim p As WinForm.SplitPanel = Forms("窗口2").Controls("SplitContainer1")
p.SplitterDistance= 200
-- 发布时间：2020/5/8 11:55:00
--
哈哈，我看了几遍说明书都没有看到，眼睛像有漏洞一样。
多谢多谢！！
-- 发布时间：2022/10/2 9:54:00
--
这个不能设置panel2的宽度。
Dim p As WinForm.SplitPanel = Forms("窗口2").Controls("SplitContainer1").Panel1
p.width = 200 这个原来是可以的。
p.width = 200 这个原来是可以的。
-- 发布时间：2022/10/4 9:46:00
--
SplitContainer1的宽度是500，固定的是Panel1，那么设置p.SplitterDistance= 200后，Panel1的宽度就是200，Panel2的宽度就是500-200=300