下面代码无法写了，只能给看例子。 比如我要导入qq账号和qq密码到超级列表框里
数据内容=
123456----eyybbs
456789----eyybbs
文本数组=分割文本（数据内容，#换行符，）
计次循环首（取数组成员数（数据内容），n）
结果数组=分割文本（文本数组[n]，“----”，）
如果真（取数组成员数（结果数组）=2）
索引=超级列表框1插入表项（）
如果真（取数组成员数（结果数组）=2）’加个如果以防数据内容错乱导致软件报错
超级列表框1至标题（索引，0，结果数组[1]）
超级列表框1至标题（索引，0，结果数组[2]）
计次循环尾
这个代码我给你敲了两遍，第一遍网页无缘无故关闭了，纯手工。不懂请hi我。百度hi头像有我qq
我有个制作工具源码你可以参考下， 带模版
版本 2
程序集 窗口程序集1
程序集变量 画板, 画板, , "0"
程序集变量 号, 整数型, , "0"
程序集变量 当前画板, 画板
程序集变量 当前编号, 字节型
程序集变量 宽, 字节型
程序集变量 高, 字节型
子程序 _载入按钮_被单击
局部变量 当前数, 字节型
宽 ＝ 到数值 (编辑框1内容)
高 ＝ 到数值 (编辑框2内容)
如果真 (通用对话框1打开 ())
当前数 ＝ 取数组成员数 (画板)
如果真 (当前数 ＞ 0)
画板 [当前数]画板背景色 ＝ #灰绿
画板 [当前数]画 (号 [当前数], 8, 8, 32, 32, )
如果真结束
重定义数组 (号, 真, 当前数 ＋ 1)
号 [当前数 ＋ 1] ＝ 载入 (通用对话框1文件名)
如果真 ((画板2取宽度 (号 [当前数 ＋ 1]) ≠ 宽 或 画板2取高度 (号 [当前数 ＋ 1]) ≠ 高) 且 选择框1选中 ＝ 假)
如果真 (信息框 (“ 所要载入的大小为” ＋ 到文本 (画板2取宽度 (号 [当前数 ＋ 1])) ＋ “×” ＋ 到文本 (画板2取高度 (号 [当前数 ＋ 1])) ＋ “象素，与设置的” ＋ 编辑框1内容 ＋ “×” ＋ 编辑框2内容 ＋ “象素不一致，将根据设置的大小自动缩放。确定要载入吗？” ＋ #换行符 ＋ “ 你可以选中选择框” ＋ #左引号 ＋ “自动缩放” ＋ #右引号 ＋ “以避免出现本信息框。”, #信息图标 ＋ #确认取消钮, “载入”) ＝ #取消钮)
返回 ()
如果真结束
如果真结束
当前数 ＝ 取数组成员数 (画板)
重定义数组 (画板, 真, 当前数 ＋ 1)
复制窗口组件 (画板2, 画板 [当前数 ＋ 1])
画板 [当前数 ＋ 1]标记 ＝ 到文本 (当前数 ＋ 1)
画板 [当前数 ＋ 1]移动 (当前数 × 48 ＋ (当前数 ＋ 1) × 12, 10, 48, 48)
画板 [当前数 ＋ 1]可视 ＝ 真
画板 [当前数 ＋ 1]画板背景色 ＝ #蓝色
画板 [当前数 ＋ 1]画 (号 [当前数 ＋ 1], 8, 8, 32, 32, )
如果真 (当前编号 ≠ 0)
画板 [当前编号]画板背景色 ＝ #灰绿
画板 [当前编号]画 (号 [当前编号], 8, 8, 32, 32, )
如果真结束
当前画板 ＝ 画板 [当前数 ＋ 1]
当前编号 ＝ 当前数 ＋ 1
如果真 (画板 [当前数 ＋ 1]左边 ＋ 60 ＞ 画板1宽度)
横向滚动条1可视 ＝ 真
横向滚动条1最大位置 ＝ 画板 [当前数 ＋ 1]左边 ＋ 60 － 画板1宽度
横向滚动条1位置 ＝ 横向滚动条1最大位置
画板5移动 (－横向滚动条1最大位置, , , )
如果真结束
连续赋值 (假, 生成按钮禁止, 清除按钮禁止, 删除按钮禁止, 插入按钮禁止)
画板5宽度 ＝ 画板5宽度 ＋ 60
如果真结束
子程序 _生成按钮_被单击
局部变量 容器1, 字节型
画板4可视 ＝ 真
画板4移动 (12, (画板3高度 － 高) ÷ 2, 取数组成员数 (号) × 宽, 高)
计次循环首 (取数组成员数 (号), 容器1)
画板4画 (号 [容器1], (容器1 － 1) × 宽, 0, 宽, 高, )
计次循环尾 ()
如果真 (画板4左边 ＋ 画板4宽度 ＋ 12 ＞ 画板3宽度)
横向滚动条2可视 ＝ 真
横向滚动条2最大位置 ＝ 画板4左边 ＋ 画板4宽度 ＋ 12 － 画板3宽度
横向滚动条2位置 ＝ 横向滚动条2最大位置
画板4移动 (12 － 横向滚动条2最大位置, , , )
如果真结束
保存按钮禁止 ＝ 假
如果 (横向滚动条2可视 ＝ 真)
_启动窗口移动 (, , , 326)
否则
_启动窗口移动 (, , , 308)
如果结束
子程序 _横向滚动条1_位置被改变
画板5移动 (－横向滚动条1位置, , , )
子程序 _横向滚动条2_位置被改变
画板4移动 (12 － 横向滚动条2位置, , , )
子程序 _清除按钮_被单击
局部变量 容器1, 字节型
计次循环首 (取数组成员数 (号), 容器1)
画板4画 (号 [容器1], (容器1 － 1) × 宽, 0, 宽, 高, )
卸载 (号 [容器1])
画板 [容器1]销毁 ()
计次循环尾 ()
重定义数组 (画板, 假, 0)
重定义数组 (号, 假, 0)
画板4清除 (, , , )
画板4可视 ＝ 假
连续赋值 (真, 生成按钮禁止, 保存按钮禁止, 清除按钮禁止, 删除按钮禁止, 插入按钮禁止)
连续赋值 (1, 横向滚动条1位置, 横向滚动条1最大位置, 横向滚动条2位置, 横向滚动条2最大位置)
横向滚动条1可视 ＝ 假
横向滚动条2可视 ＝ 假
画板5移动 (0, , 72, )
_启动窗口移动 (, , , 224)
当前编号 ＝ 0
子程序 _保存按钮_被单击
如果真 (通用对话框2打开 ())
如果 (写到文件 (通用对话框2文件名, 画板4取 (, )))
信息框 (“保存组文件” ＋ 通用对话框2文件名 ＋ “成功！”, #信息图标, “保存组”)
否则
信息框 (“保存组文件” ＋ 通用对话框2文件名 ＋ “失败！”, #错误图标, “保存组”)
如果结束
如果真结束
子程序 __启动窗口_创建完毕
_启动窗口移动 (, , , 224)
子程序 _编辑框1_获得焦点
编辑框1被选择字符数 ＝ -1
子程序 _编辑框2_获得焦点
编辑框2被选择字符数 ＝ -1
子程序 _编辑框1_内容被改变
如果真 (到数值 (编辑框1内容) ＞ 64)
鸣叫 ()
编辑框1内容 ＝ 取文本左边 (编辑框1内容, 取文本长度 (编辑框1内容) － 1)
编辑框1起始选择位置 ＝ 取文本长度 (编辑框1内容)
如果真结束
子程序 _编辑框2_内容被改变
如果真 (到数值 (编辑框2内容) ＞ 64)
鸣叫 ()
编辑框2内容 ＝ 取文本左边 (编辑框2内容, 取文本长度 (编辑框2内容) － 1)
编辑框2起始选择位置 ＝ 取文本长度 (编辑框2内容)
如果真结束
子程序 _画板2_鼠标左键被按下, 逻辑型
参数 横向位置, 整数型
参数 纵向位置, 整数型
参数 功能键状态, 整数型
局部变量 容器1, 字节型
当前画板 ＝ 取事件组件 ()
画板 [当前编号]画板背景色 ＝ #灰绿
画板 [当前编号]画 (号 [当前编号], 8, 8, 32, 32, )
当前编号 ＝ 到数值 (当前画板标记)
当前画板画板背景色 ＝ #蓝色
当前画板画 (号 [当前编号], 8, 8, 32, 32, )
子程序 _删除按钮_被单击
局部变量 容器1, 字节型
当前画板销毁 ()
删除成员 (号, 当前编号, 1)
删除成员 (画板, 当前编号, 1)
如果 (取数组成员数 (号) ＝ 0)
画板4清除 (, , , )
画板4可视 ＝ 假
连续赋值 (真, 生成按钮禁止, 保存按钮禁止, 清除按钮禁止, 删除按钮禁止, 插入按钮禁止)
连续赋值 (1, 横向滚动条1位置, 横向滚动条1最大位置, 横向滚动条2位置, 横向滚动条2最大位置)
横向滚动条1可视 ＝ 假
横向滚动条2可视 ＝ 假
_启动窗口移动 (, , , 224)
否则
如果真 (当前编号 ≤ 取数组成员数 (画板))
变量循环首 (当前编号, 取数组成员数 (画板), 1, 容器1)
画板 [容器1]标记 ＝ 到文本 (容器1)
画板 [容器1]左边 ＝ 画板 [容器1]左边 － 60
变量循环尾 ()
如果真结束
当前画板 ＝ 画板 [选择 (当前编号 ＞ 取数组成员数 (画板), 取数组成员数 (画板), 当前编号)]
当前编号 ＝ 到数值 (当前画板标记)
画板 [当前编号]画板背景色 ＝ #蓝色
画板 [当前编号]画 (号 [当前编号], 8, 8, 32, 32, )
如果 (画板 [取数组成员数 (画板)]左边 ＋ 60 ＞ 画板1宽度)
横向滚动条1可视 ＝ 真
横向滚动条1最大位置 ＝ 画板 [取数组成员数 (画板)]左边 ＋ 60 － 画板1宽度
横向滚动条1位置 ＝ 横向滚动条1最大位置
画板5移动 (－横向滚动条1最大位置, , , )
否则
横向滚动条1可视 ＝ 假
画板5左边 ＝ 0
如果结束
如果结束
画板5宽度 ＝ 画板5宽度 － 60
子程序 _插入按钮_被单击
局部变量 插入画板, 画板
局部变量 插入号, 整数型
局部变量 容器1, 字节型
如果真 (通用对话框1打开 ())
插入号 ＝ 载入 (通用对话框1文件名)
如果真 ((画板2取宽度 (插入号) ≠ 宽 或 画板2取高度 (插入号) ≠ 高) 且 选择框1选中 ＝ 假)
如果真 (信息框 (“ 所要载入的大小为” ＋ 到文本 (画板2取宽度 (插入号)) ＋ “×” ＋ 到文本 (画板2取高度 (插入号)) ＋ “象素，与设置的” ＋ 编辑框1内容 ＋ “×” ＋ 编辑框2内容 ＋ “象素不一致，将根据设置的大小自动缩放。确定要载入吗？” ＋ #换行符 ＋ “ 你可以选中选择框” ＋ #左引号 ＋ “自动缩放” ＋ #右引号 ＋ “以避免出现本信息框。”, #信息图标 ＋ #确认取消钮, “载入”) ＝ #取消钮)
返回 ()
如果真结束
如果真结束
画板5宽度 ＝ 画板5宽度 ＋ 60
插入成员 (号, 当前编号 ＋ 1, 插入号)
复制窗口组件 (画板2, 插入画板)
插入成员 (画板, 当前编号 ＋ 1, 插入画板)
画板 [当前编号 ＋ 1]可视 ＝ 真
画板 [当前编号 ＋ 1]画板背景色 ＝ #蓝色
画板 [当前编号 ＋ 1]标记 ＝ 到文本 (当前编号 ＋ 1)
画板 [当前编号 ＋ 1]左边 ＝ 当前画板左边 ＋ 60
画板 [当前编号 ＋ 1]画 (号 [当前编号 ＋ 1], 8, 8, 32, 32, )
当前画板画板背景色 ＝ #灰绿
当前画板画 (号 [当前编号], 8, 8, 32, 32, )
当前画板 ＝ 画板 [当前编号 ＋ 1]
当前编号 ＝ 当前编号 ＋ 1
变量循环首 (当前编号 ＋ 1, 取数组成员数 (画板), 1, 容器1)
画板 [容器1]标记 ＝ 到文本 (容器1)
画板 [容器1]左边 ＝ 画板 [容器1]左边 ＋ 60
变量循环尾 ()
如果真 (画板 [取数组成员数 (画板)]左边 ＋ 60 ＞ 画板1宽度)
横向滚动条1可视 ＝ 真
横向滚动条1最大位置 ＝ 画板 [取数组成员数 (画板)]左边 ＋ 60 － 画板1宽度
横向滚动条1位置 ＝ 横向滚动条1最大位置
画板5移动 (－横向滚动条1最大位置, , , )
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）