16,554
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim str As IO.StreamReader = New IO.StreamReader("t.txt", System.Text.Encoding.Default)
Dim s1 As String() = str.ReadLine.Split(" ")
TextBox1.Text = s1(0)
TextBox2.Text = s1(1)
TextBox3.Text = s1(2)
Dim s2 As String() = str.ReadLine.Split(" ")
TextBox4.Text = s2(0)
TextBox5.Text = s2(1)
TextBox6.Text = s2(2)
str.Close()
End Sub
‘保存
Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
Dim sw As System.IO.StreamWriter
sw = New System.IO.StreamWriter("t.txt", False, System.Text.Encoding.Default) 'false 全新保存,true是指以追加的方式保存文件
sw.WriteLine(TextBox1.Text & " " & TextBox2.Text & " " & TextBox3.Text)
sw.WriteLine(TextBox4.Text & " " & TextBox5.Text & " " & TextBox6.Text)
sw.Close()
End Sub