Question

vb中如何将多个textbox中的内容保存txt中，当再次打开程序时将保存的内容直接显示在另一个窗口中的text中

Answer 1

因为不知道你有多少个textbox。就使用控件组吧管你多少个都通用。这个假设n=3
form1里面建军个按扭，写代码：
Private Sub 保存_Click() 'Dim c As String
url = "c:\初月岛.txt"
For i = 0 To 3
c = c + Text1(i) + "&"
Next
On Error Resume Next
Open url For Output As #1
Print #1, c
Close #1
End Sub
form2里面写代码：用来显示，为了实时更新用了Timer1。你也可以直接用窗体load它
Private Sub Timer1_Timer()
Dim url As String
url = "c:\初月岛.txt"
If Dir(url, vbHidden + vbReadOnly + vbSystem) = "" Then‘如果txt不存就停下Timer1.
Timer1.Enabled = False
MsgBox "没可用的txt文件"
Else
Timer1.Enabled = True
Dim STR As String '定义变量
Open url For Input As #1
ww = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
End If
tmp = Split(ww, "&")
For i = 0 To 3
Text2(i) = tmp(i)‘相应的显示也建了同样多个控件组。
Next
End Sub

Private Sub Form_Load()
url = "c:\初月岛.txt"
If Dir(url, vbHidden + vbReadOnly + vbSystem) = "" Then’如果txt 不存在就显示写入窗口。
Form1.Show
Form2.Visible = False
Else‘否则就直接呼出显示的窗口
Form2.Show
Form1.Visible = False
End If
End Sub

Answer 2

Option Explicit

Private Sub Command1_Click()
Dim mstr$
mstr = Text1.Text & ", " & Text2.Text & ", " & Text3.Text
Open "e:\rcd.txt" For Output As #1
Print #1, Trim(mstr)
Close #1
End Sub

Private Sub Form_Load()
If Dir("e:\rcd.txt") <> "" Then
Dim nStr$, Tem$
Open "e:\rcd.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, nStr
Tem = Tem & vbCrLf & nStr
Loop
Close #1
Text4.Text = Replace(Tem, ", ", vbCrLf)
End If
End Sub

追问

上面的保存能实现，下面的我想让上面保存的数据对应显示在另一个窗口中的多个text中，不是显示在一个text中。

追答

我也不知道你的frame，怎么写啊，自己改下吧。
按行读入到一个数组，加到你的控件就行了

Answer 3

Public Sub ReadTxt(OutTxt As TextBox)
Dim Tmp As String, Temp As String
If Dir(App.Path & "\" & OutTxt.Name & ".txt") <> "" Then
Open App.Path & "\" & OutTxt.Name & ".txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Temp
Tmp = Tmp & Temp & vbCrLf
Loop
Close #1
OutTxt.Text = Tmp
End If
End Sub

Public Sub SaveTxt(strTxt As TextBox)
Open App.Path & "\" & strTxt.Name & ".txt" For Output As #1
Print #1, strTxt.Text
Close #1
End Sub

Private Sub Form_Load()
Call ReadTxt(Form1.Text1) '读取
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call SaveTxt(Form1.Text1) '保存
Call SaveTxt(Form1.Text2)
'多个textbox 就改下参数多次调用即可
End Sub