请问我想程序退出后保存变量的值，以便下次使用

Question

通过tezt数组输入几个变量，退出程序后，我还想继续保留这几个值，以便下次启动程序再使用，请问怎么可以做得到呢？

Answer 1

参考这个贴子 9F 的方法：
http://topic.csdn.net/u/20090531/16/D22F0741-333C-4521-9835-A5B38915A3F1.html

Answer 2

我常用的方法是将其保存到数据库中，下次在读出来，用Sql语句，很方便。

Answer 3

请问如何编写保存到注册表，INI，TXT的代码呢，可否举个简单的例子，哪种方法比较好呢？？

Answer 4

顺便说一下，我需要的是20个左右的TEXT的值要保存，然后下次启动程序时自动就可以显示，请问详细的代码，可以写出来吗

Answer 5

Private Sub Form_Load()
MsgBox "数据加载"
End SubPrivate Sub Form_Unload(Cancel As Integer)
 MsgBox "数据保存在c:\*.txt"
End Sub

Answer 6

利用VB6的Open语句自动处理VB6结构机制简单完成读写:'窗体上放一个文本框,三个按钮.
Option ExplicitPrivate Type MySave
    strArr() As String
End TypePrivate Sub Command1_Click()
    Text1.Text = ""                 '清除内容,方便测试
End SubPrivate Sub Command2_Click()
    Dim tmpRec As MySave
    Dim I() As String
    
    ReDim tmpRec.strArr(0)              '先扩维
    tmpRec.strArr(0) = Text1.Text       '再赋值
    
    Open "d:\1.txt" For Binary As #1
        Put #1, , tmpRec                'VB6的Open会自动处理长度,维数等问题
    Close #1
End SubPrivate Sub Command3_Click()
    Dim tmpRec As MySave
    Dim I() As String
    
    Open "d:\1.txt" For Binary As #1
        Get #1, , tmpRec                '直接读出
    Close #1
    Text1.Text = tmpRec.strArr(0)       '还原到文本框
End Sub匿.

Answer 7

直接写入到一个文本文件最简单了:
text1为一控件数组,txtsave.txt 为保存数据的文本文件.
写入:open "d:\txtsave.txt" for output as #1
for i=1 to txtNum 'txtNum为你text控件数组元素的数量
   print #1,text1(i).text
next i
close #1读出:
open "d:\txtsave.txt" for input as #1
for i=1 to txtNum 'txtNum为你text控件数组元素的数量
   input #1,text1(i).text
next i
close #1

Answer 8

txt,xml,ini 注册表能不用就不用

Answer 9

使用SetEnvironmentVariable和GetEnvironmentVariable设置和读取环境变量.