Ich habe fast schon meine komplette Klausuraufgaben gelöst. (*Freu)
Bei der folgendne Teilaufgabe komme ich aber leider nicht weiter und würde mich freuen, wenn mir jemand helfen kann.
Ich soll also mein Formular mit einem Menüpunkt mnuÖffnen erstellen, die ersten Teilaufgaben habe ich gemacht. Ich habe den folgenden Code zum Öffnen geschrieben.
Bei den folgenden Teilaufgaben bin ich mir nicht sicher:
- Nun deklarieren und öffnen sie einFileStream-Objekt mit der angegeben Datei zum Lesen
- Das Objekt zum Lesen einer Datei ist Streamreader, deklarieren sie es mit dem Namen sr
- mit der Methode sr.readtoend() füllen sie nun die Text-Eigenschaften von txtText
Ok hier mal mein Anfang:
Bei der folgendne Teilaufgabe komme ich aber leider nicht weiter und würde mich freuen, wenn mir jemand helfen kann.
Ich soll also mein Formular mit einem Menüpunkt mnuÖffnen erstellen, die ersten Teilaufgaben habe ich gemacht. Ich habe den folgenden Code zum Öffnen geschrieben.
Bei den folgenden Teilaufgaben bin ich mir nicht sicher:
- Nun deklarieren und öffnen sie einFileStream-Objekt mit der angegeben Datei zum Lesen
- Das Objekt zum Lesen einer Datei ist Streamreader, deklarieren sie es mit dem Namen sr
- mit der Methode sr.readtoend() füllen sie nun die Text-Eigenschaften von txtText
Ok hier mal mein Anfang:
VB.NET-Quellcode
- Private Sub mnuNeu_Click(ByVal sender As Object, ByVal e As EventArgs) Handles mnuNeu.Click
- If frmEditor.modified Then
- Dim s As String = "Der Inhalt wurde geändert." & vbCrLf _
- & "Wollen Sie die Datei schließen ohne zu speichern?"
- If MessageBox.Show(s, Anwendungstitel, _
- MessageBoxButtons.YesNo, _
- MessageBoxIcon.Exclamation, _
- MessageBoxDefaultButton.Button2) _
- = Windows.Forms.DialogResult.OK Then
- Exit Sub
- End If
- End If
- If dlgDateiÖffnen.ShowDialog = Windows.Forms.DialogResult.OK Then
- Datei = dlgDateiÖffnen.FileName
- If Datei.EndsWith(".txt") Then
- Try
- frmEditor.loadfile(Datei, RichTextBoxStreamType.RichText)
- Catch Ausnahme As Exception
- Dim s = "Die Datei konnte nicht im text-Format geladen werden!"
- MessageBox.Show(s, Anwendungstitel, _
- MessageBoxButtons.OK, MessageBoxIcon.Error)
- frmEditor.loadfile(Datei, RichTextBoxStreamType.PlainText)
- End Try
- Else
- frmEditor.loadfile(Datei, RichTextBoxStreamType.PlainText)
- End If
- End If
- frmEditor.clear()
- frmEditor.modified = False
- Datei = ""
- Text = Anwendungstitel() & "-" & "Unbenannt"
- Dim sr As IO.FileStream