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

wh1234567

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

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

wh1234567

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

高级表格c.置行高 (行, 画板.取宽度 (“1”) × 2)  如何获得字体的实际高度？想加个行高边距

LEOONL

wh1234567 发表于 2024-12-22 22:59
高级表格c.置行高 (行, 画板.取宽度 (“1”) × 2)  如何获得字体的实际高度？想加个行高边距 ...

画板.取宽度 (“1”) × 2 就是高度了

wh1234567

LEOONL 发表于 2024-12-22 23:57
画板.取宽度 (“1”) × 2 就是高度了

.版本 2
.支持库 eGrid

高级表格根据字体大小自动调整列宽行高 (高级表格1, , 30, 20, 5)

.子程序 高级表格根据字体大小自动调整列宽行高, , ,
.参数 高级表格名称, 高级表格
.参数 列, 整数型, 可空, 可空:空为全列，不空为指定某列
.参数 字体尺寸, 整数型, , ' 我新增的
.参数 列宽边距, 整数型, ,  ' 我新增的
.参数 行高边距, 整数型, ,  ' 我新增的
.局部变量 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)  ' 和宽边距一样的距离。
                高级表格名称.置行高 (行, 画板.取宽度 (“1”) × 2 ＋ 高级表格名称.取边距 (行, 列) ÷ 1.33 － 列宽边距 ＋ 行高边距)  ' 如何修改为和宽边距不一样的距离？
            .如果真结束

        .计次循环尾 ()
    .计次循环尾 ()
还得麻烦老师指点修正一下了，您看看为什么当“列宽边距 ”大于“行高边距”数值时就会字体显示行高不完整？

LEOONL

wh1234567 发表于 2024-12-23 00:41
.版本 2
.支持库 eGrid

你问题太多了,帮不完了,该有的代码都有了,你自己试吧

wh1234567

LEOONL 发表于 2024-12-23 00:52
你问题太多了,帮不完了,该有的代码都有了,你自己试吧

呵呵呵，非常感谢老师，最后一次按我表述加入的参数修正一下即可，期待老师了

wh1234567

LEOONL 发表于 2024-12-23 00:52
你问题太多了,帮不完了,该有的代码都有了,你自己试吧

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

高级表格1.置数据 (0, 1, 1, “呵呵呵12”)
高级表格1.置数据 (1, 2, 1, “呵呵呵12345那么0123uu他”)
高级表格1.置数据 (0, 3, 1, “呵呵呵12345那么0123uu他22222”)
高级表格1.置数据 (1, 3, 1, “呵呵呵12345那么0123uu他”)
高级表格1.置数据 (2, 3, 1, “呵呵呵12345那么0123uu”)
高级表格1.置数据 (3, 3, 1, “呵呵呵12345那么0123uu他222220000”)
高级表格1.置数据 (4, 3, 1, “呵呵呵12345那么0123”)
高级表格1.置数据 (1, 4, 1, “呵呵看看8”)
高级表格1.置数据 (2, 4, 1, “呵呵”)
自动调整列宽行高 (高级表格1, , 30, 0, 0)  ' 没问题
自动调整列宽行高 (高级表格1, , 30, 0, 20)  ' 没问题
自动调整列宽行高 (高级表格1, , 30, 20, 5)  ' 有问题 当“列宽边距 ”大于“行高边距”数值时就会字体显示行高不完整，只能大于等于，求修正。

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

变量名	类 型	静态	数组	备 注
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 /> .子程序 _按钮1_被单击<br /> <br /> 高级表格1.置数据 (0, 1, 1, “呵呵呵12”)<br /> 高级表格1.置数据 (1, 2, 1, “呵呵呵12345那么0123uu他”)<br /> 高级表格1.置数据 (0, 3, 1, “呵呵呵12345那么0123uu他22222”)<br /> 高级表格1.置数据 (1, 3, 1, “呵呵呵12345那么0123uu他”)<br /> 高级表格1.置数据 (2, 3, 1, “呵呵呵12345那么0123uu”)<br /> 高级表格1.置数据 (3, 3, 1, “呵呵呵12345那么0123uu他222220000”)<br /> 高级表格1.置数据 (4, 3, 1, “呵呵呵12345那么0123”)<br /> 高级表格1.置数据 (1, 4, 1, “呵呵看看8”)<br /> 高级表格1.置数据 (2, 4, 1, “呵呵”)<br /> <br /> 自动调整列宽行高 (高级表格1, , 30, 0, 0)  ' 没问题<br /> 自动调整列宽行高 (高级表格1, , 30, 0, 20)  ' 没问题<br /> 自动调整列宽行高 (高级表格1, , 30, 20, 5)  ' 有问题 当“列宽边距 ”大于“行高边距”数值时就会字体显示行高不完整，只能大于等于，求修正。<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 /> .如果结束

补充内容 (2024-12-23 01:17):
自动调整列宽行高 (高级表格1, , 30, 20, 5)  ' 有问题 当“列宽边距 ”大于“行高边距”数值时就会字体显示行高不完整，只有大于等于才正常，，求修...正常

补充内容 (2024-12-23 01:18):
只有大于等于才正常，而小于就不正常了，求老师帮忙最后修正一下吧

wh1234567

LEOONL 发表于 2024-12-23 00:52
你问题太多了,帮不完了,该有的代码都有了,你自己试吧

期待老师帮忙修正一下尾楼层我发上来的代码，行高问题

LEOONL

wh1234567 发表于 2024-12-23 23:41
期待老师帮忙修正一下尾楼层我发上来的代码，行高问题

你搞那个边距是干嘛的,你如果想宽一点或高一点直接改置列宽置行高的地方不就行了

wh1234567

LEOONL 发表于 2024-12-24 00:17
你搞那个边距是干嘛的,你如果想宽一点或高一点直接改置列宽置行高的地方不就行了 ...

需要匹配字体大小，根据字体大小自适应最小宽和高，也可以增加任意宽边距和高边距才行，