组合框的保存和读取

无声的雨

要求所有的表单填写或选择后保存为一个txt或INI文件，关闭后打开可以在姓名那里选择一个名字就会读出这个名字里面所对应的各项内容，密码选择的时候保存，不选择的时候不保存，请各位高手帮忙修改下了，谢谢

直接上源码吧

选择框保存和读取.rar (2.12 KB, 下载次数: 139)

2011-9-15 13:35 上传

点击文件名下载附件

exit11

[e].版本 2

.程序集 窗口程序集1
.程序集变量 角色, 文本型
.程序集变量 所在位置, 文本型
.程序集变量 年龄, 文本型
.程序集变量 a, 文本型
.程序集变量 b, 文本型, , "0"

.子程序 _组合框2_列表项被选择

.如果真 (组合框2.现行选中项 ＝ 0)
    角色 ＝ “男”
.如果真结束
.如果真 (组合框2.现行选中项 ＝ 1)
    角色 ＝ “女”
.如果真结束

标签8.标题 ＝ 角色


.子程序 _组合框3_列表项被选择
.局部变量 n, 整数型
.局部变量 c, 文本型, , "0"

.计次循环首 (取数组成员数 (b), n)
    c ＝ 分割文本 (b [n], “*”, )
    .如果真 (c [1] ＝ 组合框3.内容)
        所在位置 ＝ c [2]
    .如果真结束

.计次循环尾 ()
标签8.标题 ＝ 所在位置

.子程序 __启动窗口_创建完毕
.局部变量 c, 文本型, , "0"
.局部变量 x, 整数型

c ＝ 取配置节名 (取运行目录 () ＋ “\” ＋ “u.ini”)
.计次循环首 (取数组成员数 (c), x)
    组合框1.加入项目 (c [x], )
.计次循环尾 ()


.子程序 _组合框4_列表项被选择

.如果真 (组合框4.现行选中项 ＝ 0)
    年龄 ＝ “少年”
.如果真结束
.如果真 (组合框4.现行选中项 ＝ 1)
    年龄 ＝ “中年”
.如果真结束
.如果真 (组合框4.现行选中项 ＝ 2)
    年龄 ＝ “老当益壮”
.如果真结束
.如果真 (组合框4.现行选中项 ＝ 3)
    年龄 ＝ “老年”
.如果真结束

标签8.标题 ＝ 年龄


.子程序 _组合框1_列表项被选择


编辑框1.内容 ＝ 读配置项 (取运行目录 () ＋ “\u.ini”, 组合框1.内容, “密码”, )
组合框2.内容 ＝ 读配置项 (取运行目录 () ＋ “\u.ini”, 组合框1.内容, “角色”, )
组合框3.内容 ＝ 读配置项 (取运行目录 () ＋ “\u.ini”, 组合框1.内容, “位置”, )
组合框4.内容 ＝ 读配置项 (取运行目录 () ＋ “\u.ini”, 组合框1.内容, “年龄”, )



.子程序 _按钮1_被单击

.如果真 (选择框1.选中 ＝ 真)
    写配置项 (取运行目录 () ＋ “\u.ini”, 组合框1.内容, “密码”, 编辑框1.内容)
.如果真结束
写配置项 (取运行目录 () ＋ “\u.ini”, 组合框1.内容, “角色”, 角色)
写配置项 (取运行目录 () ＋ “\u.ini”, 组合框1.内容, “位置”, 所在位置)
写配置项 (取运行目录 () ＋ “\u.ini”, 组合框1.内容, “年龄”, 年龄)
[/e]

小明无敌

[e]写配置项 (取运行目录 () ＋ “\123.ini”, “123”, “1”, 组合框1.内容)[/e]
不知道LZ是不是要这个

小明无敌

[e]写配置项 (取运行目录 () ＋ “\123.ini”, “1234”, “1”, 编辑框1.内容)[/e]

无声的雨

珍惜你的美 发表于 2011-9-15 13:50

怎么没代码啊？

无声的雨

exit11 发表于 2011-9-15 14:45

组合框好像得必须改成 可编辑，如果不可编辑的话获取不到

怪物?

看不懂啊。