Question

VB保存Textbox数据到文本，急

我的VB界面里有9个text1.text；text2.text；text3.text....
我想实现的功能:
1.点击Cmd1按钮就能把这9个textbox里的数据保存到文本文件里
2.点击Cmd2按钮就能把这个保存的文件里的数据读取到各个textbox里
我想实现这两个功能请求高手相助，全部的分都给了
Private Sub Command7_Click()
CommonDialog1.Filter = "*.txt"
CommonDialog1.ShowSave
CommonDialog1.FilterIndex = 1
If CommonDialog1.FileName = "" Then Exit Sub
fn = FreeFile()
Open CommonDialog1.FileName For Output As fn
Print #fn, Text1.Text
Print #fn, Text2.Text
Print #fn, Text3.Text
Print #fn, Text4.Text
Print #fn, Text5.Text
Print #fn, Text6.Text
Print #fn, Text7.Text
Print #fn, Text8.Text
Print #fn, Text9.Text
Print #fn, Text10.Text
Print #fn, Text11.Text
Print #fn, Text12.Text
Print #fn, Text13.Text
Print #fn, Text14.Text
Print #fn, Text15.Text
Print #fn, Text16.Text
Print #fn, Text17.Text
Print #fn, Text18.Text
Print #fn, Text19.Text
Close #fn
MsgBox "保存完毕", , "提示"
End Sub'保存代码，上一次补充是读取代码 多谢一楼 十分感谢 代码发出 大家共享

Answer 1

Private Sub Cmd1_Click()
Dim Var as String
Var = Text1.Text & vbCrlf & Text2.Text & vbCrlf & Text3.text & vbCrlf & Text4.text & vbCrlf & Text5.text & vbCrlf & Text6.text & vbCrlf & Text7.text & vbCrlf & Text8.text & vbCrlf & Text9.text
'以下PathName表示你要保存的路径（路径两边要加双引号）
Open PathName For Output As #1
Print #1,Var
Close #1
End Sub

Private Sub Cmd2_Click()
Dim VarArray(8) as String
Dim i as Integer
'以下PathName与上面的代码的PathName值相同
Open PathName For Input As #1
For i = 0 to 8
Line Input #1,VarArray(i)
Next
Close #1
Text1.Text = VarArray(0)
Text2.Text = VarArray(1)
Text3.Text = VarArray(2)
Text4.Text = VarArray(3)
Text5.Text = VarArray(4)
Text6.Text = VarArray(5)
Text7.Text = VarArray(6)
Text8.Text = VarArray(7)
Text9.Text = VarArray(8)
End Sub