Если находим нужное слово выделяем его. Часть #2

[zaf]

Вот есть код от vvs_adm

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

Private Sub Command1_Click()
Dim i As Long
Do

    With RichTextBox1
        i = .Find("zaf", i + 1) ' тут была ошибка
        If i > 0 Then
            .SelStart = i
            .SelLength = Len("zaf")
            .SelColor = vbRed
            .SelLength = 0
        End If
    End With
Loop While i > 0


End Sub

Он в RichTextBox1 ищет слова zaf и выделяет их
Но RichTextBox1 каждую секунду таймером обновляется ну соответственно вместе с этим кодом

Когда текста много строк и во всех почти строках есть слово zaf то рич текст бокс очень сильно моргает, т.е. весь текст прокручивается...

Попробовал убрать .SelStart = i не помогает:(

Забыл сказать что в этом таймере еще и каждый раз выполняется RichTextBox1.SelStart = Len(RichTextBox1.Text) т.е. прокрутка в самый низ

Короче как сделать чтобы он слова выделял и при этом не прогручивал весь текст (глаза болят)?

[Amed]

Варианты.

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

            .visible=false
            .SelStart = i
            .SelLength = Len("zaf")
            .SelColor = vbRed
            .SelLength = 0
            .visible=true


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

            .enabled=false
            .SelStart = i
            .SelLength = Len("zaf")
            .SelColor = vbRed
            .SelLength = 0
            .enabled=true


[zaf]

Списибо за идею!

Вот так не мерцает

Private Sub Timer2_Timer()
RichTextBox1.Visible = False
Dim i As Long
Do

With RichTextBox1
i = .Find("zaf", i + 1) ' тут была ошибка
If i > 0 Then
.SelStart = i
.SelLength = Len("zaf")
.SelColor = vbRed
.SelLength = 0
End If
End With
Loop While i > 0

RichTextBox1.Visible = True
RichTextBox1.SelStart = Len(RichTextBox1.Text)
End Sub

[zaf]

А как можно сделать чтобы одновременно и цвет самого текста поменять и выделять цвет ников?

[zaf]

Все разобрался

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


Private Sub Timer2_Timer()


Dim zChatext As String




Open Form1.urlChat For Input As #fileFree
RichTextBox1.Text = Input$(LOF(fileFree), #fileFree)

Close #fileFree
RichTextBox1.Visible = False
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
RichTextBox1.SelColor = cOlortext
Dim i As Long
Do
    With RichTextBox1
        i = .Find(Form1.uNik, i + 1)
        If i > 0 Then
           
            .SelStart = i
            .SelLength = Len(Form1.uNik)
            .SelColor = cOlormsg
            .SelLength = 0
            End If
    End With

Loop While i > 0




RichTextBox1.SelStart = Len(RichTextBox1.Text)

RichTextBox1.Visible = True
End Sub