Оптимизация установки цвета текста в RichTextBox

[dimaboyko]

Привет всем!

При изменении текста в RichTextBox я использую следующую процедуру, которая красит мне символы, так как мне надо:

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

Public Sub ColorRtfText(ByVal rtf As RichTextBox)
        Dim d, w As Integer
        Dim ss As String
        rtf.SelectionStart = 0
        rtf.SelectionLength = rtf.Text.Length
        rtf.SelectionColor = Color.Black
        For d = 0 To rtf.Text.Length - 1
            w = d
            ss = rtf.Text.Substring(d, 1)
            rtf.SelectionStart = w
            rtf.SelectionLength = ss.Length
            Select Case ss
                Case "П"
                    rtf.SelectionColor = Color.Red
                Case "И"
                    rtf.SelectionColor = Color.Green
                Case "П"
                    rtf.SelectionColor = Color.Blue
                Case "Е"
                    rtf.SelectionColor = Color.Blue
                Case "Ц"
                    rtf.SelectionColor = Color.Black
            End Select
        Next
    End Sub


Однако, на больших строчках более 100 символов визуально все это просто Г...НО.
И очень медленно работает... сами понимаете...

Вопрос: Как этот код оптимизировать, чтобы визуально не было замечено как идет замена цвета?

Спасибо!

[Alex[fj]]

А нафига процедура с перебором?
Наверно, можно просто по изменению текста отслеживать последний символ и красить... Вот набил, почти получилось - возиться некогда (красит следующий за нужным)
Но по-моему, так быстрее будет (если получится) и незаметнее.

[dimaboyko]

Забыл кинуть код?

[Viper]

Делай RTB невидимым и пользуйся методом Find для поиска нужного текста. Где-то была тема аналогичного содержания, стоит поискать

[Alex[fj]]

dimaboyko, вот код:

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

Dim s As String
    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        Try
            s = Mid(RichTextBox1.Text, RichTextBox1.Text.Length, 1)
        Catch ex As Exception

        End Try
        Select Case s
            Case "r"
                Try
                    RichTextBox1.SelectionStart = RichTextBox1.Text.Length - 1
                    RichTextBox1.SelectionLength = 2
                    RichTextBox1.SelectionColor = Color.Red
                    RichTextBox1.SelectionStart = RichTextBox1.Text.Length
                    RichTextBox1.SelectionColor = Color.Black
                Catch ex As Exception

                End Try
        End Select
    End Sub

[dimaboyko]

А вот когда из CLIPBOARD текст вставляешь, он должен быть раскрашен и тут этот код не вкатывает.
Также он не вкатывает когда надо править предшествующую букву.

[Alex[fj]]

dimaboyko,

...он не вкатывает когда надо править предшествующую букву.

Ну, это можно и поправить. Обрати внимание:
[старый код]

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

...
RichTextBox1.SelectionStart = RichTextBox1.Text.Length - 1
...

Поэтому и не вкатывает. SelectionStart нужно сбрасывать на единицу назад от края, а просто на единицу назад... Не учел... Но поправить можно!

А вот когда из CLIPBOARD текст вставляешь, он должен быть раскрашен и тут этот код не вкатывает.

Ну, это уже отдельная песня... Надо отслеживать втавку. Но тоже все ряльно!