Question

易语言读写配置问题

自己编了个记事本软件，带换肤功能（易语言33个皮肤模块）
但是换肤以后不能保存 也就是换肤以后退出再打开还是默认的皮肤
利用读写配置项源码应该怎么写？
源码附上
.版本 2
.支持库 xplib
.支持库 vclbase

.子程序 __启动窗口_创建完毕

XP风格 (2)
加载皮肤 (1)
加载Aero特效 ()
' 信息框 (“本次更新加已修改换肤不可保存BUG” ＋ #换行符 ＋ “欢迎使用”, 0, “更新提示”)
' 读配置项 (取运行目录 () ＋ “\配置.ini”, “配置”, “皮肤风格”, “加载皮肤(6)”)

.子程序 __启动窗口_尺寸被改变

编辑框1.宽度 ＝ 取用户区宽度 () － 30
编辑框1.高度 ＝ 取用户区高度 () － 30

.子程序 _打开N_被选择

通用对话框1.打开 ()

.子程序 _保存S_被选择

.如果真 (通用对话框1.打开 ())
写到文件 (通用对话框1.文件名 ＋ “.txt”, 到字节集 (编辑框1.内容))
.如果真结束

.子程序 _新建W_被选择
.局部变量 A, 整数型

.如果真 (编辑框1.内容 ≠ “”)
A ＝ 信息框 (“确认放弃编辑？”, 1, )
.判断开始 (A ＝ 0)
编辑框1.内容 ＝ “”
.默认
返回 ()

.判断结束

.如果真结束

.子程序 _关闭X_被选择

销毁 ()

.子程序 _文本颜色E_被选择

选择颜色对话框1.打开 ()
编辑框1.文本颜色 ＝ 选择颜色对话框1.颜色

.子程序 _背景颜色R_被选择

选择颜色对话框1.打开 ()
编辑框1.背景颜色 ＝ 选择颜色对话框1.颜色

.子程序 _作者信息A_被选择

载入 (窗口1, , 真)

.子程序 _编辑框1_获得焦点

编辑框1.文本颜色 ＝ #黑色
.如果真 (编辑框1.内容 ＝ “欢迎使用灏子手写版记事本，本软件由易语言写出。本软件未经本人允许，禁止用于商业”)
编辑框1.内容 ＝ “”
.如果真结束

.子程序 _灰色风格_被选择

加载皮肤 (5)
加载Aero特效 ()

.子程序 _红色风格_被选择

加载皮肤 (13)
加载Aero特效 ()

.子程序 _蓝色风格_被选择

加载皮肤 (21)
加载Aero特效 ()

.子程序 _褐色风格_被选择

加载皮肤 (31)
加载Aero特效 ()

.子程序 _黄色风格_被选择

加载皮肤 (6)
加载Aero特效 ()
' 写配置项 (取运行目录 () ＋ “\配置.ini”, “配置”, “加载皮肤”, “ 加载皮肤（6）”)

.子程序 _默认_被选择

加载皮肤 (1)
加载Aero特效 ()

Answer 1

放在换肤下面
写配置项 (取运行目录 () ＋ “\配置.ini”, “配置”, “加载皮肤”, “1”)
1那里就是皮肤的风格

放在_启动窗口

加载皮肤（到数值(读配置项 (取运行目录 () ＋ “\配置.ini”, “配置”, “皮肤风格”, “1”)))
1那里就是皮肤的风格

Answer 2

写配置项时不用那么麻烦，可以简单点
直接在窗口创建完毕子程序下写
例：写配置项 (取运行目录 () ＋ “\配置.ini”, “配置”, “加载皮肤”, 到文本（当前皮肤数值）)
这样写读的时候使用就比较方便了
加载皮肤（到数值(读配置项 (取运行目录 () ＋ “\配置.ini”, “配置”, “皮肤风格”, “1”)))
因为写的时候是文本型的数字
读的时候直接到数值就可以用了，不用在寻找文本之类的，还要麻烦一次