子程序传参疑问

星见雅

多个高级表格，如高级表格1、2、3、4，如何传给子程序，比如高表格式优化（高级表格2）时，子程序里面的参数高级表格1就会变成高级表格2，避免写重复的代码

  

子程序名	返回值类型	公开	备 注
高表格式优化

变量名	类 型	静态	数组	备 注
行循环	整数型
列循环	整数型

' 自动调整行列
计次循环首 (高级表格1.行数, 行循环)
计次循环首 (高级表格1.列数, 列循环)
高级表格1.置自动换行 (行循环, 列循环, , , 真)
高级表格1.自动调整行 (行循环)
高级表格1.自动调整列 (列循环, )
如果真 (高级表格1.取列宽 (列循环) ≥ 150)
高级表格1.置列宽 (列循环, 150)

计次循环尾 ()
如果真 (高级表格1.取行高 (行循环) ≠ 30)
高级表格1.置行高 (行循环, 30)

计次循环尾 ()
' 首行字体加粗
计次循环首 (高级表格1.列数, 列循环)
高级表格1.置字体属性 (1, 列循环 － 1, , , 1)
计次循环尾 ()
高级表格1.置行高 (0, 10)
高级表格1.置列宽 (0, 10)

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

.版本 2<br /> .支持库 eGrid<br /> <br /> .子程序 高表格式优化<br /> .局部变量 行循环, 整数型<br /> .局部变量 列循环, 整数型<br /> <br /> ' 自动调整行列<br /> .计次循环首 (高级表格1.行数, 行循环)<br /> <br />     .计次循环首 (高级表格1.列数, 列循环)<br /> <br />         高级表格1.置自动换行 (行循环, 列循环, , , 真)<br />         高级表格1.自动调整行 (行循环)<br />         高级表格1.自动调整列 (列循环, )<br /> <br />         .如果真 (高级表格1.取列宽 (列循环) ≥ 150)<br />             高级表格1.置列宽 (列循环, 150)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (高级表格1.取行高 (行循环) ≠ 30)<br />         高级表格1.置行高 (行循环, 30)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' 首行字体加粗<br /> .计次循环首 (高级表格1.列数, 列循环)<br /> <br />     高级表格1.置字体属性 (1, 列循环 － 1, , , 1)<br /> <br /> .计次循环尾 ()<br /> <br /> 高级表格1.置行高 (0, 10)<br /> 高级表格1.置列宽 (0, 10)

zainex

定义一个高级表格类型的数组，然后把子程序的参数也该改成这个类型：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
高表格式优化
参数名	类 型	参考	可空	数组	备 注
表格	高级表格

变量名	类 型	静态	数组	备 注
行循环	整数型
列循环	整数型

' 自动调整行列
计次循环首 (表格.行数, 行循环)
计次循环首 (表格.列数, 列循环)
表格.置自动换行 (行循环, 列循环, , , 真)
' 表格.自动调整行 (行循环)
' 表格.自动调整列 (列循环, )
如果真 (表格.取列宽 (列循环) ≥ 150)
表格.置列宽 (列循环, 150)

计次循环尾 ()
如果真 (表格.取行高 (行循环) ≠ 30)
表格.置行高 (行循环, 30)

计次循环尾 ()
' 首行字体加粗
计次循环首 (表格.列数, 列循环)
表格.置字体属性 (1, 列循环 － 1, , , 1)
计次循环尾 ()
表格.置行高 (0, 10)
表格.置列宽 (0, 10)

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
表格组	高级表格		0
数	整数型

加入成员 (表格组, 高级表格1)
加入成员 (表格组, 高级表格2)
加入成员 (表格组, 高级表格3)
加入成员 (表格组, 高级表格4)
加入成员 (表格组, 高级表格5)
计次循环首 (取数组成员数 (表格组), 数)
高表格式优化 (表格组 [数])
计次循环尾 ()

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

.版本 2<br /> .支持库 eGrid<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 高表格式优化<br /> .参数 表格, 高级表格<br /> .局部变量 行循环, 整数型<br /> .局部变量 列循环, 整数型<br /> <br /> ' 自动调整行列<br /> .计次循环首 (表格.行数, 行循环)<br />     .计次循环首 (表格.列数, 列循环)<br />         表格.置自动换行 (行循环, 列循环, , , 真)<br />         ' 表格.自动调整行 (行循环)<br />         ' 表格.自动调整列 (列循环, )<br />         .如果真 (表格.取列宽 (列循环) ≥ 150)<br />             表格.置列宽 (列循环, 150)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (表格.取行高 (行循环) ≠ 30)<br />         表格.置行高 (行循环, 30)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> ' 首行字体加粗<br /> .计次循环首 (表格.列数, 列循环)<br />     表格.置字体属性 (1, 列循环 － 1, , , 1)<br /> .计次循环尾 ()<br /> 表格.置行高 (0, 10)<br /> 表格.置列宽 (0, 10)<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 表格组, 高级表格, , "0"<br /> .局部变量 数, 整数型<br /> <br /> 加入成员 (表格组, 高级表格1)<br /> 加入成员 (表格组, 高级表格2)<br /> 加入成员 (表格组, 高级表格3)<br /> 加入成员 (表格组, 高级表格4)<br /> 加入成员 (表格组, 高级表格5)<br /> .计次循环首 (取数组成员数 (表格组), 数)<br />     高表格式优化 (表格组 [数])<br /> .计次循环尾 ()

注意，易语言自带的高级表格没有 自动调整行 自动调整列 这两个方法。

丿Mrs°戮默

  

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

表格优化 (高级表格1)

子程序名	返回值类型	公开	备 注
表格优化
参数名	类 型	参考	可空	数组	备 注
表格	高级表格

表格.置数据 (2, 2, 1, “22”)

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

.版本 2<br /> .支持库 eGrid<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 表格优化 (高级表格1)<br /> <br /> .子程序 表格优化<br /> .参数 表格, 高级表格<br /> <br /> 表格.置数据 (2, 2, 1, “22”)

haoren1212

数据类型：高级表格，参数

aipca

  

子程序名	返回值类型	公开	备 注
高表格式优化
参数名	类 型	参考	可空	数组	备 注
高级表格	高级表格

变量名	类 型	静态	数组	备 注
行循环	整数型
列循环	整数型

' 自动调整行列
计次循环首 (高级表格.行数, 行循环)
计次循环首 (高级表格.列数, 列循环)
高级表格.置自动换行 (行循环, 列循环, , , 真)
高级表格.自动调整行 (行循环)
高级表格.自动调整列 (列循环, )
如果真 (高级表格.取列宽 (列循环) ≥ 150)
高级表格.置列宽 (列循环, 150)

计次循环尾 ()
如果真 (高级表格.取行高 (行循环) ≠ 30)
高级表格.置行高 (行循环, 30)

计次循环尾 ()
' 首行字体加粗
计次循环首 (高级表格.列数, 列循环)
高级表格.置字体属性 (1, 列循环 － 1, , , 1)
计次循环尾 ()
高级表格.置行高 (0, 10)
高级表格.置列宽 (0, 10)

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

.版本 2<br /> .支持库 eGrid<br /> <br /> .子程序 高表格式优化<br /> .参数 高级表格, 高级表格<br /> .局部变量 行循环, 整数型<br /> .局部变量 列循环, 整数型<br /> <br /> ' 自动调整行列<br /> .计次循环首 (高级表格.行数, 行循环)<br /> <br />     .计次循环首 (高级表格.列数, 列循环)<br /> <br />         高级表格.置自动换行 (行循环, 列循环, , , 真)<br />         高级表格.自动调整行 (行循环)<br />         高级表格.自动调整列 (列循环, )<br /> <br />         .如果真 (高级表格.取列宽 (列循环) ≥ 150)<br />             高级表格.置列宽 (列循环, 150)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (高级表格.取行高 (行循环) ≠ 30)<br />         高级表格.置行高 (行循环, 30)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' 首行字体加粗<br /> .计次循环首 (高级表格.列数, 列循环)<br /> <br />     高级表格.置字体属性 (1, 列循环 － 1, , , 1)<br /> <br /> .计次循环尾 ()<br /> <br /> 高级表格.置行高 (0, 10)<br /> 高级表格.置列宽 (0, 10)