关于高级表格行高自适应的函数

wh1234567

https://bbs.125.la/thread-14843920-1-1.html这个帖子是关于列宽的函数。能不能按我这个思路（上贴被采纳的）写个关于高级表格行高自适应的函数？方便调用，可以按指定某一行，也可以按全部行 这2种调用方法。
行高根据字体大小还是如何进行自动调整行的高度？希望老师帮忙

LEOONL

wh1234567 发表于 2024-12-24 17:34
https://uy.wzznft.com/i/2024/12/24/sj9p5v.jpg
效果图，主要是设置为行高间距=0时，行高度不和字体高度 ...

1 1.e (6.46 KB, 下载次数: 4)

2024-12-24 17:51 上传

点击文件名下载附件

真IKUN

好的，已经收到5BTC 请稍后……

wh1234567

希望老师帮忙..

wh1234567

想在此代码上增加2个参数名

补充内容 (2024-12-21 21:02):
.版本 2

.参数 字体大小
.参数 边距
发现字体太大会显示不完整，不能自动调整到完整显示，字体太小也边距不能跟随，求修正

wh1234567

  

子程序名	返回值类型	公开	备 注
高级表格列宽自适应			调用方法：高级表格列宽自适应 (高级表格1, 2, 2, 48, 0)
参数名	类 型	参考	可空	数组	备 注
高级表格名称	高级表格				例如：高级表格1
列	整数型				列为空时表示自适应全部列，不为空表示指定的列
行	整数型				行为空时表示自适应全部行，不为空表示指定的行
字体大小	整数型				为空时表示默认画板字体大小，不为空时表示修改成指定字体大小
边距	整数型				为空时表示默认边距为0，否则就是指定数值的边距

变量名	类 型	静态	数组	备 注
n	整数型
q	整数型
宽	整数型
高	整数型

字体大小 ＝ 画板.字体.字体大小
如果 (是否为空 (列))
计次循环首 (高级表格名称.列数, q)
宽 ＝ 0
高 ＝ 0
计次循环首 (高级表格名称.行数, n)
行 ＝ n － 1
列 ＝ q － 1
高级表格名称.置字体名 (行, 列, , , “宋体”)
高级表格名称.置字体尺寸 (行, 列, , , 四舍五入 (字体大小 × 1.33, ))
高级表格名称.置边距 (行, 列, , , 边距)
如果真 (画板.取宽度 (高级表格名称.取数据 (行, 列)) ＋ 2 ＞ 宽)
宽 ＝ 画板.取宽度 (高级表格名称.取数据 (行, 列)) ＋ 2
高级表格名称.置列宽 (列, 宽)

如果真 (画板.取高度 (高级表格名称.取数据 (行, 列)) ＋ 2 ＞ 高)这是我新增加的
高 ＝ 画板.取高度 (高级表格名称.取数据 (行, 列)) ＋ 2
高级表格名称.置行高 (列, 高)

计次循环尾 ()
计次循环尾 ()
计次循环首 (高级表格名称.行数, n)
行 ＝ n － 1
高级表格名称.置字体名 (行, 列, , , “宋体”)
高级表格名称.置字体尺寸 (行, 列, , , 四舍五入 (字体大小 × 1.33, ))
高级表格名称.置边距 (行, 列, , , 边距)
如果真 (画板.取宽度 (高级表格名称.取数据 (行, 列)) ＋ 2 ＞ 宽)
宽 ＝ 画板.取宽度 (高级表格名称.取数据 (行, 列)) ＋ 2
高级表格名称.置列宽 (列, 宽)

如果真 (画板.取高度 (高级表格名称.取数据 (行, 列)) ＋ 2 ＞ 高)这是我新增加的
高 ＝ 画板.取高度 (高级表格名称.取数据 (行, 列)) ＋ 2
高级表格名称.置行高 (列, 高)

计次循环尾 ()

i支持库列表	支持库注释
eGrid	高级表格支持库

.版本 2<br /> .支持库 eGrid<br /> <br /> .子程序 高级表格列宽自适应, , , 调用方法：高级表格列宽自适应 (高级表格1, 2, 2, 48, 0)<br /> .参数 高级表格名称, 高级表格, , 例如：高级表格1<br /> .参数 列, 整数型, 可空, 列为空时表示自适应全部列，不为空表示指定的列<br /> .参数 行, 整数型, 可空, 行为空时表示自适应全部行，不为空表示指定的行<br /> .参数 字体大小, 整数型, 可空, 为空时表示默认画板字体大小，不为空时表示修改成指定字体大小<br /> .参数 边距, 整数型, 可空, 为空时表示默认边距为0，否则就是指定数值的边距<br /> .局部变量 n, 整数型<br /> .局部变量 q, 整数型<br /> .局部变量 宽, 整数型<br /> .局部变量 高, 整数型<br /> <br /> 字体大小 ＝ 画板.字体.字体大小<br /> .如果 (是否为空 (列))<br />     .计次循环首 (高级表格名称.列数, q)<br />         宽 ＝ 0<br />         高 ＝ 0<br />         .计次循环首 (高级表格名称.行数, n)<br />             行 ＝ n － 1<br />             列 ＝ q － 1<br />             高级表格名称.置字体名 (行, 列, , , “宋体”)<br />             高级表格名称.置字体尺寸 (行, 列, , , 四舍五入 (字体大小 × 1.33, ))<br />             高级表格名称.置边距 (行, 列, , , 边距)<br />             .如果真 (画板.取宽度 (高级表格名称.取数据 (行, 列)) ＋ 2 ＞ 宽)<br />                 宽 ＝ 画板.取宽度 (高级表格名称.取数据 (行, 列)) ＋ 2<br />                 高级表格名称.置列宽 (列, 宽)<br />             .如果真结束<br /> <br />             .如果真 (画板.取高度 (高级表格名称.取数据 (行, 列)) ＋ 2 ＞ 高)这是我新增加的<br />                 高 ＝ 画板.取高度 (高级表格名称.取数据 (行, 列)) ＋ 2<br />                 高级表格名称.置行高 (列, 高)<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .计次循环尾 ()<br /> .否则<br />     .计次循环首 (高级表格名称.行数, n)<br />         行 ＝ n － 1<br />         高级表格名称.置字体名 (行, 列, , , “宋体”)<br />         高级表格名称.置字体尺寸 (行, 列, , , 四舍五入 (字体大小 × 1.33, ))<br />         高级表格名称.置边距 (行, 列, , , 边距)<br />         .如果真 (画板.取宽度 (高级表格名称.取数据 (行, 列)) ＋ 2 ＞ 宽)<br />             宽 ＝ 画板.取宽度 (高级表格名称.取数据 (行, 列)) ＋ 2<br />             高级表格名称.置列宽 (列, 宽)<br />         .如果真结束<br /> <br />         .如果真 (画板.取高度 (高级表格名称.取数据 (行, 列)) ＋ 2 ＞ 高)这是我新增加的<br />             高 ＝ 画板.取高度 (高级表格名称.取数据 (行, 列)) ＋ 2<br />             高级表格名称.置行高 (列, 高)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .如果结束

求修正


补充内容 (2024-12-21 22:07):
字体大小 ＝ 画板.字体.字体大小   应该放到 计次循环里面才对吧？

补充内容 (2024-12-21 22:12):
补充说明，原来的代码，当字体大小变化时会导致行高不变化从而内容显示不完整，所以想到需要修改，求老师帮忙完善修正一下吧

补充内容 (2024-12-21 22:19):
边距参数作用说明，当内容稠密时，如果是0的话分别不清，所以需要自定义调整一下边距，

补充内容 (2024-12-21 22:59):
高级表格列宽行高自适应(，，，，)

LEOONL

这个字体大小1.33是原作者固定写好的,改字体大小后这个数值我也不知道是多少,所以没法做自适应

wh1234567

LEOONL 发表于 2024-12-22 13:15
这个字体大小1.33是原作者固定写好的,改字体大小后这个数值我也不知道是多少,所以没法做自适应 ...

通过修改 画板.字体.字体大小  不行吗？

LEOONL

wh1234567 发表于 2024-12-22 13:21
通过修改 画板.字体.字体大小  不行吗？

就这样了,你自己调试吧

1.e (5.43 KB, 下载次数: 6)

2024-12-22 13:28 上传

点击文件名下载附件

wh1234567

LEOONL 发表于 2024-12-22 13:28
就这样了,你自己调试吧

[img]https://uy.wzznft.com/i/2024/12/22/8w8nif2.jpg https://uy.wzznft.com/i/2024/12/22/w0vipz.jpg[/img]

补充内容 (2024-12-22 19:39):
https://uy.wzznft.com/i/2024/12/22/8w8nif2.jpg
https://uy.wzznft.com/i/2024/12/22/w0vipz.jpg
为啥不能一样行高？再麻烦老师帮忙看看修正一下吧