Работа с Rich TextBox

[Sashocheck]

Здравствуйте!
Подскажите, пожалуйста, решение следуещего вопроса.

Есть процедура:
Private Sub CommandButton1_Click()
RichTextBox3 = Replace(RichTextBox1.Text, "Home", RichTextBox2.Text)
End Sub

(Т.е. записываем текст в RichTextBox1 и RichTextBox2. Нажимаем CommandButton1 - текст из RichTextBox1 отображается в RichTextBox3, и если в RichTextBox1 есть слово "Home", то оно заменятся на содержимое RichTextBox2.)

Как сделать, чтобы в RichTextBox3 слово из RichTextBox2, на которое мы заменили слово "Home", отображалось красным цветом?

[tae1980]

Сообщение от Sashocheck

Здравствуйте!
Подскажите, пожалуйста, решение следуещего вопроса.

Есть процедура:
Private Sub CommandButton1_Click()
RichTextBox3 = Replace(RichTextBox1.Text, "Home", RichTextBox2.Text)
End Sub

(Т.е. записываем текст в RichTextBox1 и RichTextBox2. Нажимаем CommandButton1 - текст из RichTextBox1 отображается в RichTextBox3, и если в RichTextBox1 есть слово "Home", то оно заменятся на содержимое RichTextBox2.)

Как сделать, чтобы в RichTextBox3 слово из RichTextBox2, на которое мы заменили слово "Home", отображалось красным цветом?

На сколько я знаю, нельзя задавать цвет для каждого слова, можно задать свет для всей надписи.

[doober]

Сообщение от tae1980

На сколько я знаю, нельзя задавать цвет для каждого слова, можно задать свет для всей надписи.

Не согласен

    Private Sub CommandButton1_Click()

        Dim Poz As Long
        Dim Dlinna As Long
        Dlinna = Len(RichTextBox1.Text)
        Poz = InStr(1, RichTextBox1.Text, "Home", CompareMethod.Text)
        RichTextBox3.Text = Replace(RichTextBox3.Text, "Home", RichTextBox1.Text)
        RichTextBox3.SelectionStart = Poz
        RichTextBox3.SelectionLength = Dlinna
        RichTextBox3.SelectionColor = Color.Red

    End Sub

[Sashocheck]

Спасибо, doober! То что нужно! Все прекрасно работает!