标题：如何灵活显示分区面板？

1楼

lin98 发表于：2024/7/20 10:33:00

如图：分区面板-上，分区面板-下，

此主题相关图片如下：分区面板显示.png

2楼

有点蓝 发表于：2024/7/20 10:44:00

3楼

lin98 发表于：2024/7/20 12:40:00

无法实现，请老师在实例上帮纠正，谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:样式.zip

4楼

有点蓝 发表于：2024/7/20 13:55:00

测试没有任何问题。上面的例子是自己给自己挖了个坑。把不同分区使用不同的背景，放不同的控件测试就明白了

5楼

lin98 发表于：2024/7/20 14:57:00

问题一：扩张时，分区面板分隔没有变化，需求，面板1扩张占分区面板的80%，分区面板分隔向下把面板2缩小到占分区面板的20%或在底部？实例执行，没有达到其效果，如何处理？

问题二：隐藏，隐藏面板2，分区面板分隔向下在窗口底，面板1占分区面板100%？实例执行，没有达到其效果，如何处理？

6楼

有点蓝 发表于：2024/7/20 15:10:00

1、这种不能设置Collapsed，要去设置SplitterDistance：http://www.foxtable.com/webhelp/topics/0819.htm

2、3楼实例测试没有任何问题，原因看4楼

7楼

lin98 发表于：2024/7/20 15:27:00

问题一：

Dim p As WinForm.SplitPanel = Forms("窗口4").Controls("SplitContainer1").SplitterDistance

p.ExtendSize = New Size(500, 400)

执行错：

无法将类型为“System.Int32”的对象强制转换为类型“Foxtable.WinForm.SplitPanel”。

问题二：

只隐藏面板2，分区面板分隔没有向下在窗口底，面板1占分区面板没有100%？表2也没跟变化？

8楼

有点蓝 发表于：2024/7/20 15:32:00

1、基本的对象和对象属性的概念都搞错了

Dim p As WinForm.SplitPanel = Forms("窗口4").Controls("SplitContainer1")

p.SplitterDistance = p.height * 0.8

2、分区面板1肯定有向下。至于表格，那是另外一个控件的设置，和面板有啥关系？

9楼

lin98 发表于：2024/7/20 15:55:00

2、分区面板1肯定有向下。我浿试没有向下，把您测试上传，我再测试一下，谢谢

10楼

lin98 发表于：2024/7/20 16:01:00

Dim p As WinForm.SplitPanel = Forms("窗口4").Controls("SplitContainer1")

p.SplitterDistance = p.height * 0.8

报错：SplitterDistance不是WinForm.SplitPanel 成员？

共15 条记录, 每页显示 10 条, 页签: [1] [2]