Помогите исправить

[ВуД]

Вот у меня код который закрашивается определёное слово в компоненте RichTextBox.

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

Sub ColorIt(ByVal lBegPos As Long, ByVal lLength As Long)
    RichTextBox1.SelStart = lBegPos - 1
    RichTextBox1.SelLength = lLength
    RichTextBox1.SelColor = vbRed
End Sub

Private Sub RichTextBox1_Change()
Dim sst As Long, slln As Long
Dim lCurPos As Long
RichTextBox1.Enabled = False
sst = RichTextBox1.SelStart
slln = RichTextBox1.SelLength
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text) + 1
RichTextBox1.SelColor = vbBlack


lCurPos = 0
    Do
        lCurPos = InStr(lCurPos + 1, RichTextBox1.Text, "print", vbTextCompare)
        If lCurPos = 0 Then Exit Do
        ColorIt lCurPos, 5
    Loop

RichTextBox1.SelStart = sst
RichTextBox1.SelLength = slln
RichTextBox1.SelColor = vbBlack
RichTextBox1.Enabled = True
RichTextBox1.SetFocus
End Sub


Помогите исправить РихТекстбокс крутит скроллером сверху вниз, когда что либо вводиш. Ето становиться очень заметным, когда редактируеш длинный текст. Причина мне понятна, а вот решение - нет.

[Serge Gavrilov]

А зачем вы каждый раз на начало уходите?
А зачем каждый раз весь текст проверять?

[Efiop]

ВуД а это тебе для чего надо? Типа как в Васике, подсветка операторов и функций или че-то другое?

[Antonariy]

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

Private Sub RichTextBox1_Change()
Dim sst As Long, slln As Long
Dim lCurPos As Long
sst = RichTextBox1.SelStart
slln = RichTextBox1.SelLength
lCurPos = InstrRev(RichTextBox1.Text, " ", sst)
If CurPos = 0 Then CurPos = sst
    Do
        lCurPos = InStr(lCurPos + 1, RichTextBox1.Text, "print", vbTextCompare)
        If lCurPos = 0 Then Exit Do
        ColorIt lCurPos, 5
    Loop
RichTextBox1.SelStart = sst
RichTextBox1.SelLength = slln
End Sub

[ВуД]

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

Private Sub RichTextBox1_Change()
Dim sst As Long, slln As Long
Dim lCurPos As Long
sst = RichTextBox1.SelStart
slln = RichTextBox1.SelLength
lCurPos = InstrRev(RichTextBox1.Text, " ", sst)
If CurPos = 0 Then CurPos = sst
    Do
        lCurPos = InStr(lCurPos + 1, RichTextBox1.Text, "print", vbTextCompare)
        If lCurPos = 0 Then Exit Do
        ColorIt lCurPos, 5
    Loop
RichTextBox1.SelStart = sst
RichTextBox1.SelLength = slln
End Sub

Ну здесь же тоже козяк есть слово в которой меняется цвет после каждого пробела выделяется и это тоже заметно. А как сделать без всяких касиков?

[Antonariy]

rtb очень капризный контрол, так что пилите, Шура, пилите. Пару лет назад я делал подсветку html кода в rtb и по крайней мере твои проблемы как-то решил. Если найду исходники, напишу как у меня было. Одно помню, использовал второй невидимый rtb.

[zHackLeX]

Если для подсветки кода - то скачай CodeMax (контрол от WinMain) - очень полезная вещь

[ВуД]

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

Private Sub RichTextBox1_Change()
Dim sst As Long, slln As Long
Dim lCurPos As Long
sst = RichTextBox1.SelStart
slln = RichTextBox1.SelLength
lCurPos = InstrRev(RichTextBox1.Text, " ", sst)
If CurPos = 0 Then CurPos = sst
    Do
        lCurPos = InStr(lCurPos + 1, RichTextBox1.Text, "print", vbTextCompare)
        If lCurPos = 0 Then Exit Do
        ColorIt lCurPos, 5
    Loop
RichTextBox1.SelStart = sst
RichTextBox1.SelLength = slln
End Sub

Ну здесь же тоже козяк есть слово в которой меняется цвет после каждого пробела выделяется и это тоже заметно. А как сделать без всяких касиков?

Когда очещаеш текст то появляется ошибка как ее можно исправить?

[Antonariy]

Обработать?

[ВуД]

Обработать?

Обработать как?

[alibek]

Кодом?

[ВуД]

:scratch: Кодом?

Я побовал и ни как не получается . Помогите пожалюйста.