一键备份易语言超级列表框数据

.版本 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”) .如果真结束

一键备份易语言超级列表框数据.jpg

相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

发表回复

您的电子邮箱地址不会被公开。必填项已用*标注