常务副部长 中宣部:怎么保存?

来源:百度文库 编辑:高校问答 时间:2024/04/23 21:56:21
VB6
想保存Text中输入的文本。。。

下面是一个在注册表里保存窗体大小的程序。
你只要把form1改为text就 OK 了
form_load
form1.top=getsetting("demo","postion","top","0")
form1.left=getsetting("demo","postion","left","0")
form1.height=getsetting("demo","postion","height","5000")
form1.width=getsetting("demo","postion","width","6500")
end sub

form_unload
savesetting"demo","postion","top",form1.top
savesetting"demo","postion","left",form1.left
savesetting"demo","postion","height",form1.height
savesetting"demo","postion","width",form1.width
end sub