Hallo liebe VB-Paradise Community!
Ich versuche mich momentan an einen TextEditor, jedoch funktioniert das Öffnen der Dateien nicht so wie erwartet.. Immer wenn ich eine Datei öffnen will, schmiert mir das Programm ab.
Außerdem habe ich noch ein kleines Problem, nämlich das markieren des Textes und wenn ich zentriert ausgewählt habe und Leertaste drücke, dass es am Anfang des Textes springt.
Zudem würde ich gerne wissen, wie ich bestimmte Texte hervorheben kann.
Ich bedanke mich schoneinmal für jede Antwort!
Hier der Code:
Spoiler anzeigen
Ich versuche mich momentan an einen TextEditor, jedoch funktioniert das Öffnen der Dateien nicht so wie erwartet.. Immer wenn ich eine Datei öffnen will, schmiert mir das Programm ab.
Außerdem habe ich noch ein kleines Problem, nämlich das markieren des Textes und wenn ich zentriert ausgewählt habe und Leertaste drücke, dass es am Anfang des Textes springt.
Zudem würde ich gerne wissen, wie ich bestimmte Texte hervorheben kann.
Ich bedanke mich schoneinmal für jede Antwort!
Hier der Code:
VB.NET-Quellcode
- Public Class Form1
- Private Sub NeuToolStripButton_Click(sender As Object, e As EventArgs) Handles NeuToolStripButton.Click
- RichTextBox1.Clear()
- End Sub
- Private Sub ÖffnenToolStripButton_Click(sender As Object, e As EventArgs) Handles ÖffnenToolStripButton.Click
- With OpenFileDialog1
- .Filter = "Rich Text Format(*.rtf)|*.rtf|Text Datei(*.txt)|*.txt|Internet(*.htm, *.html, *.xml)|*.htm, *.html, *.xml|Alle Dateien(*.*)|*.*"
- .Title = "Datei Öffnen"
- .FileName = ""
- End With
- If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
- RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.RichText)
- End If
- End Sub
- Private Sub SpeichernToolStripButton_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripButton.Click
- With SaveFileDialog1
- .Filter = "Rich Text Format(*.rtf)|*.rtf|Text Datei(*.txt)|*.txt|HTML Datei(*.html)|*.html|Alle Dateien(*.*)|*.*"
- .Title = "Datei Speichern unter"
- .FileName = ""
- End With
- If SaveFileDialog1.Filter = "*.rtf" Then
- If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
- Dim text As String = RichTextBox1.Rtf
- System.IO.File.WriteAllText(SaveFileDialog1.FileName, text)
- End If
- Else
- If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
- Dim text As String = RichTextBox1.Text
- System.IO.File.WriteAllText(SaveFileDialog1.FileName, text)
- End If
- End If
- End Sub
- Private Sub AusschneidenToolStripButton_Click(sender As Object, e As EventArgs) Handles AusschneidenToolStripButton.Click
- RichTextBox1.Cut()
- End Sub
- Private Sub KopierenToolStripButton_Click(sender As Object, e As EventArgs) Handles KopierenToolStripButton.Click
- RichTextBox1.Copy()
- End Sub
- Private Sub EinfügenToolStripButton_Click(sender As Object, e As EventArgs) Handles EinfügenToolStripButton.Click
- RichTextBox1.Paste()
- End Sub
- Private Sub HilfeToolStripButton_Click(sender As Object, e As EventArgs) Handles HilfeToolStripButton.Click
- MsgBox("T€xt-Editor Version: 1.0", MsgBoxStyle.Information, "T€xt-Editor Hilfe")
- End Sub
- Private Sub SchriftartToolStripButton_Click(sender As Object, e As EventArgs) Handles SchriftartToolStripButton.Click
- FontDialog1.ShowDialog()
- RichTextBox1.SelectionFont = FontDialog1.Font
- End Sub
- Private Sub TextFarbeToolStripButton_Click(sender As Object, e As EventArgs) Handles TextFarbeToolStripButton.Click
- ColorDialog1.ShowDialog()
- RichTextBox1.SelectionColor = ColorDialog1.Color
- End Sub
- Private Sub RückgängigToolStripButton_Click(sender As Object, e As EventArgs) Handles RückgängigToolStripButton.Click
- RichTextBox1.Undo()
- End Sub
- Private Sub WiederholenToolStripButton_Click(sender As Object, e As EventArgs) Handles WiederholenToolStripButton.Click
- RichTextBox1.Redo()
- End Sub
- Private Sub LinksbündigToolStripButton_Click(sender As Object, e As EventArgs) Handles LinksbündigToolStripButton.Click
- RichTextBox1.SelectionAlignment = HorizontalAlignment.Left
- End Sub
- Private Sub ZentriertToolStripButton_Click(sender As Object, e As EventArgs) Handles ZentriertToolStripButton.Click
- RichTextBox1.SelectionAlignment = HorizontalAlignment.Center
- End Sub
- Private Sub RechtsbündigToolStripButton_Click(sender As Object, e As EventArgs) Handles RechtsbündigToolStripButton.Click
- RichTextBox1.SelectionAlignment = HorizontalAlignment.Right
- End Sub
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- RichTextBox1.SelectionAlignment = HorizontalAlignment.Left
- End Sub
- End Class