Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

RichTextBox Textformat ändern

'Farbe Schwarz
Private Sub Menu_Schwarz_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menu_Schwarz.Click
RichTextBox_Code.SelectionColor = Color.Black
End Sub
' Farbe Blau
Private Sub Menu_Blau_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menu_Blau.Click
RichTextBox_Code.SelectionColor = Color.Blue
End Sub
' Farbe Rot
Private Sub Menu_Rot_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menu_Rot.Click
RichTextBox_Code.SelectionColor = Color.Red
End Sub
'Farbe Grün
Private Sub Menu_Grün_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menu_Grün.Click
RichTextBox_Code.SelectionColor = Color.Green
End Sub
' Schriftgröße 10
Private Sub ToolStripMenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem7.Click
RichTextBox_Code.SelectionFont = New Font("Microsoft Sans Serif", 10)
End Sub
' Schriftgröße 12
Private Sub ToolStripMenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem8.Click
RichTextBox_Code.SelectionFont = New Font("Microsoft Sans Serif", 12)
End Sub
' Schriftgröße 16
Private Sub ToolStripMenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem10.Click
RichTextBox_Code.SelectionFont = New Font("Microsoft Sans Serif", 16)
End Sub