- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 【求助】窗体table怎么设置窗体大小改变之后，table表中的列也对应进行比例放大或缩小 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102528)
-- 发布时间：2017/6/21 21:13:00
-- 【求助】窗体table怎么设置窗体大小改变之后，table表中的列也对应进行比例放大或缩小
【求助】窗体table怎么设置窗体大小改变之后，table表中的列也对应进行比例放大或缩小呢？
不然窗体拉大，table中会存在空余部分，不美观
【有点色老师】思路解决如下：
如果是sqltable格式时代码放在窗体启动时，及大小改变后事件代码中：
Dim t As Table = Tables("登记订货_Table1")
Dim width As Double = t.grid.width
Dim sum As Double = 0
For Each c As object In t.grid.cols
If c.visible = True Then
sum += c.widthdisplay
End If
Next
For Each c As object In t.grid.cols
If c.visible = True Then
c.width = c.widthdisplay/sum*width
End If
Next
如果是table格式时代码放在窗体启动时，及大小改变后事件代码中：
Dim t As Table = Tables("Table1")
Dim width As Double = t.grid.width
Dim sum As Double = 0
For Each c As object In t.grid.cols
If c.visible = True Then
sum += c.widthdisplay
End If
Next
For Each c As object In t.grid.cols
If c.visible = True Then
c.width = c.widthdisplay/sum*width
End If
Next
[此贴子已经被作者于2017/6/22 13:15:33编辑过]
-- 发布时间：2017/6/21 22:21:00
--
参考代码
Dim t As Table = Tables("表A")
Dim width As Double = t.grid.width
Dim sum As Double = 0
For Each c As object In t.grid.cols
If c.visible = True Then
sum += c.widthdisplay
End If
Next
For Each c As object In t.grid.cols
If c.visible = True Then
c.width = c.widthdisplay/sum*width
End If
Next
-- 发布时间：2017/6/21 23:50:00
-- 回复：（有点色） 参考代码 Dim t As T...
放在窗体启动后事件么？我明天电脑上试一试，谢谢先
-- 发布时间：2017/6/22 9:35:00
-- 回复：（有点色） 参考代码 Dim t As T...
有点色老师 是放在窗口SIZECHANGED事件中么？经过测试 还是不能完美实现填充哦
-- 发布时间：2017/6/22 10:10:00
--
我测试没问题。有问题上传实例说明。
-- 发布时间：2017/6/22 10:31:00
-- 回复：（有点色）?我测试没问题。有问题上传实例...
有点色老师 是放在窗口SIZECHANGED事件中么？还是其他事件呢？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:窗体大小改变窗体表列宽自动填充测试.table |
[此贴子已经被作者于2017/6/22 10:34:00编辑过]
-- 发布时间：2017/6/22 11:02:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:窗体大小改变窗体表列宽自动填充测试.table |
-- 发布时间：2017/6/22 11:48:00
-- 回复：（有点色）[upload=table,窗体大小改变窗体表列...
谢谢。原来是要在窗体加载后及大小改变事件都要写入对应的代码