Question

vb text数组问题

在vb窗口上有text1（i）.text，text3（j）.text，text5（k）.text等几个text数组，希望能在退出程序后，再次登陆时，text中显示上次输入的内容，请高手指点。
请帮忙写出代码

Answer 1

那你要理解，那些具有记忆程序运行状态的工作原理。就是要创建使用自己的文件系统。
比如：我们常用的Office软件，我们发现下一次启动的状态会保持前一次关闭时的状态，那就需要保存这些状态（数据），那么就需要用到保存数据的文件。
所谓，自己的文件系统，就是专门提供给你这个程序读写的。当然，简单的做法就是使用文本文件或者数据库文件。

追问

谢谢，您能给出vb代码吗？我知道原理，但是不知道咋写

追答

假设用文本文件
那你要掌握的是文件的基本读写操作。
你是VB6还是VB.Net？

追问

vb6，麻烦您写个代码，我调试下吧，谢谢

追答

写数据到文件，没个数据一行，这个是10个数据的例子
Dim i As Integer
Open App.Path & "\OutPut.txt" For Output As #1 '打开文件写
For i = 1 To 10
Print #1, CStr(i)
Next i
Close #1
结果：
1
2
3
4
5
6
7
8
9
10

'读文件
Dim i As Integer
Dim s() As String '假设不知道数据的个数,采用动态数组
Dim n As Integer
n = 0
Open App.Path & "\OutPut.txt" For Input As #1 '打开文件读。
Do While Not EOF(1) ' 循环至文件尾。
n = n + 1 '增加数组的规模
ReDim Preserve s(1 To n) As String '动态改变数组规模
Input #1, s(n) ' 将数据读入变量。
Loop
Close #1
'显示结果
For i = 1 To n
Print s(i)
Next i

追问

谢谢，不过您这个都没有出现text1（i）.text，text3（j）.text，text5（k）.text
啊，咋连接啊

追答

不是连接,是用赋值语句???
例如,要把Text1(1)的内容写到文件里,
就把这个写的语句
Print #1, CStr(i)

改成
Print #1, Text1(1)

要把读出来的数据显示在 text1(1)
把读的语句
Input #1, s(n) ' 将数据读入变量。

改成
Input #1, Text1(1)

其他的方法一样,你自己试试
你第一次可以就试一个文本框的!

Answer 2

这个例子只保存Text1数组

Dim dic As Object
Const file = "c:\content.dat"
Private Sub Form_Load()
    Set dic = CreateObject("scripting.dictionary")
    If Dir(file) <> "" Then
        Open file For Input As #23
        Dim key As String
        Dim line As String
        Dim item
        Do Until EOF(23)
            Line Input #23, line
            item = Split(line, ":")
            dic.Add item(0), item(1)
        Loop
        Close #23
    End If '把文件读取字典对象中，文件行格式：“关键字:内容” ，关键字用控件名加索引表示
    Dim ctl As TextBox
    For Each ctl In Text1
        ctl.Text = dic.item(ctl.Name & "_" & ctl.Index) '控件从字典中读取内容
        Debug.Print ctl.Name & "_" & ctl.Index
    Next
End Sub
Private Sub Form_Unload(Cancel As Integer) 
    Open file For Output As #23 '窗口退出时保存字典到文件中。
    Dim key
    For Each key In dic.keys
        Print #23, key & ":" & dic.item(key)
    Next
    Close #23
End Sub
Private Sub Text1_Change(Index As Integer)
    dic.item("Text1_" & Index) = Text1(Index) '文本框修改时写内容到字典中
End Sub