Thnx, het is gelukt. Maar nu zit ik met volgend probleem.
Onderstaande code werkt met een open en save butten en een richtextbox. Nu wil ik dit uitbreiden met 2 richtextboxen. Dwz, data invullen in de 2 richtextboxen, opslaan in een txt bestand met de save button. Dan de richtextboxen leegmaken, klikken op de open button, het opgeslagen bestand terug inladen zodanig dat de 2 textboxen terug gevuld zijn als voor het opslaan. (Als jullie nog kunnen volgen ;-)
Ik heb al vanalles geprobeerd (ongeveer 3uur) maar krijg het niet gereed.
merci
Public
Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim Open As New OpenFileDialog()
Dim myStreamReader As System.IO.StreamReader
Open.Filter =
" Text Files (*.txt) | *.txt"
Open.CheckFileExists =
True
Open.Title =
"Open"
Open.ShowDialog(
Me)
Try
Open.OpenFile()
myStreamReader = System.IO.
File.OpenText(Open.FileName)
RichTextBox1.Text = myStreamReader.ReadToEnd()
Catch ex As Exception
End Try
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Dim Save As New SaveFileDialog()
Dim myStreamWriter As System.IO.StreamWriter
Save.Filter =
" Text Files (*.txt) | *.txt"
Save.CheckPathExists =
True
Save.Title =
"Opslaan"
Save.ShowDialog(
Me)
Try
myStreamWriter = System.IO.
File.AppendText(Save.FileName)
myStreamWriter.Write(RichTextBox1.Text)
myStreamWriter.Flush()
Catch ex As Exception
End Try
End Sub
End
Class
