Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

Private Sub ToolStripComboBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripComboBox2.Click
        For I As Integer = 0 To RichTextBox1.SelectionLength - 1
            RichTextBox1.SelectionLength = 1
            RichTextBox1.SelectionFont = New Font(RichTextBox1.Font.FontFamily, CType(Me.ToolStripComboBox2.SelectedItem, Single))
            RichTextBox1.SelectionStart += 1
        Next
    End Sub

Visual Basic Quellcode

 Private Sub ToolStripComboBox1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripComboBox1.Click
        RichTextBox1.SelectionFont = New Font(RichTextBox1.Font.FontFamily, CType(Me.ToolStripComboBox1.SelectedItem, Single))
    End Sub

Visual Basic Quellcode

Private Sub ToolStripComboBox1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripComboBox1.Click

        Dim newFontStyle As System.Drawing.Font = RichTextBox1.SelectionFont()
        If (ToolStripComboBox1.Text = "Courier New") Then
            RichTextBox1.SelectionFont = New Font("Courier New", 12, newFontStyle.Style)
        End If
        If (ToolStripComboBox1.Text = "Arial") Then
            RichTextBox1.SelectionFont = New Font("Arial", 12, newFontStyle.Style)
        End If
        If (ToolStripComboBox1.Text = "Times New Roman") Then
            RichTextBox1.SelectionFont = New Font("Times New Roman", 12, newFontStyle.Style)
        End If

    End Sub

Visual Basic Quellcode

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        RichTextBox1.SelectionColor = Color.Red
    End Sub