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

Question

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

Answer 1

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

Answer 2

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

Answer 3

这样是写入：
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 ' 关闭文件。

Answer 4

如果要判断在退出时判断是否要求保存数据，可以在模块中定义变量
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

Answer 5

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

Answer 6

用注册表好了相关函数是 GetSetting 和 SaveSetting ，很简单一看就会     :)

Answer 7

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