nodig een textbox (op het 3hoekje klikken en dan zo groot mogelijk maken (beetje ruimte boven overhouden))
maak bovenaan een menu strip met file daaronder openen en opslaan. en maak de button nieuw bestand.
nu de codes
openen
Quote:
Dim Open As New OpenFileDialog
Open.Filter = "Text Files (*.txt)|*.txt|ALL FILES (*.*)|*.*"
Open.Title = "Save File"
Open.CheckPathExists = True
Open.ShowDialog(Me)
On Error Resume Next
Dim RT As New System.IO.StreamReader(Open.FileName)
On Error Resume Next
TextBox1.Text = RT.ReadToEnd
opslaan
Quote:
Dim Save As New SaveFileDialog
Save.Filter = "Text Files (*.txt)|*.txt|ALL FILES (*.*)|*.*"
Save.Title = "Save File"
Save.CheckPathExists = True
Save.ShowDialog(Me)
Try
My.Computer.FileSystem.WriteAllText(save.FileName, TextBox1.Text, False)
Catch ex As Exception
End Try
nieuw bestand
Quote:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("All text has been cleared!")
TextBox1.Text = ""
heb je vragen pm me.