高人啦 快教我如何保存程序设置

[zyf_zsj1]

我编了个地址簿 怎么在退出是保存程序
还请各位大虾指教一下小弟

[shally5]

将数据写入文件中不就可以啦！运行时再装入。。。。

[zyf_zsj1]

如果记录用Text控件 如何退出时保存了？？？？？？

[DTWUJP]

你要不用 ini文件，或自定义文件，要不用数据库。

[piaoyang80]

你是不是不会把text里面的东西写到一个文件里呀？

[shally5]

这样是写入：
open "c:\address.txt" for output as #1
print #1,text.text
close #1
这样是读入：
Dim TextLine
Open "TESTFILE" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
Debug.Print TextLine ' 在调试窗口中显示数据。
Loop
Close #1 ' 关闭文件。

[a_geng]

如果要判断在退出时判断是否要求保存数据，可以在模块中定义变量
dim m_bModify as boolean

在Form_Load事件中初始化变量

private sub Form_Load()
m_bModify=false
end sub

再在Text的Change事件中加入
private sub Text1_Change()
m_bModify=true
end sub

同时你可以写一个函数，作为保存数据用
sub Save()
'省略了保存，如果保存有问题可以再问
。。。。
'设置变量
m_bmodify=false
end sub


'在Form_Unload事件中添加代码
Private Sub Form_Unload(Cancel as Boolean)
if m_bmodify then
'调用保存函数
save
end if
end sub

[asd_butterfly]

你到底是要保存程序设置，还是要保存数据，说明白点！！！！

[DTWUJP]

我说你能不能说清楚，大家好帮助你。

[zyf_zsj1]

都怪小弟心太急 让各位大哥费心了 是保存程序设置

[shanminmin]

我觉得用注册表最方便了.

savesetting

[Chice_wxg]

用注册表好了

相关函数是 GetSetting 和 SaveSetting ，很简单一看就会 :)

[asd_butterfly]

对了，同意用savesettiing和getsetting,退出程序时用SAVESETTING保存，启动时用GETSETTING初始化程序，简单。。。。