Text Editor - RichTextBox Fragen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von Reboot.

    Text Editor - RichTextBox Fragen

    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

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub NeuToolStripButton_Click(sender As Object, e As EventArgs) Handles NeuToolStripButton.Click
    4. RichTextBox1.Clear()
    5. End Sub
    7. Private Sub ÖffnenToolStripButton_Click(sender As Object, e As EventArgs) Handles ÖffnenToolStripButton.Click
    9. With OpenFileDialog1
    10. .Filter = "Rich Text Format(*.rtf)|*.rtf|Text Datei(*.txt)|*.txt|Internet(*.htm, *.html, *.xml)|*.htm, *.html, *.xml|Alle Dateien(*.*)|*.*"
    11. .Title = "Datei Öffnen"
    12. .FileName = ""
    13. End With
    15. If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
    16. RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.RichText)
    17. End If
    18. End Sub
    20. Private Sub SpeichernToolStripButton_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripButton.Click
    22. With SaveFileDialog1
    23. .Filter = "Rich Text Format(*.rtf)|*.rtf|Text Datei(*.txt)|*.txt|HTML Datei(*.html)|*.html|Alle Dateien(*.*)|*.*"
    24. .Title = "Datei Speichern unter"
    25. .FileName = ""
    26. End With
    28. If SaveFileDialog1.Filter = "*.rtf" Then
    29. If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
    30. Dim text As String = RichTextBox1.Rtf
    31. System.IO.File.WriteAllText(SaveFileDialog1.FileName, text)
    32. End If
    33. Else
    34. If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
    35. Dim text As String = RichTextBox1.Text
    36. System.IO.File.WriteAllText(SaveFileDialog1.FileName, text)
    37. End If
    38. End If
    39. End Sub
    41. Private Sub AusschneidenToolStripButton_Click(sender As Object, e As EventArgs) Handles AusschneidenToolStripButton.Click
    42. RichTextBox1.Cut()
    43. End Sub
    45. Private Sub KopierenToolStripButton_Click(sender As Object, e As EventArgs) Handles KopierenToolStripButton.Click
    46. RichTextBox1.Copy()
    47. End Sub
    49. Private Sub EinfügenToolStripButton_Click(sender As Object, e As EventArgs) Handles EinfügenToolStripButton.Click
    50. RichTextBox1.Paste()
    51. End Sub
    53. Private Sub HilfeToolStripButton_Click(sender As Object, e As EventArgs) Handles HilfeToolStripButton.Click
    54. MsgBox("T€xt-Editor Version: 1.0", MsgBoxStyle.Information, "T€xt-Editor Hilfe")
    55. End Sub
    57. Private Sub SchriftartToolStripButton_Click(sender As Object, e As EventArgs) Handles SchriftartToolStripButton.Click
    58. FontDialog1.ShowDialog()
    59. RichTextBox1.SelectionFont = FontDialog1.Font
    60. End Sub
    62. Private Sub TextFarbeToolStripButton_Click(sender As Object, e As EventArgs) Handles TextFarbeToolStripButton.Click
    63. ColorDialog1.ShowDialog()
    64. RichTextBox1.SelectionColor = ColorDialog1.Color
    65. End Sub
    67. Private Sub RückgängigToolStripButton_Click(sender As Object, e As EventArgs) Handles RückgängigToolStripButton.Click
    68. RichTextBox1.Undo()
    69. End Sub
    71. Private Sub WiederholenToolStripButton_Click(sender As Object, e As EventArgs) Handles WiederholenToolStripButton.Click
    72. RichTextBox1.Redo()
    73. End Sub
    75. Private Sub LinksbündigToolStripButton_Click(sender As Object, e As EventArgs) Handles LinksbündigToolStripButton.Click
    76. RichTextBox1.SelectionAlignment = HorizontalAlignment.Left
    77. End Sub
    79. Private Sub ZentriertToolStripButton_Click(sender As Object, e As EventArgs) Handles ZentriertToolStripButton.Click
    80. RichTextBox1.SelectionAlignment = HorizontalAlignment.Center
    81. End Sub
    83. Private Sub RechtsbündigToolStripButton_Click(sender As Object, e As EventArgs) Handles RechtsbündigToolStripButton.Click
    84. RichTextBox1.SelectionAlignment = HorizontalAlignment.Right
    85. End Sub
    87. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    88. RichTextBox1.SelectionAlignment = HorizontalAlignment.Left
    89. End Sub
    90. End Class

    VB.NET-Quellcode

    1. ​If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
    2. RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.RichText)
    3. End If
    Kommt ein Fehlermeldung wenn das Programm abstürzt?

    VB.NET-Quellcode

    1. ​ If SaveFileDialog1.Filter = "*.rtf" Then
    2. If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
    3. Dim text As String = RichTextBox1.Rtf
    4. System.IO.File.WriteAllText(SaveFileDialog1.FileName, text)
    5. End If
    Das würde Ich durch RichTextBox1.SaveFile ersetzen, da du sonst den Plaintext und nicht das RTF speicherst.

    LG

    Hi

    ichduersie schrieb:

    Das würde Ich durch RichTextBox1.SaveFile ersetzen, da du sonst den Plaintext und nicht das RTF speicherst.

    Nope, er schreibt ja RichTextBox.Rtf und nicht RichTextBox.Text. ;) Wäre aber wohl trotzdem sinnvoll.

    Das Einlesen sollte wohl in Abhängigkeit des gewählten Formats passieren, oder? Html, etc. sind nicht im RichTextFormat kodiert.

    Viele Grüße
    ~blaze~

    Ja, das sollte es ;) Jedoch habe ich keine Ahnung wie ich das machen soll.. Naja, ich danke euch aufjedenfall bei der Hilfe. Es funktionert jetzt ^^
    Vier Fragen hätte ich noch zum RichTextBox Control. Wie kann ich das machen, das eine Zeile wie im Windows Notepad vollgeschrieben werden kann? Bei mir ist es nämlich so, wenn ich eine Zeile voll schreibe, dass die nächste Angefangen wird :/ Und wie kann ich die Dokumente im abgespeicherten Format drucken lassen? Einfach ein PrintDialog zu benutzen und der RichTextBox zu zuweisen funktioniert ja nicht ;) Muss ich da vielleicht auch noch die Print Document Control verwenden? Und wie kann ich das so machen, dass man alle Buchstaben einzeln makieren kann? Bei mir markiert der entweder das einzelne Wort oder die ganze Zeile. So, ich habe drei Buttons gemacht, einmal für Bold, Italic und Underline. Bin schon alle Eigenschaften der RichTextBox runtergerattert, die mir IntelliSense gegeben hatte, jedoch ohne Erfolg. Im Internet habe ich auch geschaut aber nur was aus dem jahre 2004-2006 was gefunden..

    Habe zudem auch das hier mit Bold etc. ausprobiert, jedoch sagt mir IntelliSense, dass diese Eigenschaft nur ReadOnly ist..

    VB.NET-Quellcode

    1. RichTextBox1.SelectionFont.Italic = True
    2. RichTextBox1.SelectionFont.Underline = True
    3. RichTextBox1.SelectionFont.Bold = True


    Ich bedanke mich auch schonmal für die Antworten auf diese Fragen ;)

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Reboot“ ()

    Reboot schrieb:

    ReadOnly
    Du musst der Selektion einen neuen Font zuweisen:

    VB.NET-Quellcode

    1. RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Bold)
    2. RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Italic)
    3. RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Underline)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Achso ok Danke! :)

    Wie kann ich die Dokumente im abgespeicherten Format drucken lassen?
    Und wie kann ich das so machen, dass man alle Buchstaben einzeln makieren kann? Bei mir markiert der entweder das einzelne Wort oder die ganze Zeile.
    Wäre echt nett, wenn ihr mir die beiden auch beantwortet (Die anderen haben sich von selber gelöst oder durch Rod ;) )

    So sieht mein jetziger Code aus:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Public Saved, Underline, Bold, Italic As Boolean
    5. Private Sub NeuToolStripButton_Click(sender As Object, e As EventArgs) Handles NeuToolStripButton.Click
    6. If Saved = False Then
    7. If RichTextBox1.TextLength = 0 Then
    8. Else
    9. Dim Response As MsgBoxResult
    10. Response = MsgBox("Wollen Sie die Datei zuvor speichern?", MsgBoxStyle.YesNoCancel, "T€xt-Editor")
    11. If Response = MsgBoxResult.Yes Then
    12. With SaveFileDialog1
    13. .Filter = "Rich Text Format(*.rtf)|*.rtf|Text Datei(*.txt)|*.txt|Alle Dateien(*.*)|*.*"
    14. .Title = "Datei Speichern unter"
    15. .FileName = ""
    16. End With
    18. If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
    19. RichTextBox1.SaveFile(SaveFileDialog1.FileName)
    20. End If
    21. Saved = True
    22. ElseIf Response = MsgBoxResult.No Then
    23. RichTextBox1.Clear()
    24. Saved = False
    25. ElseIf Response = MsgBoxResult.Cancel Then
    26. End If
    27. End If
    28. ElseIf Saved = True Then
    29. RichTextBox1.Clear()
    30. Saved = False
    31. End If
    32. End Sub
    34. Private Sub ÖffnenToolStripButton_Click(sender As Object, e As EventArgs) Handles ÖffnenToolStripButton.Click
    36. With OpenFileDialog1
    37. .Filter = "Rich Text Format(*.rtf)|*.rtf|Text Datei(*.txt)|*.txt|Alle Dateien(*.*)|*.*"
    38. .Title = "Datei Öffnen"
    39. .FileName = ""
    40. End With
    42. If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
    43. RichTextBox1.LoadFile(OpenFileDialog1.FileName)
    44. End If
    45. End Sub
    47. Private Sub SpeichernToolStripButton_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripButton.Click
    48. With SaveFileDialog1
    49. .Filter = "Rich Text Format(*.rtf)|*.rtf|Text Datei(*.txt)|*.txt|Alle Dateien(*.*)|*.*"
    50. .Title = "Datei Speichern unter"
    51. .FileName = ""
    52. End With
    54. If SaveFileDialog1.Filter = "*.rtf" Then
    55. If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
    56. RichTextBox1.SaveFile(SaveFileDialog1.FileName)
    57. Saved = True
    58. End If
    59. Else
    60. If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
    61. RichTextBox1.SaveFile(SaveFileDialog1.FileName)
    62. Saved = True
    63. End If
    64. End If
    65. End Sub
    67. Private Sub AusschneidenToolStripButton_Click(sender As Object, e As EventArgs) Handles AusschneidenToolStripButton.Click
    68. RichTextBox1.Cut()
    69. End Sub
    71. Private Sub KopierenToolStripButton_Click(sender As Object, e As EventArgs) Handles KopierenToolStripButton.Click
    72. RichTextBox1.Copy()
    73. End Sub
    75. Private Sub EinfügenToolStripButton_Click(sender As Object, e As EventArgs) Handles EinfügenToolStripButton.Click
    76. RichTextBox1.Paste()
    77. End Sub
    79. Private Sub InformationToolStripButton_Click(sender As Object, e As EventArgs) Handles InformationToolStripButton.Click
    80. MsgBox("T€xt-Editor Version: 1.0", MsgBoxStyle.Information, "T€xt-Editor Information")
    81. End Sub
    83. Private Sub SchriftartToolStripButton_Click(sender As Object, e As EventArgs) Handles SchriftartToolStripButton.Click
    84. FontDialog1.ShowDialog()
    85. RichTextBox1.SelectionFont = FontDialog1.Font
    86. End Sub
    88. Private Sub TextFarbeToolStripButton_Click(sender As Object, e As EventArgs) Handles TextFarbeToolStripButton.Click
    89. ColorDialog1.ShowDialog()
    90. RichTextBox1.SelectionColor = ColorDialog1.Color
    91. End Sub
    93. Private Sub RückgängigToolStripButton_Click(sender As Object, e As EventArgs) Handles RückgängigToolStripButton.Click
    94. RichTextBox1.Undo()
    95. End Sub
    97. Private Sub WiederholenToolStripButton_Click(sender As Object, e As EventArgs) Handles WiederholenToolStripButton.Click
    98. RichTextBox1.Redo()
    99. End Sub
    101. Private Sub LinksbündigToolStripButton_Click(sender As Object, e As EventArgs) Handles LinksbündigToolStripButton.Click
    102. RichTextBox1.SelectionAlignment = HorizontalAlignment.Left
    103. End Sub
    105. Private Sub ZentriertToolStripButton_Click(sender As Object, e As EventArgs) Handles ZentriertToolStripButton.Click
    106. RichTextBox1.SelectionAlignment = HorizontalAlignment.Center
    107. End Sub
    109. Private Sub RechtsbündigToolStripButton_Click(sender As Object, e As EventArgs) Handles RechtsbündigToolStripButton.Click
    110. RichTextBox1.SelectionAlignment = HorizontalAlignment.Right
    111. End Sub
    113. Private Sub FettToolStripButton_Click(sender As Object, e As EventArgs) Handles FettToolStripButton.Click
    114. If Bold = True Then
    115. RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Regular)
    116. Bold = False
    117. ElseIf Bold = False Then
    118. RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Bold)
    119. Bold = True
    120. End If
    121. End Sub
    123. Private Sub KursivToolStripButton_Click(sender As Object, e As EventArgs) Handles KursivToolStripButton.Click
    124. If Italic = True Then
    125. RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Regular)
    126. Italic = False
    127. ElseIf Italic = False Then
    128. RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Italic)
    129. Italic = True
    130. End If
    131. End Sub
    133. Private Sub UnterstrichenToolStripButton_Click(sender As Object, e As EventArgs) Handles UnterstrichenToolStripButton.Click
    134. If Underline = True Then
    135. RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Regular)
    136. Underline = False
    137. ElseIf Underline = False Then
    138. RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Underline)
    139. Underline = True
    140. End If
    141. End Sub
    143. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    144. RichTextBox1.Font = My.Settings.StandartFont
    145. End Sub
    147. Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
    148. If Saved = False Then
    149. If RichTextBox1.TextLength = 0 Then
    150. Else
    151. Dim Response As MsgBoxResult
    152. Response = MsgBox("Wollen Sie die Datei zuvor speichern?", MsgBoxStyle.YesNoCancel, "T€xt-Editor")
    153. If Response = MsgBoxResult.Yes Then
    154. With SaveFileDialog1
    155. .Filter = "Rich Text Format(*.rtf)|*.rtf|Text Datei(*.txt)|*.txt|Alle Dateien(*.*)|*.*"
    156. .Title = "Datei Speichern unter"
    157. .FileName = ""
    158. End With
    160. If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
    161. RichTextBox1.SaveFile(SaveFileDialog1.FileName)
    162. End If
    163. Saved = True
    164. ElseIf Response = MsgBoxResult.No Then
    165. RichTextBox1.Clear()
    166. Saved = False
    167. ElseIf Response = MsgBoxResult.Cancel Then
    168. End If
    169. End If
    170. ElseIf Saved = True Then
    171. RichTextBox1.Clear()
    172. Saved = False
    173. End If
    174. End Sub
    176. End Class


    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Reboot“ ()

    Ok danke, ist jedoch in C#.. ^^
    Jetzt habe ich doch noch eine Frage. Ich möchte das so machen, wenn der Benutzer den Filter Batch ausgewählt hat, dass das nicht in der RTF Kodierung gespeichert wird, sondern so, dass es Batch dann ausführen kann.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Reboot“ ()

    Reboot schrieb:

    jedoch wurde ich nicht wircklich schlau daraus.
    Woraus jetzt?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende