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

wh1234567

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

自动调整列宽行高 (高级表格1, , 30, 20, 5)  ' 有问题 当“列宽边距 ”大于“行高边距”数值时就会字体显示行高不完整，只能大于等于，求老师再帮忙改改吧

LEOONL

wh1234567 发表于 2024-12-24 13:58
自动调整列宽行高 (高级表格1, , 30, 20, 5)  ' 有问题 当“列宽边距 ”大于“行高边距”数值时就会字体 ...

我不知道你想干嘛, 显示不完整不是你自己写的么

自动调整列宽行高 (高级表格1, , 30, 20, 5)  ' 有问题 当“列宽边距 ”大于“行高边距”数值时就会字体显示行高不完整，只能大于等于，求修正。
高级表格名称.置行高 (行, 画板.取宽度 (“1”) × 2 ＋ 高级表格名称.取边距 (行, 列) ÷ 1.33 － 20 + 5)  ' 我修改的。如何修改为和宽边距不一样的距离？

你这样看不是就明白了?

wh1234567

LEOONL 发表于 2024-12-24 14:18
我不知道你想干嘛, 显示不完整不是你自己写的么

自动调整列宽行高 (高级表格1, , 30, 20, 5)  ' 有问题  ...

当“列宽边距 ”大于“行高边距”数值时就会字体显示行高不完整，这个怎么修正呢？

LEOONL

wh1234567 发表于 2024-12-24 15:25
当“列宽边距 ”大于“行高边距”数值时就会字体显示行高不完整，这个怎么修正呢？ ...

我不知道你想干嘛啊,你这不是只有置行高么,那你的列边距是干嘛的,你去掉列边距直接加行高边距不就行了?

wh1234567

LEOONL 发表于 2024-12-24 15:41
我不知道你想干嘛啊,你这不是只有置行高么,那你的列边距是干嘛的,你去掉列边距直接加行高边距不就行了? ...

https://uy.wzznft.com/i/2024/12/24/qtq6u4.jpg
高级表格名称.置行高 (行, 画板.取宽度 (“1”) × 2 ＋ 高级表格名称.取边距 (行, 列) ÷ 1.33 ＋ 行高边距)
就是上面链接的效果，不减的话就会出现行与行之间距离太大了，所以才想自由调整，老师再仔细看看怎么修正

LEOONL

wh1234567 发表于 2024-12-24 16:24
https://uy.wzznft.com/i/2024/12/24/qtq6u4.jpg
高级表格名称.置行高 (行, 画板.取宽度 (“1”) × 2 ＋ ...

你要加就写加 要减就写减,有什么问题?

wh1234567

LEOONL 发表于 2024-12-24 16:26
你要加就写加 要减就写减,有什么问题?

为的意思是，当宽边距=0就显示实际内容所占的宽度即可，当宽边距=多少就是宽度间隔多少。当高边距=0就按字体实际高度显示，当高边距=多少就是行高度表格间隔多少。时这个意思，现在的问题是经过我在您源码的基础上修改了一下，发现一个问题，就是当“列宽边距”大于“行高边距”数值时就会导致字体内容上下显示不完整，所以希望老师再修正一下，注意：字体大小可以任意设定

补充内容 (2024-12-24 16:53):
高级表格名称.置行高 (行, 画板.取宽度 (“1”) × 2 ＋ 高级表格名称.取边距 (行, 列) ÷ 1.33 － 列宽边距 ＋ 行高边距)
https://uy.wzznft.com/i/2024/12/24/rbrul0.jpg

LEOONL

wh1234567 发表于 2024-12-24 16:47
为的意思是，当宽边距=0就显示实际内容所占的宽度即可，当宽边距=多少就是宽度间隔多少。当高边距=0就按 ...

你要加宽就在 高级表格c.置列宽 (列, 宽) 这里置,你要加高才用 高级表格c.置行高,你在 置行高这一句里又加又减的搁这算什么呢

LEOONL

  

子程序名	返回值类型	公开	备 注
自动调整列宽行高
参数名	类 型	参考	可空	数组	备 注
高级表格名称	高级表格
列	整数型				可空:空为全列，不空为指定某列
字体尺寸	整数型				' 我新增的
列宽边距	整数型				' 我新增的
行高边距	整数型				' 我新增的

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

高级表格名称.置字体尺寸 (0, 0, 高级表格名称.行数, 高级表格名称.列数, 字体尺寸)
如果 (是否为空 (列))
计次循环首 (高级表格名称.列数, q)
宽 ＝ 0
计次循环首 (高级表格名称.行数, n)
行 ＝ n － 1
列 ＝ q － 1
画板.字体.字体大小 ＝ 高级表格名称.取字体尺寸 (行, 列) ÷ 1.33
高级表格名称.置字体名 (行, 列, , , “宋体”)
高级表格名称.置字体尺寸 (行, 列, , , 四舍五入 (画板.字体.字体大小 × 1.33, ))
高级表格名称.置边距 (行, 列, , , 列宽边距)  ' 我修改的
如果真 (画板.取宽度 (高级表格名称.取数据 (行, 列)) ＋ 2 ＋ 高级表格名称.取边距 (行, 列) ÷ 1.33 ＞ 宽)  ' 我修改的
宽 ＝ 画板.取宽度 (高级表格名称.取数据 (行, 列)) ＋ 2 ＋ 高级表格名称.取边距 (行, 列) ÷ 1.33  ' 我修改的
高级表格名称.置列宽 (列 , 宽＋ 列宽边距)
高级表格名称.置行高 (行, 画板.取宽度 (“1”) × 2 ＋ 高级表格名称.取边距 (行, 列) ÷ 1.33 ＋ 行高边距)  ' 我修改的。如何修改为和宽边距不一样的距离？
计次循环尾 ()
计次循环尾 ()
计次循环首 (高级表格名称.行数, n)
行 ＝ n － 1
画板.字体.字体大小 ＝ 高级表格名称.取字体尺寸 (行, 列) ÷ 1.33
高级表格名称.置字体名 (行, 列, , , “宋体”)
高级表格名称.置字体尺寸 (行, 列, , , 四舍五入 (画板.字体.字体大小 × 1.33, ))
高级表格名称.置边距 (行, 列, , , 列宽边距)  ' 我修改的
如果真 (画板.取宽度 (高级表格名称.取数据 (行, 列)) ＋ 2 ＋ 高级表格名称.取边距 (行, 列) ÷ 1.33 ＞ 宽)  ' 我修改的
宽 ＝ 画板.取宽度 (高级表格名称.取数据 (行, 列)) ＋ 2 ＋ 高级表格名称.取边距 (行, 列) ÷ 1.33  ' 我修改的
高级表格名称.置列宽 (列, 宽 ＋ 列宽边距)
高级表格名称.置行高 (行, 画板.取宽度 (“1”) × 2 ＋ 高级表格名称.取边距 (行, 列) ÷ 1.33 ＋ 行高边距)  ' 我修改的。如何修改为和宽边距不一样的距离？
计次循环尾 ()

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

.版本 2<br /> .支持库 eGrid<br /> <br /> .子程序 自动调整列宽行高<br /> .参数 高级表格名称, 高级表格<br /> .参数 列, 整数型, 可空, 可空:空为全列，不空为指定某列<br /> .参数 字体尺寸, 整数型, , ' 我新增的<br /> .参数 列宽边距, 整数型, , ' 我新增的<br /> .参数 行高边距, 整数型, , ' 我新增的<br /> .局部变量 n, 整数型<br /> .局部变量 q, 整数型<br /> .局部变量 行, 整数型<br /> .局部变量 宽, 整数型<br /> <br /> 高级表格名称.置字体尺寸 (0, 0, 高级表格名称.行数, 高级表格名称.列数, 字体尺寸)<br /> .如果 (是否为空 (列))<br />     .计次循环首 (高级表格名称.列数, q)<br />         宽 ＝ 0<br />         .计次循环首 (高级表格名称.行数, n)<br />             行 ＝ n － 1<br />             列 ＝ q － 1<br />             画板.字体.字体大小 ＝ 高级表格名称.取字体尺寸 (行, 列) ÷ 1.33<br />             高级表格名称.置字体名 (行, 列, , , “宋体”)<br />             高级表格名称.置字体尺寸 (行, 列, , , 四舍五入 (画板.字体.字体大小 × 1.33, ))<br />             高级表格名称.置边距 (行, 列, , , 列宽边距)  ' 我修改的<br />             .如果真 (画板.取宽度 (高级表格名称.取数据 (行, 列)) ＋ 2 ＋ 高级表格名称.取边距 (行, 列) ÷ 1.33 ＞ 宽)  ' 我修改的<br />                 宽 ＝ 画板.取宽度 (高级表格名称.取数据 (行, 列)) ＋ 2 ＋ 高级表格名称.取边距 (行, 列) ÷ 1.33  ' 我修改的<br />                 高级表格名称.置列宽 (列 , 宽＋ 列宽边距)<br />             .如果真结束<br />             高级表格名称.置行高 (行, 画板.取宽度 (“1”) × 2 ＋ 高级表格名称.取边距 (行, 列) ÷ 1.33 ＋ 行高边距)  ' 我修改的。如何修改为和宽边距不一样的距离？<br />         .计次循环尾 ()<br />     .计次循环尾 ()<br /> .否则<br />     .计次循环首 (高级表格名称.行数, n)<br />         行 ＝ n － 1<br />         画板.字体.字体大小 ＝ 高级表格名称.取字体尺寸 (行, 列) ÷ 1.33<br />         高级表格名称.置字体名 (行, 列, , , “宋体”)<br />         高级表格名称.置字体尺寸 (行, 列, , , 四舍五入 (画板.字体.字体大小 × 1.33, ))<br />         高级表格名称.置边距 (行, 列, , , 列宽边距)  ' 我修改的<br />         .如果真 (画板.取宽度 (高级表格名称.取数据 (行, 列)) ＋ 2 ＋ 高级表格名称.取边距 (行, 列) ÷ 1.33 ＞ 宽)  ' 我修改的<br />             宽 ＝ 画板.取宽度 (高级表格名称.取数据 (行, 列)) ＋ 2 ＋ 高级表格名称.取边距 (行, 列) ÷ 1.33  ' 我修改的<br />             高级表格名称.置列宽 (列, 宽 ＋ 列宽边距)<br />         .如果真结束<br />         高级表格名称.置行高 (行, 画板.取宽度 (“1”) × 2 ＋ 高级表格名称.取边距 (行, 列) ÷ 1.33 ＋ 行高边距)  ' 我修改的。如何修改为和宽边距不一样的距离？<br />     .计次循环尾 ()<br /> .如果结束

wh1234567

LEOONL 发表于 2024-12-24 17:13
你要加宽就在 高级表格c.置列宽 (列, 宽) 这里置,你要加高才用 高级表格c.置行高,你在 置行高这一句里又 ...

您发上来您修正后的源码好吗