Поиск в тексте

[ВуД]

Прива всем.

Мне надо сделать поиск по тексту. Например, у меня два RichTextBox в первом напечатан текст мне надо, когда я во втором печатаю и если это слово есть в первом RichTextBox то второй слово выделяется красным цветом?

[Antonariy]

InStr, SelStart, SelLength, SelColor. Если эти слова тебе ни о чем не говорят, воспользуйся поиском.

[ВуД]

InStr, SelStart, SelLength, SelColor. Если эти слова тебе ни о чем не говорят, воспользуйся поиском.

Спасибо

[Amed]

Код: Выделить всё

Option Explicit

Private Sub RichTextBox2_Change()
On Error Resume Next

With RichTextBox2
    If Mid$(.Text, .SelStart, 1) = " " Then
        Dim pos As Long
       
        pos = InStrRev(.Text, " ", .SelStart - 1) + 1
       
        If pos > 0 Then
            Dim word As String
           
            word = Mid$(.Text, pos, .SelStart - pos)
           
            Dim oldselstart As Long, oldsellen As Long
           
            oldselstart = .SelStart
            oldsellen = .SelLength
           
            .SelStart = pos - 1
            .SelLength = Len(word)
            .SelColor = vbRed
           
            .SelStart = oldselstart
            .SelLength = oldsellen
        End If
    End If
End With
End Sub

Переделывай и доделывай

[tyomitch]

Чесслово, надоело каждую неделю видеть очередной топик ВуД-а с одним и тем же вопросом