|
发表于 2020-12-23 00:02:10
|
显示全部楼层
变量 lj路径
变量 单选框集合 = "单选框0|单选框1|单选框2"
变量 复选框集合 = "复选框0|复选框1|复选框2"
变量 编辑框集合 = "编辑框0|编辑框1|编辑框2"
变量 列表框集合 = "列表框0|列表框1|列表框2"
变量 下拉框集合 = "下拉框0|下拉框1|下拉框2"
功能 执行()
lj路径 = 系统获取进程路径() & "uiGlobai.ini"
一键保存(单选框集合, 复选框集合, 编辑框集合, 下拉框集合, 列表框集合, lj路径)
结束
功能 一键保存(y单选框名称集合, y复选框名称集合, y编辑框名称集合, y下拉框名称集合, y列表框名称集合, y路径, 读写 = 真)
变量 y单选框名称, y复选框名称, y编辑框名称, y下拉框名称, y列表框名称, y内容
变量 y控件名称集合 = 数组(y单选框名称集合, y复选框名称集合, y编辑框名称集合, y下拉框名称集合, y列表框名称集合)
变量 y名称集合 = 数组(y单选框名称, y复选框名称, y编辑框名称, y下拉框名称, y列表框名称)
遍历(变量 i = 0; i < 数组大小(y控件名称集合); i++)
如果(y控件名称集合[i] != "")
字符串分割(y控件名称集合[i], "|", y名称集合[i])
遍历(变量 j = 0; j < 数组大小(y名称集合[i]); j++)
如果(读写)
//读
选择(i)
条件 0
单选框设置状态(y名称集合[i][j], 文件读配置("界面配置", y名称集合[i][j], y路径))
条件 1
复选框设置状态(y名称集合[i][j], 文件读配置("界面配置", y名称集合[i][j], y路径))
条件 2
编辑框设置文本(y名称集合[i][j], 文件读配置("界面配置", y名称集合[i][j], y路径))
条件 3
下拉框设置选项(y名称集合[i][j], 文件读配置("界面配置", y名称集合[i][j], y路径))
条件 4//列表框
字符串分割(文件读配置("界面配置",y名称集合[i][j],y路径), "|", y内容)
遍历(变量 l = 0; l < 数组大小(y内容); l++)
列表框增加文本(y名称集合[i][j],y内容[l])
结束
//消息框(y内容)
结束
否则
//写
选择(i)
条件 0
文件写配置("界面配置", y名称集合[i][j], 单选框获取状态(y名称集合[i][j]), y路径)
条件 1
文件写配置("界面配置", y名称集合[i][j], 复选框获取状态(y名称集合[i][j]), y路径)
条件 2
文件写配置("界面配置", y名称集合[i][j], 编辑框获取文本(y名称集合[i][j]), y路径)
条件 3
文件写配置("界面配置", y名称集合[i][j], 下拉框获取选项(y名称集合[i][j]), y路径)
条件 4//列表框
遍历(变量 k = 0; k < 列表框获取选项个数(y名称集合[i][j]); k++)
如果(k < 1)
y内容 = 列表框获取文本(y名称集合[i][j], k)
否则
y内容 = y内容 & "|" & 列表框获取文本(y名称集合[i][j], k)
结束
结束
文件写配置("界面配置", y名称集合[i][j], y内容, y路径)
结束
结束
结束
结束
结束
消息框("保存成功", "提示")
结束 |
|