Re: с кодом Visual Basic. Как сделать что бы корабль был с новой строки
Проверяем наличие файла, если есть, тогда считываем текст
Код:
Код:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If System.IO.File.Exists("save.txt") Then
Dim fileText As String = My.Computer.FileSystem.ReadAllText("save.txt")
RichTextBox1.Text = fileText
End If
End Sub
После закрытия формы, текст из RichTextBox1 сохраняеться
Код:
Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
Dim TextFile As New IO.StreamWriter("save.txt")
TextFile.WriteLine(RichTextBox1.Text)
TextFile.Close()
End Sub
// Hermein п.28 Правил форума Предупреждение
Последний раз редактировалось Hermein; 29.09.2011 в 02:14.