主题：分区界面与窗口高度

窗口为主窗口，sp1.Panel2为固定分区，如何读取窗口生成后的sp1.Panel1的高度，为什么sp1.Panel1.Height的高度是原窗口设计时的高度？

老师有没有办法根据不同电脑显示屏的窗口尺寸动态计算出窗口Table1加载行数？

Dim sp1 As WinForm.SplitContainer = e.Form.Controls("SplitContainer1")

'Dim n As Integer = Math.Floor((tb1.Grid.Height-20)/32)  '根据窗口tb1计算出加载行数
Dim n As Integer = Math.Floor((sp1.Panel1.Height-30)/32)  '根据窗口tb1计算出加载行数

需求：根据SplitContainer3的Panel1.Height计算出加载行数，但现在打开窗口没有加载数据？但点击“下一页”时数据又加载进来，如何调整?

设计思路：

通过窗口SizeChanged中计算出需加载行数rws,传递到全局代码中的rws,然后窗口AfterLoad模拟“第一页”代码进行加载数据。

1、在全局代码中设置rws变量，第一页、上一页、下一页、最末页设置函数，

2、窗口SizeChanged中：

Dim tb1 As Table = Tables(e.Form.Name & "_Table1")
Dim Rowheig As Integer = tb1.DefaultRowHeight
Dim sp3 As WinForm.SplitContainer = e.Form.Controls("SplitContainer3")
rws = Math.Floor((sp3.Panel1.Height - 60)/Rowheig) -1   '根据窗口tb1计算出加载行数

此主题相关图片如下：99999.png

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:目录树及加载.foxdb