Question

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

最好给个实例

Answer 1

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

追问

读取时怎样将读取的付内容给对应的text

追答

Call ReadTxt(Form1.Text1) '读取
Call ReadTxt(Form1.Text2) '

追问

上面的Public Sub SaveTxt(strTxt As TextBox)是不是写到Form_Query窗口中，
Public Sub ReadTxt(OutTxt As TextBox)写到Form窗口中，
我是将读取的text1和text2分别再付给Form窗口中的text2和text3

追答

Public Function ReadTxt(OutTxt As TextBox) As String
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
ReadTxt = Tmp
End If
End Function

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()
Text2.Text = ReadTxt(Form1.Text1) '读取
text3.Text = ReadTxt(Form1.Text2) '读取
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call SaveTxt(Form1.Text1) '保存
Call SaveTxt(Form1.Text2)
End Sub

改了下 这下该懂了吧

追问

可以加你QQ吗，因为这学期一直要做软件，所以有很多地方不懂可以向你请教，

追答

加百度HI就行了

追问

我把你给的程序调试了，但文本文件中只保存form1最后保存的数据。

追答

Public Function ReadTxt(OutTxt As TextBox) As String
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
ReadTxt = Tmp
End If
End Function

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

Private Sub Form_Load()
Text2.Text = ReadTxt(Form1.Text1) '读取
text3.Text = ReadTxt(Form1.Text2) '读取
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call SaveTxt(Form1.Text1) '保存
Call SaveTxt(Form1.Text2)
End Sub

修改了下 这回你想什么时候保存数据 就在对应的事件中调用
Call SaveTxt(Form1.Text1) '保存这个过程就可以了

Answer 2

你说的另一个窗口中是不是这个程序中的？如果是的话可以用<窗口名>.print <要显示的内容。或者其他输出方式只要是在前边加 "另一个窗口名."。

追问

给个具体实例吧

Answer 3

楼上的代码应该不行吧...你这样只能写入一个TEXT控件吧...如果要实现多个TEXT控件内容的读写...最好是写入INI文件...

楼主加我为百度好友...我再告诉你QQ..我给你做个实例...

追问

怎样加你！

追答

点我的名字...然后点加为好友啊...哎...