本帖最后由 上帝是姑娘 于 2012-12-20 01:51 编辑
- .版本 2
- .支持库 iext
- .程序集 窗口程序集1
- .程序集变量 文本, 文本型
- .程序集变量 数组, 文本型, , "0"
- .程序集变量 临时数组, 文本型, , "0"
- .程序集变量 数组账号, 文本型, , "0"
- .程序集变量 数组密码, 文本型, , "0"
- .程序集变量 i, 整数型
- .程序集变量 o, 整数型
- .子程序 __启动窗口_创建完毕
- 文本 = 到文本 (读入文件 (取运行目录 () + “\数据.txt”))
- 数组 = 分割文本 (文本, #换行符, )
- .计次循环首 (取数组成员数 (数组), i)
- 临时数组 = 分割文本 (数组 [i], “---”, )
- .如果真 (取数组成员数 (临时数组) = 2) ' 判断分割出的成员数
- 加入成员 (数组账号, 临时数组 [1])
- 加入成员 (数组密码, 临时数组 [2])
- o = 超级列表框1.插入表项 (, , , , , )
- 超级列表框1.置标题 (o, 0, 数组账号 [i])
- 超级列表框1.置标题 (o, 1, “*******”)
- .如果真结束
- .计次循环尾 ()
- .子程序 _超级列表框1_被双击, 逻辑型
- .参数 横向位置, 整数型
- .参数 纵向位置, 整数型
- .参数 功能键状态, 整数型
- .如果真 (超级列表框1.现行选中项 < 0)
- 返回 ()
- .如果真结束
- 编辑框1.内容 = 数组账号 [超级列表框1.现行选中项 + 1]
- 编辑框2.内容 = 数组密码 [超级列表框1.现行选中项 + 1]
复制代码 上次看到一个提问的,当时电脑里没易语言,现在看不到那个问题了,顺手发出来给新手学习。。。
超级列表框.rar
(1.39 KB, 下载次数: 148)
|