|
发表于 2017-4-25 22:51:28
|
显示全部楼层
变量 配置临时内容 = "", 获取键码, 获取功能键, 获取表格行, 获取表格列, 控件分割串1, 控件分割串2, 控件分割串3
//读写 0=保存 1=读取
//自定义控件名说明,默认为空
//类型:1=编辑框 2=单选 3=复选 4=列表 5=下拉 6=进度 7=滑块 8=浏览框 9=选项卡 10=热键 11=日期 12=表格
//自定义格式:配置(0,2.单选框控件名1&单选框控件名2|1.我是编辑框1&我是编辑框2)
功能 配置(读写 = 0, 自定义控件名 = "", 父窗口 = "", 路径 = ".\\读写配置.ini")
选择(读写)
条件 0
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("编辑框" & i, 父窗口) == 0)
跳出
结束
文件写配置("配置", "编辑框" & i & 父窗口, 编辑框获取文本("编辑框" & i, 父窗口), 路径)
结束
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("复选框" & i, 父窗口) == 0)
跳出
结束
文件写配置("配置", "复选框" & i & 父窗口, 复选框获取状态("复选框" & i, 父窗口), 路径)
结束
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("单选框" & i, 父窗口) == 0)
跳出
结束
文件写配置("配置", "单选框" & i & 父窗口, 单选框获取状态("单选框" & i, 父窗口), 路径)
结束
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("列表框" & i, 父窗口) == 0)
跳出
结束
遍历(变量 ii = 0; ii < 列表框获取选项个数("列表框" & i, 父窗口); ii++)
选择(ii)
条件 0
配置临时内容 = 列表框获取文本("列表框" & i, ii, 父窗口)
默认
配置临时内容 = 配置临时内容 & "<换行>" & 列表框获取文本("列表框" & i, ii, 父窗口)
结束
结束
文件写配置("配置", "列表框文本" & i & 父窗口, 配置临时内容, 路径)
文件写配置("配置", "列表框选项" & i & 父窗口, 列表框获取选项("列表框" & i, 父窗口), 路径)
结束
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("下拉框" & i, 父窗口) == 0)
跳出
结束
遍历(变量 ii = 0; ii < 下拉框获取选项个数("下拉框" & i, 父窗口); ii++)
选择(ii)
条件 0
配置临时内容 = 下拉框获取选项文本("下拉框" & i, ii, 父窗口)
默认
配置临时内容 = 配置临时内容 & "<换行>" & 下拉框获取选项文本("下拉框" & i, ii, 父窗口)
结束
结束
文件写配置("配置", "下拉框文本" & i & 父窗口, 配置临时内容, 路径)
文件写配置("配置", "下拉框选项" & i & 父窗口, 下拉框获取选项("下拉框" & i, 父窗口), 路径)
结束
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("进度条" & i, 父窗口) == 0)
跳出
结束
文件写配置("配置", "进度条" & i & 父窗口, 进度条获取进度("进度条" & i, 父窗口), 路径)
结束
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("滑块" & i, 父窗口) == 0)
跳出
结束
文件写配置("配置", "滑块" & i & 父窗口, 滑块获取位置("滑块" & i, 父窗口), 路径)
结束
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("浏览框" & i, 父窗口) == 0)
跳出
结束
文件写配置("配置", "浏览框" & i & 父窗口, 浏览框获取文本("浏览框" & i, 父窗口), 路径)
结束
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("选项卡" & i, 父窗口) == 0)
跳出
结束
文件写配置("配置", "选项卡" & i & 父窗口, 选项卡获取选项("选项卡" & i, 父窗口), 路径)
结束
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("热键" & i, 父窗口) == 0)
跳出
结束
热键获取键码("热键" & i, 获取键码, 获取功能键, 父窗口)
配置临时内容 = 获取键码 & "<热键>" & 获取功能键
文件写配置("配置", "热键" & i & 父窗口, 配置临时内容, 路径)
结束
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("日期框" & i, 父窗口) == 0)
跳出
结束
文件写配置("配置", "日期框" & i & 父窗口, 日期框获取文本("日期框" & i, 父窗口), 路径)
结束
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("表格" & i, 父窗口) == 0)
跳出
结束
文件写配置("配置", "表格" & i & 父窗口, 表格获取所有数据("表格" & i, 父窗口), 路径)
表格获取大小("表格" & i, 获取表格行, 获取表格列, 父窗口)
遍历(变量 ii = 0; ii < 获取表格行; ii++)
遍历(变量 iii = 0; iii < 获取表格列; iii++)
选择(表格获取类型("表格" & i, ii, iii, 父窗口))
条件 1
表格获取下拉框选项("表格" & i, ii, iii, 父窗口)
文件写配置("配置", "表格下拉框选项" & i & ii & "-" & iii & 父窗口, 表格获取下拉框选项("表格" & i, ii, iii, 父窗口), 路径)
文件写配置("配置", "表格下拉框内容" & i & ii & "-" & iii & 父窗口, 表格获取下拉框内容("表格" & i, ii, iii, 配置临时内容, 父窗口), 路径)
条件 2
文件写配置("配置", "表格复选框状态" & i & ii & "-" & iii & 父窗口, 表格获取复选框状态("表格" & i, ii, iii, 父窗口), 路径)
结束
结束
结束
结束
如果(自定义控件名 == "")
返回 0
结束
字符串分割(自定义控件名, "|", 控件分割串1)
遍历(变量 i = 0; i < 数组大小(控件分割串1); i++)
字符串分割(控件分割串1[i], ".", 控件分割串2)
如果(数组大小(控件分割串2) > 2)
消息框("自定义控件格式输入错误:\r\n" & 数组大小(控件分割串2))
跳出
结束
选择(控件分割串2[0])
条件 1
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
文件写配置("配置", 控件分割串3[ii] & 父窗口, 编辑框获取文本(控件分割串3[ii], 父窗口), 路径)
结束
条件 2
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
文件写配置("配置", 控件分割串3[ii] & 父窗口, 单选框获取状态(控件分割串3[ii], 父窗口), 路径)
结束
条件 3
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
文件写配置("配置", 控件分割串3[ii] & 父窗口, 复选框获取状态(控件分割串3[ii], 父窗口), 路径)
结束
条件 4
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
遍历(变量 iii = 0; iii < 列表框获取选项个数(控件分割串3[ii]); iii++)
选择(iii)
条件 0
配置临时内容 = 列表框获取文本(控件分割串3[ii], iii, 父窗口)
默认
配置临时内容 = 配置临时内容 & "<换行>" & 列表框获取文本(控件分割串3[ii], iii, 父窗口)
结束
结束
文件写配置("配置", 控件分割串3[ii] & 父窗口 & "选项", 列表框获取选项(控件分割串3[ii], 父窗口), 路径)
文件写配置("配置", 控件分割串3[ii] & 父窗口, 配置临时内容, 路径)
结束
条件 5
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
遍历(变量 iii = 0; iii < 下拉框获取选项个数(控件分割串3[ii]); iii++)
选择(iii)
条件 0
配置临时内容 = 下拉框获取选项文本(控件分割串3[ii], iii, 父窗口)
默认
配置临时内容 = 配置临时内容 & "<换行>" & 下拉框获取选项文本(控件分割串3[ii], iii, 父窗口)
结束
结束
文件写配置("配置", 控件分割串3[ii] & 父窗口 & "选项", 下拉框获取选项(控件分割串3[ii], 父窗口), 路径)
文件写配置("配置", 控件分割串3[ii] & 父窗口, 配置临时内容, 路径)
结束
条件 6
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
文件写配置("配置", 控件分割串3[ii] & 父窗口, 进度条获取进度(控件分割串3[ii], 父窗口), 路径)
结束
条件 7
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
文件写配置("配置", 控件分割串3[ii] & 父窗口, 滑块获取位置(控件分割串3[ii], 父窗口), 路径)
结束
条件 8
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
文件写配置("配置", 控件分割串3[ii] & 父窗口, 浏览框获取文本(控件分割串3[ii], 父窗口), 路径)
结束
条件 9
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
文件写配置("配置", 控件分割串3[ii] & 父窗口, 选项卡获取选项(控件分割串3[ii], 父窗口), 路径)
结束
条件 10
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
热键获取键码(控件分割串3[ii], 获取键码, 获取功能键, 父窗口)
配置临时内容 = 获取键码 & "<热键>" & 获取功能键
文件写配置("配置", 控件分割串3[ii] & 父窗口, 配置临时内容, 路径)
结束
条件 11
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
文件写配置("配置", 控件分割串3[ii] & 父窗口, 日期框获取文本(控件分割串3[ii], 父窗口), 路径)
结束
条件 12
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
文件写配置("配置", 控件分割串3[ii] & 父窗口, 表格获取所有数据(控件分割串3[ii], 父窗口), 路径)
表格获取大小(控件分割串3[ii], 获取表格行, 获取表格列, 父窗口)
遍历(变量 iii = 0; iii < 获取表格行; iii++)
遍历(变量 iiii = 0; iiii < 获取表格列; iiii++)
选择(表格获取类型(控件分割串3[ii], iii, iiii, 父窗口))
条件 1
表格获取下拉框选项(控件分割串3[ii], iii, iiii, 父窗口)
文件写配置("配置", 控件分割串3[ii] & "下拉选项" & iii & "-" & iiii & 父窗口, 表格获取下拉框选项(控件分割串3[ii], iii, iiii, 父窗口), 路径)
文件写配置("配置", 控件分割串3[ii] & "下拉内容" & iii & "-" & iiii & 父窗口, 表格获取下拉框内容(控件分割串3[ii], iii, iiii, 配置临时内容, 父窗口), 路径)
条件 2
文件写配置("配置", 控件分割串3[ii] & "复选状态" & iii & "-" & iiii & 父窗口, 表格获取复选框状态(控件分割串3[ii], iii, iiii, 父窗口), 路径)
结束
结束
结束
结束
默认
消息框("自定义控件类型错误:\r\n" & 控件分割串1[i])
跳出
结束
结束
条件 1
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("编辑框" & i, 父窗口) == 0)
跳出
结束
编辑框设置文本("编辑框" & i, 文件读配置("配置", "编辑框" & i & 父窗口, 路径), 父窗口)
结束
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("复选框" & i, 父窗口) == 0)
跳出
结束
复选框设置状态("复选框" & i, 文件读配置("配置", "复选框" & i & 父窗口, 路径), 父窗口)
结束
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("单选框" & i, 父窗口) == 0)
跳出
结束
单选框设置状态("单选框" & i, 文件读配置("配置", "单选框" & i & 父窗口, 路径), 父窗口)
结束
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("列表框" & i, 父窗口) == 0)
跳出
结束
字符串分割(文件读配置("配置", "列表框文本" & i & 父窗口, 路径), "<换行>", 控件分割串1)
遍历(变量 ii = 0; ii < 数组大小(控件分割串1); ii++)
列表框增加文本("列表框" & i, 控件分割串1[ii], 父窗口)
结束
列表框设置选项("列表框" & i, 文件读配置("配置", "列表框选项" & i & 父窗口, 路径), 父窗口)
结束
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("下拉框" & i, 父窗口) == 0)
跳出
结束
字符串分割(文件读配置("配置", "下拉框文本" & i & 父窗口, 路径), "<换行>", 控件分割串1)
遍历(变量 ii = 0; ii < 数组大小(控件分割串1); ii++)
下拉框增加文本("下拉框" & i, 控件分割串1[ii], 父窗口)
结束
下拉框设置选项("下拉框" & i, 文件读配置("配置", "下拉框选项" & i & 父窗口, 路径), 父窗口)
结束
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("进度条" & i, 父窗口) == 0)
跳出
结束
进度条设置进度("进度条" & i, 文件读配置("配置", "进度条" & i & 父窗口, 路径), 父窗口)
结束
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("滑块" & i, 父窗口) == 0)
跳出
结束
滑块设置位置("滑块" & i, 文件读配置("配置", "滑块" & i & 父窗口, 路径), 父窗口)
结束
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("浏览框" & i, 父窗口) == 0)
跳出
结束
浏览框设置文本("浏览框" & i, 文件读配置("配置", "浏览框" & i & 父窗口, 路径), 父窗口)
结束
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("选项卡" & i, 父窗口) == 0)
跳出
结束
选项卡激活("选项卡" & i, 文件读配置("配置", "选项卡" & i & 父窗口, 路径), 父窗口)
结束
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("热键" & i, 父窗口) == 0)
跳出
结束
字符串分割(文件读配置("配置", "热键" & i & 父窗口, 路径), "<热键>", 配置临时内容)
热键设置键码("热键" & i, 配置临时内容[0], 配置临时内容[1], 父窗口)
结束
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("日期框" & i, 父窗口) == 0)
跳出
结束
日期框设置文本("日期框" & i, 文件读配置("配置", "日期框" & i & 父窗口, 路径), 父窗口)
结束
遍历(变量 i = 0; i < 999; i++)
如果(控件获取句柄("表格" & i, 父窗口) == 0)
跳出
结束
表格填充数据集("表格" & i, 字符串转数组(文件读配置("配置", "表格" & i & 父窗口, 路径)), 父窗口)
表格获取大小("表格" & i, 获取表格行, 获取表格列, 父窗口)
遍历(变量 ii = 0; ii < 获取表格行; ii++)
遍历(变量 iii = 0; iii < 获取表格列; iii++)
选择(表格获取类型("表格" & i, ii, iii, 父窗口))
条件 1
表格设置下拉框选项("表格" & i, ii, iii, 文件读配置("配置", "表格下拉框选项" & i & ii & "-" & iii & 父窗口, 路径), 父窗口)
表格设置下拉框内容("表格" & i, ii, iii, 文件读配置("配置", "表格下拉框内容" & i & ii & "-" & iii & 父窗口, 路径), 父窗口)
条件 2
表格设置复选框状态("表格" & i, ii, iii, 文件读配置("配置", "表格复选框状态" & i & ii & "-" & iii & 父窗口, 路径), 父窗口)
结束
结束
结束
结束
如果(自定义控件名 == "")
返回 0
结束
字符串分割(自定义控件名, "|", 控件分割串1)
遍历(变量 i = 0; i < 数组大小(控件分割串1); i++)
字符串分割(控件分割串1[i], ".", 控件分割串2)
如果(数组大小(控件分割串2) > 2)
消息框("自定义控件格式输入错误:\r\n" & 控件分割串1[i])
跳出
结束
选择(控件分割串2[0])
条件 1
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
编辑框设置文本(控件分割串3[ii], 文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
结束
条件 2
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
单选框设置状态(控件分割串3[ii], 文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
结束
条件 3
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
复选框设置状态(控件分割串3[ii], 文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
结束
条件 4
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
列表框选项清空(控件分割串3[ii], 父窗口)
字符串分割(文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), "<换行>", 配置临时内容)
遍历(变量 iii = 0; iii < 数组大小(配置临时内容); iii++)
列表框增加文本(控件分割串3[ii], 配置临时内容[iii], 父窗口)
结束
列表框设置选项(控件分割串3[ii], 文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
结束
条件 5
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
下拉框选项清空(控件分割串3[ii], 父窗口)
字符串分割(文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), "<换行>", 配置临时内容)
遍历(变量 iii = 0; iii < 数组大小(配置临时内容); iii++)
下拉框增加文本(控件分割串3[ii], 配置临时内容[iii], 父窗口)
结束
下拉框设置选项(控件分割串3[ii], 文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
结束
条件 6
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
进度条设置进度(控件分割串3[ii], 文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
结束
条件 7
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
滑块设置位置(控件分割串3[ii], 文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
结束
条件 8
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
浏览框设置文本(控件分割串3[ii], 文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
结束
条件 9
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
选项卡激活(控件分割串3[ii], 文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
结束
条件 10
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
字符串分割(文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), "<热键>", 配置临时内容)
热键设置键码(控件分割串3[ii], 配置临时内容[0], 配置临时内容[1], 父窗口)
结束
条件 11
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
日期框设置文本(控件分割串3[ii], 文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
结束
条件 12
字符串分割(控件分割串2[1], "&", 控件分割串3)
遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
表格填充数据集(控件分割串3[ii], 字符串转数组(文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径)), 父窗口)
表格获取大小(控件分割串3[ii], 获取表格行, 获取表格列, 父窗口)
遍历(变量 iii = 0; iii < 获取表格行; iii++)
遍历(变量 iiii = 0; iiii < 获取表格列; iiii++)
选择(表格获取类型(控件分割串3[ii], ii, iii, 父窗口))
条件 1
表格设置下拉框选项(控件分割串3[ii], iii, iiii, 文件读配置("配置", 控件分割串3[ii] & iii & "-" & iiii & 父窗口, 路径), 父窗口)
表格设置下拉框内容(控件分割串3[ii], iii, iiii, 文件读配置("配置", 控件分割串3[ii] & iii & "-" & iiii & 父窗口, 路径), 父窗口)
条件 2
表格设置复选框状态(控件分割串3[ii], iii, iiii, 文件读配置("配置", 控件分割串3[ii] & iii & "-" & iiii & 父窗口, 路径), 父窗口)
结束
结束
结束
结束
默认
消息框("自定义控件类型错误:\r\n" & 控件分割串2[0])
跳出
结束
结束
结束
结束 |
|