马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
有用看了请给些意见,,一起学习!!
下面只概括了 编辑框,下拉框,复选框和单选框,其余的控件也应该是大同小异的,各们童鞋视情况而定啦~
如果有更短小精悍的代码,欢迎来一起交流哦~我会很感谢的
//----------------------------------------------------
重复里的 n=此类控件就的数量
用此代码控件里的名字只须默认的就可以了。
源码如下:
功能 整型 保存写入配置()
整型 x
字符型 编辑框,下拉框,复选框,单选框
//↓------<>写入编辑框配置<>
x=0
重复(n)
编辑框="编辑框"+转换.整型转字符型(x)
辅助.写配置("RealmName",编辑框,编辑框.获得文本(编辑框),"c:\\设置保存.ini")
x=x+1
重复结束
//↓------<>写入下拉框0-13的内容配置<>
x=0
重复(n)
下拉框="下拉框"+转换.整型转字符型(x)
下拉框.得到选项(下拉框)
辅助.写配置("RealmName",下拉框,转换.整型转字符型(下拉框.得到选项(下拉框)),"c:\\设置保存.ini")
x=x+1
重复结束
//↓------<>写入单选框配置<>
x=0
重复(n)
单选框="单选框"+转换.整型转字符型(x)
如果(单选框.获得状态(单选框))
辅助.写配置("RealmName",单选框,"真","c:\\设置保存.ini")
否则
辅助.写配置("RealmName",单选框,"假","c:\\设置保存.ini")
如果结束
x=x+1
重复结束
//↓------<>写入复选框配置<>
x=0
重复(n)
复选框="复选框"+转换.整型转字符型(x)
如果(复选框.获得状态(复选框))
辅助.写配置("RealmName",复选框,"真","c:\\设置保存.ini")
否则
辅助.写配置("RealmName",复选框,"假","c:\\设置保存.ini")
如果结束
x=x+1
重复结束
返回 0
功能结束
功能 逻辑型 读取配置()
字符型 编辑框,下拉框,单选框,复选框
整型 x
//↓------<>读取编辑框配置<>
x=0
重复(n)
编辑框="编辑框"+转换.整型转字符型(x)
编辑框.设置文本(编辑框,辅助.读配置("RealmName",编辑框,"c:\\设置保存.ini"))
x=x+1
重复结束
//↓------<>读取下拉框配置<>
x=0
重复(n)
下拉框="下拉框"+转换.整型转字符型(x)
下拉框.设置选项(下拉框,转换.字符型转整型(辅助.读配置("RealmName",下拉框,"c:\\设置保存.ini")))
x=x+1
重复结束
//↓------<>读取单选框配置<>
x=0
重复(n)
单选框="单选框"+转换.整型转字符型(x)
如果(辅助.读配置("RealmName",单选框,"c:\\设置保存.ini")=="真")
复选框.选中(单选框,真)
否则
复选框.选中(单选框,假)
如果结束
x=x+1
重复结束
//↓------<>读取复选框配置<>
x=0
重复(n)
复选框="复选框"+转换.整型转字符型(x)
如果(辅助.读配置("RealmName",复选框,"c:\\设置保存.ini")=="真")
复选框.选中(复选框,真)
否则
复选框.选中(复选框,假)
如果结束
x=x+1
重复结束
返回 真
功能结束
功能 整型 初始化()
我的空间.读取配置()
返回 0
功能结束
功能 逻辑型 销毁()
我的空间.保存写入配置()
辅助.退出()
返回 真
功能结束
|