Imports System.IO
 
Public Class frmEditor
 
    ' Deklaration Variable "datei" als privates Member von frmEditor
    Private datei As String
 
    ' Anpassung Größe txtText an frmEditor
    Private Sub frmEditor_Resize(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Resize
        txtText.Height = Me.Height
        txtText.Width = Me.Width
    End Sub
 
    ' Beenden
    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
        End
    End Sub
 
    Private Sub mnuÖffnen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles mnuÖffnen.Click
 
        ' Dateiendung, Verzeichnis, Dialog-Titel, Zeichenüberprüfung
        With Me.dlgDateiÖffnen
            .AddExtension = True
            .InitialDirectory = "c:\test"
            .Title = "Datei öffnen"
            .ValidateNames = True
        End With
 
        dlgDateiÖffnen.ShowDialog()
 
        ' Konstante Dateipfad
        Const Dateipfad As String = "c:\test"
 
        ' Deklarieren und öffnen des Filestreams
        Dim fs As New FileStream(Dateipfad, FileMode.Open, FileAccess.Read, _
          FileShare.ReadWrite)
 
        ' Deklarieren des Streamreaders
        Dim sr As New StreamReader(fs)
 
        ' Inhalt der Datei in die Textbox einlesen
        txtText.Text = sr.ReadToEnd
 
        ' Schließen des Streamreaders
        sr.Close()
 
    End Sub
 
    Private Sub mnuSpeichernUnter_Click(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles mnuSpeichernUnter.Click
 
        ' Dateiendung, Nachfrage, Standarderweiterung, Verzeichnis, 
        ' Überschreiben, Dialog-Titel, Zeichenüberprüfung
        With Me.dlgDateiSpeichern
            .AddExtension = True
            .CreatePrompt = True
            .DefaultExt = ".txt"
            .InitialDirectory = "c:\test"
            .OverwritePrompt = True
            .Title = "Datei speichern"
            .ValidateNames = True
        End With
 
        dlgDateiSpeichern.ShowDialog()
 
        Const Dateipfad As String = "c:\test"
 
        Dim fs As New FileStream(Dateipfad, FileMode.OpenOrCreate, _
          FileAccess.Write, FileShare.Read)
        Dim sr As New StreamWriter(fs)
 
        sr.Close()
 
    End Sub
End Class