|
|
发表于 2016-11-26 01:43:36
|
显示全部楼层
function save_form(hd)
//保存界面配置
var arr0,ret,ret2,ret3,key,value
var list=array("复选框","单选框","编辑框","浏览框")
strsplit(filereadex("d:\\main.twin"),"|",arr0)
for(var i = 0; i < arraysize(arr0); i++)
for(var z = 0; z < arraysize(list); z++)
ret=strfind(arr0[i],list[z]&" ")
if(ret>0)
ret2=strlen(list[z]&" ")
ret3=strfind(strsub(arr0[i],ret+ret2,strlen(arr0[i]))," ")
key=strsub(arr0[i],ret+ret2,ret+ret2+ret3)
select(list[z])
case "复选框"
if(checkgetstate(key)==true)
value=1
else
value=0
end
case "单选框"
if(radiogetstate(key)==true)
value=1
else
value=0
end
case "编辑框"
value=editgettext(key)
case "浏览框"
value=browsegettext(key)
case "下拉框"
value=combogetcursel(key)
if(value<0)
value=0
end
end
filewriteini("config",key,value,"d:\\uservar.ini")
break
end
end
end
end |
|
[复制链接]
/2 
