простой цвет текста в поле форматированного текста

Выделите текст после того, как вы его вставили, а затем измените цвет.

Например:

richTextBox1.Text += "Test"
richTextBox1.Select(richTextBox1.TextLength - 4, 4)
richTextBox1.SelectionColor = Color.Red

Этот код добавляет текст «Hello» красного цвета и текст «World» зеленым в RichTextBox.

RichTextBox1.SelectionColor = Color.Red
RichTextBox1.SelectedText = "Hello "
RichTextBox1.SelectionColor = Color.Green
RichTextBox1.SelectedText = "World"

Я работал с ним в VB6, и я думаю, что это то же самое: вы должны выбрать текст, а затем применить

this.richTextBox1.SelectionColor = Color.Red

Добавленный текст всегда отображается в цвете по умолчанию, вы должны выбрать его, а затем изменить его цвет:

this.richTextBox1.text="Hello world!"
this.richTextBox1.selstart=0
this.richTextBox1.sellength=5
this.richTextBox1.SelectionColor = Color.Red

Поскольку я не использую vb.net, вы должны проверить орфографию, но я думаю, что это ключ. Написанный мной код должен печатать «Hello» красным цветом и «World!». В черном.

Попробуй это

    RichTextBox2.SelectionLength = 0
    RichTextBox1.SelectionStart = 0
    ' We deselect everything first in case the user has something selected.
    RichTextBox1.SelectionColor = Color.Red
    RichTextBox1.SelectedText = "Hello "
    RichTextBox1.SelectionColor = Color.Green
    RichTextBox1.SelectedText = "World "

Это добавит его в начало текстового поля. Я думаю, вы также можете сделать SelectionStart = RichTextBox1.TextLength, который поместит его в конец, а не в начало.

Код не работает:

this.richTextBox1.SelectionColor = Color.Red
this.richTextBox1.text += "Test"

Измените вторую строку на это:

this.richTextBox1.SelectionColor = Color.Red
this.richTextBox1.selectedtext = "Test"

Попробуй это

Sub colorWord(ByVal word As String, ByVal color As Color) ' by im4dbr0
        For i As Integer = 0 To RichTextBox1.TextLength
            Try
                If RichTextBox1.Text.ElementAt(i).ToString = word.ElementAt(0).ToString Then
                    Dim found As Boolean = False
                    For j As Integer = 1 To word.Count - 1
                        If RichTextBox1.Text.ElementAt(i + j) = word.ElementAt(j) Then
                            found = True
                        Else
                            found = False
                            Exit For
                        End If
                    Next
                    If found = True Then
                        RichTextBox1.Select(i, word.Length)
                        RichTextBox1.SelectionColor = color
                    End If
                End If
            Catch ex As Exception
                Continue For
            End Try
        Next

Для нескольких слов используйте цикл

 Dim Words As New List(Of String)
        Words.Add("Its")
        Words.Add("That")
        Words.Add("Simple")
        For i As Integer = 0 To Words.Count - 1
            colorWord(Words.Item(i), Color.Red)
        Next