.版本 2 .支持库 iext .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 .子程序 保存超级列表框项目, 逻辑型, , 成功返回真，失败返回假 .参数 超级列表框, 超级列表框 .参数 文件名, 文本型 .局部变量 文件号, 整数型 .局部变量 字节集, 字节集 .局部变量 行数, 整数型 .局部变量 列数, 整数型 .局部变量 行循环, 整数型 .局部变量 列循环, 整数型 文件号 ＝ 打开文件 (文件名, #重写, ) 行数 ＝ 超级列表框.取表项数 () 列数 ＝ 超级列表框.取列数 () .计次循环首 (行数, 行循环) 字节集 ＝ { 0 } ' 表项头 字节集 ＝ 字节集 ＋ 到字节集 (超级列表框.取图片 (行循环 － 1, 0)) ' 图片索引 字节集 ＝ 字节集 ＋ 到字节集 (超级列表框.取当前状态图片 (行循环 － 1)) ' 状态图片索引 字节集 ＝ 字节集 ＋ 到字节集 (超级列表框.取缩进数目 (行循环 － 1)) ' 缩进数目 字节集 ＝ 字节集 ＋ 到字节集 (超级列表框.取表项数值 (行循环 － 1)) ' 表项数值 字节集 ＝ 字节集 ＋ 到字节集 (超级列表框.取标题 (行循环 － 1, 0)) ' 项目文本 字节集 ＝ 字节集 ＋ { 0, 0 } ' 表项尾 .如果真 (写出字节集 (文件号, 字节集) ＝ 假) 关闭文件 (文件号) 返回 (假) .如果真结束 .计次循环首 (列数 － 1, 列循环) 字节集 ＝ { 1, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 } ' 表项之间的分隔符 字节集 ＝ 字节集 ＋ 到字节集 (超级列表框.取标题 (行循环 － 1, 列循环)) ' 子项标题 字节集 ＝ 字节集 ＋ { 0, 0 } ' 表项尾 .如果真 (写出字节集 (文件号, 字节集) ＝ 假) 关闭文件 (文件号) 返回 (假) .如果真结束 处理事件 () .计次循环尾 () 处理事件 () .计次循环尾 () 关闭文件 (文件号) 返回 (真) .子程序 _按钮1_被单击, , , 初始化 .局部变量 循环, 整数型 .局部变量 表项索引, 整数型 超级列表框.表项 ＝ { } 置随机数种子 () .计次循环首 (100, 循环) 表项索引 ＝ 超级列表框.插入表项 (, 到文本 (循环), , 取随机数 (0, 10), 取随机数 (0, 3), 取随机数 (, )) 超级列表框.置标题 (表项索引, 1, 字符 (取随机数 (65, 90))) 超级列表框.置标题 (表项索引, 2, 字符 (取随机数 (65, 90))) 处理事件 () .计次循环尾 () .子程序 _超级列表框_当前表项被改变 标签1.标题 ＝ “表项索引：” ＋ 到文本 (超级列表框.现行选中项) 标签1.标题 ＝ 标签1.标题 ＋ #换行符 ＋ “表项数值：” ＋ 到文本 (超级列表框.取表项数值 (超级列表框.现行选中项)) .子程序 _按钮2_被单击 ' 通用对话框1.类型 ＝ 1 ' 保存文件 ' 如果真 (通用对话框1.打开 ()) .判断开始 (保存超级列表框项目 (超级列表框, “D:/666.qbx”)) .默认 .判断结束 .子程序 _按钮3_被单击 ' 通用对话框1.类型 ＝ 0 ' 打开文件 .' 如果真 (通用对话框1.打开 ()) 超级列表框.表项 ＝ 读入文件 (“D:/666.qbx”) .如果真结束