基于 z475547146 一键读写配置源码修改复选框部分 - TC官方合作论坛

<div class="blockcode"><blockquote>function 配置E(读写 = 0, 自定义控件名 = "", 父窗口 = "", 路径 = ".\\读写配置.ini")
select(读写)
case 0
for(var i = 0; i < 999; i++)
if(controlgethandle("edit" & i, 父窗口) == 0)
break
end
filewriteini("配置", "edit" & i & 父窗口, editgettext("edit" & i, 父窗口), 路径)
end
for(var i = 0; i < 999; i++)
if(controlgethandle("check" & i, 父窗口) == 0)
break
end
filewriteini("配置", "check" & i & 父窗口, checkgetstate("check" & i, 父窗口), 路径)
end
for(var i = 0; i < 999; i++)
if(controlgethandle("radio" & i, 父窗口) == 0)
break
end
filewriteini("配置", "radio" & i & 父窗口, radiogetstate("radio" & i, 父窗口), 路径)
end
for(var i = 0; i < 999; i++)
if(controlgethandle("list" & i, 父窗口) == 0)
break
end
for(var ii = 0; ii < listgetcount("list" & i, 父窗口); ii++)
select(ii)
case 0
配置临时内容 = listgettext("list" & i, ii, 父窗口)
default
配置临时内容 = 配置临时内容 & "<换行>" & listgettext("list" & i, ii, 父窗口)
end
end
filewriteini("配置", "列表框文本" & i & 父窗口, 配置临时内容, 路径)
filewriteini("配置", "列表框选项" & i & 父窗口, listgetcursel("list" & i, 父窗口), 路径)
end
for(var i = 0; i < 999; i++)
if(controlgethandle("combobox" & i, 父窗口) == 0)
break
end
//strsplit(filereadini("配置", "下拉框文本" & i & 父窗口, 路径), "<换行>", 控件分割串1)
filewriteini("配置", "下拉框文本" & i & 父窗口, "", 路径)
for(var ii = 0; ii < combogetcount("combobox" & i, 父窗口); ii++)
//traceprint(控件分割串1[ii])
select(ii)
case 0
配置临时内容 = combogettextbycur("combobox" & i, ii, 父窗口)
default
配置临时内容 = 配置临时内容 & "<换行>" & combogettextbycur("combobox" & i, ii, 父窗口)
end
end
filewriteini("配置", "下拉框文本" & i & 父窗口, 配置临时内容, 路径)
filewriteini("配置", "下拉框选项" & i & 父窗口, combogetcursel("combobox" & i, 父窗口), 路径)
end
for(var i = 0; i < 999; i++)
if(controlgethandle("progress" & i, 父窗口) == 0)
break
end
filewriteini("配置", "progress" & i & 父窗口, progressgetprogress("progress" & i, 父窗口), 路径)
end
for(var i = 0; i < 999; i++)
if(controlgethandle("slider" & i, 父窗口) == 0)
break
end
filewriteini("配置", "slider" & i & 父窗口, slidegetpos("slider" & i, 父窗口), 路径)
end
for(var i = 0; i < 999; i++)
if(controlgethandle("path" & i, 父窗口) == 0)
break
end
filewriteini("配置", "path" & i & 父窗口, browsegettext("path" & i, 父窗口), 路径)
end
for(var i = 0; i < 999; i++)
if(controlgethandle("tab" & i, 父窗口) == 0)
break
end
filewriteini("配置", "tab" & i & 父窗口, tabgetcursel("tab" & i, 父窗口), 路径)
end
// for(var i = 0; i < 999; i++)
// if(controlgethandle("hotkey" & i, 父窗口) == 0)
// break
// end
// hotkeyget("hotkey" & i, 获取键码, 获取功能键, 父窗口)
// 配置临时内容 = 获取键码 & "<hotkey>" & 获取功能键
// filewriteini("配置", "hotkey" & i & 父窗口, 配置临时内容, 路径)
// end
for(var i = 0; i < 999; i++)
if(controlgethandle("date" & i, 父窗口) == 0)
break
end
filewriteini("配置", "date" & i & 父窗口, dategettext("date" & i, 父窗口), 路径)
end
for(var i = 0; i < 999; i++)
if(controlgethandle("gridctrl" & i, 父窗口) == 0)
break
end
filewriteini("配置", "gridctrl" & i & 父窗口, gridgetarraydata("gridctrl" & i, 父窗口), 路径)
gridgetsize("gridctrl" & i, 获取表格行, 获取表格列, 父窗口)
for(var ii = 0; ii < 获取表格行; ii++)
for(var iii = 0; iii < 获取表格列; iii++)
select(gridgettype("gridctrl" & i, ii, iii, 父窗口))
case 1
gridgetcombocursel("gridctrl" & i, ii, iii, 父窗口)
filewriteini("配置", "表格下拉框选项" & i & ii & "-" & iii & 父窗口, gridgetcombocursel("gridctrl" & i, ii, iii, 父窗口), 路径)
filewriteini("配置", "表格下拉框内容" & i & ii & "-" & iii & 父窗口, gridgetcombocontent("gridctrl" & i, ii, iii, 配置临时内容, 父窗口), 路径)
case 2
filewriteini("配置", "表格复选框状态" & i & ii & "-" & iii & 父窗口, gridgetcheckstate("gridctrl" & i, ii, iii, 父窗口), 路径)
end
end
end
end
if(自定义控件名 == "")
return 0
end
strsplit(自定义控件名, "|", 控件分割串1)
for(var i = 0; i < arraysize(控件分割串1); i++)
strsplit(控件分割串1[i], ".", 控件分割串2)
if(arraysize(控件分割串2) > 2)
messagebox("自定义控件格式输入错误:\r\n" & arraysize(控件分割串2))
break
end
select(控件分割串2[0])
case 1
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
filewriteini("配置", 控件分割串3[ii] & 父窗口, editgettext(控件分割串3[ii], 父窗口), 路径)
end
case 2
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
filewriteini("配置", 控件分割串3[ii] & 父窗口, radiogetstate(控件分割串3[ii], 父窗口), 路径)
end
case 3
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
filewriteini("配置", 控件分割串3[ii] & 父窗口, checkgetstate(控件分割串3[ii], 父窗口), 路径)
end
case 4
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
for(var iii = 0; iii < listgetcount(控件分割串3[ii]); iii++)
select(iii)
case 0
配置临时内容 = listgettext(控件分割串3[ii], iii, 父窗口)
default
配置临时内容 = 配置临时内容 & "<换行>" & listgettext(控件分割串3[ii], iii, 父窗口)
end
end
filewriteini("配置", 控件分割串3[ii] & 父窗口 & "选项", listgetcursel(控件分割串3[ii], 父窗口), 路径)
filewriteini("配置", 控件分割串3[ii] & 父窗口, 配置临时内容, 路径)
end
case 5
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
filewriteini("配置", 控件分割串3[ii] & 父窗口, "", 路径)
for(var iii = 0; iii < combogetcount(控件分割串3[ii]); iii++)
select(iii)
case 0
配置临时内容 = combogettextbycur(控件分割串3[ii], iii, 父窗口)
default
配置临时内容 = 配置临时内容 & "<换行>" & combogettextbycur(控件分割串3[ii], iii, 父窗口)
end
end
filewriteini("配置", 控件分割串3[ii] & 父窗口 & "选项", combogetcursel(控件分割串3[ii], 父窗口), 路径)
filewriteini("配置", 控件分割串3[ii] & 父窗口, 配置临时内容, 路径)
end
case 6
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
filewriteini("配置", 控件分割串3[ii] & 父窗口, progressgetprogress(控件分割串3[ii], 父窗口), 路径)
end
case 7
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
filewriteini("配置", 控件分割串3[ii] & 父窗口, slidegetpos(控件分割串3[ii], 父窗口), 路径)
end
case 8
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
filewriteini("配置", 控件分割串3[ii] & 父窗口, browsegettext(控件分割串3[ii], 父窗口), 路径)
end
case 9
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
filewriteini("配置", 控件分割串3[ii] & 父窗口, tabgetcursel(控件分割串3[ii], 父窗口), 路径)
end
case 10
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
hotkeyget(控件分割串3[ii], 获取键码, 获取功能键, 父窗口)
配置临时内容 = 获取键码 & "<hotkey>" & 获取功能键
filewriteini("配置", 控件分割串3[ii] & 父窗口, 配置临时内容, 路径)
end
case 11
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
filewriteini("配置", 控件分割串3[ii] & 父窗口, dategettext(控件分割串3[ii], 父窗口), 路径)
end
case 12
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
filewriteini("配置", 控件分割串3[ii] & 父窗口, gridgetarraydata(控件分割串3[ii], 父窗口), 路径)
gridgetsize(控件分割串3[ii], 获取表格行, 获取表格列, 父窗口)
for(var iii = 0; iii < 获取表格行; iii++)
for(var iiii = 0; iiii < 获取表格列; iiii++)
select(gridgettype(控件分割串3[ii], iii, iiii, 父窗口))
case 1
gridgetcombocursel(控件分割串3[ii], iii, iiii, 父窗口)
filewriteini("配置", 控件分割串3[ii] & "下拉选项" & iii & "-" & iiii & 父窗口, gridgetcombocursel(控件分割串3[ii], iii, iiii, 父窗口), 路径)
filewriteini("配置", 控件分割串3[ii] & "下拉内容" & iii & "-" & iiii & 父窗口, gridgetcombocontent(控件分割串3[ii], iii, iiii, 配置临时内容, 父窗口), 路径)
case 2
filewriteini("配置", 控件分割串3[ii] & "复选状态" & iii & "-" & iiii & 父窗口, gridgetcheckstate(控件分割串3[ii], iii, iiii, 父窗口), 路径)
end
end
end
end
default
messagebox("自定义控件类型错误:\r\n" & 控件分割串1[i])
break
end
end
case 1
for(var i = 0; i < 999; i++)
if(controlgethandle("edit" & i, 父窗口) == 0)
break
end
editsettext("edit" & i, filereadini("配置", "edit" & i & 父窗口, 路径), 父窗口)
end
for(var i = 0; i < 999; i++)
if(controlgethandle("check" & i, 父窗口) == 0)
break
end
checksetstate("check" & i, filereadini("配置", "check" & i & 父窗口, 路径), 父窗口)
end
for(var i = 0; i < 999; i++)
if(controlgethandle("radio" & i, 父窗口) == 0)
break
end
radiosetstate("radio" & i, filereadini("配置", "radio" & i & 父窗口, 路径), 父窗口)
end
for(var i = 0; i < 999; i++)
if(controlgethandle("list" & i, 父窗口) == 0)
break
end
strsplit(filereadini("配置", "列表框文本" & i & 父窗口, 路径), "<换行>", 控件分割串1)
for(var ii = 0; ii < arraysize(控件分割串1); ii++)
listaddtext("list" & i, 控件分割串1[ii], 父窗口)
end
listsetcursel("list" & i, filereadini("配置", "列表框选项" & i & 父窗口, 路径), 父窗口)
end
for(var i = 0; i < 999; i++)
if(controlgethandle("combobox" & i, 父窗口) == 0)
break
end
配置临时内容= filereadini("配置", "下拉框文本" & i & 父窗口, 路径)
if(配置临时内容!="")
combodeleteall("combobox" & i & 父窗口)
end
strsplit(配置临时内容, "<换行>", 控件分割串1)
for(var ii = 0; ii < arraysize(控件分割串1); ii++)
comboaddtext("combobox" & i, 控件分割串1[ii], 父窗口)
end
combosetcursel("combobox" & i, filereadini("配置", "下拉框选项" & i & 父窗口, 路径), 父窗口)
end
for(var i = 0; i < 999; i++)
if(controlgethandle("progress" & i, 父窗口) == 0)
break
end
progresssetprogress("progress" & i, filereadini("配置", "progress" & i & 父窗口, 路径), 父窗口)
end
for(var i = 0; i < 999; i++)
if(controlgethandle("slider" & i, 父窗口) == 0)
break
end
slidesetpos("slider" & i, filereadini("配置", "slider" & i & 父窗口, 路径), 父窗口)
end
for(var i = 0; i < 999; i++)
if(controlgethandle("path" & i, 父窗口) == 0)
break
end
browsesettext("path" & i, filereadini("配置", "path" & i & 父窗口, 路径), 父窗口)
end
for(var i = 0; i < 999; i++)
if(controlgethandle("tab" & i, 父窗口) == 0)
break
end
tabactive("tab" & i, filereadini("配置", "tab" & i & 父窗口, 路径), 父窗口)
end
// for(var i = 0; i < 999; i++)
// if(controlgethandle("hotkey" & i, 父窗口) == 0)
// break
// end
// strsplit(filereadini("配置", "hotkey" & i & 父窗口, 路径), "<hotkey>", 配置临时内容)
// hotkeyset("hotkey" & i, 配置临时内容[0], 配置临时内容[1], 父窗口)
// end
for(var i = 0; i < 999; i++)
if(controlgethandle("date" & i, 父窗口) == 0)
break
end
datesettext("date" & i, filereadini("配置", "date" & i & 父窗口, 路径), 父窗口)
end
for(var i = 0; i < 999; i++)
if(controlgethandle("gridctrl" & i, 父窗口) == 0)
break
end
gridfillarraydata("gridctrl" & i, stringtoarray(filereadini("配置", "gridctrl" & i & 父窗口, 路径)), 父窗口)
gridgetsize("gridctrl" & i, 获取表格行, 获取表格列, 父窗口)
for(var ii = 0; ii < 获取表格行; ii++)
for(var iii = 0; iii < 获取表格列; iii++)
select(gridgettype("gridctrl" & i, ii, iii, 父窗口))
case 1
gridsetcombocursel("gridctrl" & i, ii, iii, filereadini("配置", "表格下拉框选项" & i & ii & "-" & iii & 父窗口, 路径), 父窗口)
gridsetcombocontent("gridctrl" & i, ii, iii, filereadini("配置", "表格下拉框内容" & i & ii & "-" & iii & 父窗口, 路径), 父窗口)
case 2
gridsetcheckstate("gridctrl" & i, ii, iii, filereadini("配置", "表格复选框状态" & i & ii & "-" & iii & 父窗口, 路径), 父窗口)
end
end
end
end
if(自定义控件名 == "")
return 0
end
strsplit(自定义控件名, "|", 控件分割串1)
for(var i = 0; i < arraysize(控件分割串1); i++)
strsplit(控件分割串1[i], ".", 控件分割串2)
if(arraysize(控件分割串2) > 2)
messagebox("自定义控件格式输入错误:\r\n" & 控件分割串1[i])
break
end
select(控件分割串2[0])
case 1
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
editsettext(控件分割串3[ii], filereadini("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
end
case 2
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
radiosetstate(控件分割串3[ii], filereadini("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
end
case 3
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
checksetstate(控件分割串3[ii], filereadini("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
end
case 4
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
listdeleteall(控件分割串3[ii], 父窗口)
strsplit(filereadini("配置", 控件分割串3[ii] & 父窗口, 路径), "<换行>", 配置临时内容)
for(var iii = 0; iii < arraysize(配置临时内容); iii++)
listaddtext(控件分割串3[ii], 配置临时内容[iii], 父窗口)
end
listsetcursel(控件分割串3[ii], filereadini("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
end
case 5
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
配置临时内容= filereadini("配置", 控件分割串3[ii]& 父窗口, 路径)
if(配置临时内容!="")
combodeleteall(控件分割串3[ii] & 父窗口)
end
//combodeleteall(控件分割串3[ii], 父窗口)
strsplit(filereadini("配置", 控件分割串3[ii] & 父窗口, 路径), "<换行>", 配置临时内容)
for(var iii = 0; iii < arraysize(配置临时内容); iii++)
comboaddtext(控件分割串3[ii], 配置临时内容[iii], 父窗口)
end
combosetcursel(控件分割串3[ii], filereadini("配置", 控件分割串3[ii] & 父窗口& "选项", 路径), 父窗口)
end
case 6
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
progresssetprogress(控件分割串3[ii], filereadini("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
end
case 7
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
slidesetpos(控件分割串3[ii], filereadini("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
end
case 8
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
browsesettext(控件分割串3[ii], filereadini("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
end
case 9
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
tabactive(控件分割串3[ii], filereadini("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
end
case 10
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
strsplit(filereadini("配置", 控件分割串3[ii] & 父窗口, 路径), "<hotkey>", 配置临时内容)
hotkeyset(控件分割串3[ii], 配置临时内容[0], 配置临时内容[1], 父窗口)
end
case 11
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
datesettext(控件分割串3[ii], filereadini("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
end
case 12
strsplit(控件分割串2[1], "&", 控件分割串3)
for(var ii = 0; ii < arraysize(控件分割串3); ii++)
gridfillarraydata(控件分割串3[ii], stringtoarray(filereadini("配置", 控件分割串3[ii] & 父窗口, 路径)), 父窗口)
gridgetsize(控件分割串3[ii], 获取表格行, 获取表格列, 父窗口)
for(var iii = 0; iii < 获取表格行; iii++)
for(var iiii = 0; iiii < 获取表格列; iiii++)
select(gridgettype(控件分割串3[ii], ii, iii, 父窗口))
case 1
gridsetcombocursel(控件分割串3[ii], iii, iiii, filereadini("配置", 控件分割串3[ii] & iii & "-" & iiii & 父窗口, 路径), 父窗口)
gridsetcombocontent(控件分割串3[ii], iii, iiii, filereadini("配置", 控件分割串3[ii] & iii & "-" & iiii & 父窗口, 路径), 父窗口)
case 2
gridsetcheckstate(控件分割串3[ii], iii, iiii, filereadini("配置", 控件分割串3[ii] & iii & "-" & iiii & 父窗口, 路径), 父窗口)
end
end
end
end
default
messagebox("自定义控件类型错误:\r\n" & 控件分割串2[0])
break
end
end
end
end

复制代码