纯源码,利用配置项,实现多超级列表框的勾选保存和读取
.版本 2
.支持库 iext
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.局部变量 N, 整数型
.局部变量 表项索引, 整数型
.局部变量 勾选表项, 文本型
.计次循环首 (超级列表框1.取表项数 (), N)
表项索引 = N - 1
.如果真 (超级列表框1.取当前状态图片 (表项索引) = 1)
勾选表项 = 勾选表项 + 到文本 (表项索引) + “,”
.如果真结束
.计次循环尾 ()
勾选表项 = 取文本左边 (勾选表项, 取文本长度 (勾选表项) - 1)
.如果真 (勾选表项 ≠ “”)
写配置项 (取运行目录 () + “\勾选表项.ini”, “列表勾选”, “勾选表项”, 勾选表项)
.如果真结束
.子程序 _按钮2_被单击
.局部变量 N, 整数型
.局部变量 索引数组, 文本型, , "0"
.局部变量 勾选表项, 文本型
勾选表项 = 读配置项 (取运行目录 () + “\勾选表项.ini”, “列表勾选”, “勾选表项”, )
.如果真 (勾选表项 ≠ “”)
索引数组 = 分割文本 (勾选表项, “,”, )
.计次循环首 (取数组成员数 (索引数组), N)
超级列表框1.置状态图片 (到整数 (索引数组 [N]), 1)
.计次循环尾 ()
.如果真结束
