易语言高级表格保存列宽并读取源码

.版本 2
.支持库 eGrid

.程序集 窗口程序集_启动窗口
.程序集变量 配置路径, 文本型

.子程序 __启动窗口_创建完毕
.局部变量 aa, 整数型
.局部变量 bb, 整数型
.局部变量 列宽, 整数型
.局部变量 列号, 整数型
.局部变量 列数, 整数型

配置路径 ＝ 取运行目录 () ＋ “列宽配置.ini”
' -----------------------------------------------------------------------------------读入列宽并置列宽
.计次循环首 (5, 列数)
    列宽 ＝ 到整数 (读配置项 (配置路径, “高级表格”, 到文本 (列数 － 1) ＋ “列宽”, “80”))
    列号 ＝ 到整数 (读配置项 (配置路径, “高级表格”, 到文本 (列数 － 1) ＋ “列号”, “4”))
    高级表格1.置列宽 (列号, 列宽)
.计次循环尾 ()
' -----------------------------------------------------------------------------------插入行和数据
.计次循环首 (100, aa)
    高级表格1.插入行 (到文本 (aa), 0)
    .计次循环首 (高级表格1.列数, bb)
        高级表格1.置数据 (aa, bb, 1, “测试数据” ＋ 到文本 (aa))
    .计次循环尾 ()
.计次循环尾 ()

.子程序 _高级表格1_列宽被改变
.参数 列号, 整数型
.局部变量 列数, 整数型

' -----------------------------------------------------------------------------------写出列宽数据
.计次循环首 (5, 列数)
    .如果真 (列数 － 1 ＝ 列号)
        写配置项 (配置路径, “高级表格”, 到文本 (列数 － 1) ＋ “列宽”, 到文本 (高级表格1.取列宽 (列号)))
        写配置项 (配置路径, “高级表格”, 到文本 (列数 － 1) ＋ “列号”, 到文本 (列号))
        跳出循环 ()
    .如果真结束

.计次循环尾 ()

@李泽勇2