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, 3
Loop
RichTextBox1.SelStart = sst
RichTextBox1.SelLength = slln
RichTextBox1.SelColor = vbBlack
RichTextBox1.Enabled = True
RichTextBox1.SetFocus
End Sub
Раскраска скрипта в RichEdit
HI!
Мне надо зделать розкраску скрипта в RichEdit. Надо чтобы когда вводиш, например, Print, то текст печатался синим цветом, а когда вводиш коментарий ( 'comment ) , то печаталось зеленым.
Но мне нужно чтобы не только печатать можна было, но чтобы можна было поместить туда программно текст и разукрасить его.
Мне надо зделать розкраску скрипта в RichEdit. Надо чтобы когда вводиш, например, Print, то текст печатался синим цветом, а когда вводиш коментарий ( 'comment ) , то печаталось зеленым.
Но мне нужно чтобы не только печатать можна было, но чтобы можна было поместить туда программно текст и разукрасить его.
Для этого надо ипользовать функцию InStr:)
Я как то делал виде такого, если код найду то скину тебе:)
Я как то делал виде такого, если код найду то скину тебе:)
О! Вот ето я понимаю, скрипт!
Только Rich меня задолбал: при каждом нажатии клавиши Enter он переключаеться на русскую разакладку, блин!
Только Rich меня задолбал: при каждом нажатии клавиши Enter он переключаеться на русскую разакладку, блин!
[QUOTE=ВуД™]Вот код:
[/QUOTE]
только наверное не ColorIt ICurPos, 3 а ColorIt ICurPos, 5. А то как - то некрасиво выходит - только pri выделяется :)
Код:
Do
lCurPos = InStr(lCurPos + 1, RichTextBox1.Text, "print", vbTextCompare)
If lCurPos = 0 Then Exit Do
ColorIt lCurPos, 3
Loop
lCurPos = InStr(lCurPos + 1, RichTextBox1.Text, "print", vbTextCompare)
If lCurPos = 0 Then Exit Do
ColorIt lCurPos, 3
Loop
только наверное не ColorIt ICurPos, 3 а ColorIt ICurPos, 5. А то как - то некрасиво выходит - только pri выделяется :)
Нее, ето лечше: Len("print") :)
[QUOTE=Bard]Нее, ето лечше: Len("print") :)[/QUOTE]
согласен! а ещё лучше установить EmEditor и наслаждаться подсветкой синтаксиса у него :D
согласен! а ещё лучше установить EmEditor и наслаждаться подсветкой синтаксиса у него :D
[QUOTE=ace lighting]только наверное не ColorIt ICurPos, 3 а ColorIt ICurPos, 5. А то как - то некрасиво выходит - только pri выделяется :)[/QUOTE]
Извени проглядел:mad: , а а так все нормально :)
Извени проглядел:mad: , а а так все нормально :)
[QUOTE=ВуД™]...а так все нормально...[/QUOTE]
Почти... РихТекстбокс крутит скроллером сверху вниз, когда что либо вводиш. Ето становиться очень заметным, когда редактируеш длинный текст. Причина мне понятна, а вот решение - нет.
Почти... РихТекстбокс крутит скроллером сверху вниз, когда что либо вводиш. Ето становиться очень заметным, когда редактируеш длинный текст. Причина мне понятна, а вот решение - нет.
[QUOTE=Bard]Почти... РихТекстбокс крутит скроллером сверху вниз, когда что либо вводиш. Ето становиться очень заметным, когда редактируеш длинный текст. Причина мне понятна, а вот решение - нет.[/QUOTE]
Решения есть только так если сделать:
Но сдесь другой касяк, а как его исправитья не знаю.
Если догодаешся скажи.
Решения есть только так если сделать:
Код:
sst = RichTextBox1.SelStart
lCurPos = 0
Do
lCurPos = InStr(lCurPos + 1, RichTextBox1.Text, "print", vbTextCompare)
If lCurPos = 0 Then Exit Do
ColorIt lCurPos, 3
Loop
RichTextBox1.SelStart = sst
RichTextBox1.SelColor = vbBlack
lCurPos = 0
Do
lCurPos = InStr(lCurPos + 1, RichTextBox1.Text, "print", vbTextCompare)
If lCurPos = 0 Then Exit Do
ColorIt lCurPos, 3
Loop
RichTextBox1.SelStart = sst
RichTextBox1.SelColor = vbBlack
Но сдесь другой касяк, а как его исправитья не знаю.
Если догодаешся скажи.
Ето ничяго не дает :( Проблема как была, так и осталась :(
Может Api нам какие-нибудь помогут?:) :)
[QUOTE=Bard]Ето ничяго не дает :( Проблема как была, так и осталась :([/QUOTE]
Всё проблема решина:
Всё проблема решина:
Код:
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
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
Приведи, пожалуйста код, твоей функцыи [font="Courier New"]ColorIt[/font].
Цитата:
Приведи, пожалуйста код, твоей функцыи ColorIt.
Он же есть здесь.:cool:
[quote=ВуД™]Всё проблема решина[/quote]
теперь есть другой глюк :( когда набрать принт то все хорошо, но если набрать принт, а потом удалить какую-то букву, например крайнюю, то прин тоже будет выделенным :(:(:(
теперь есть другой глюк :( когда набрать принт то все хорошо, но если набрать принт, а потом удалить какую-то букву, например крайнюю, то прин тоже будет выделенным :(:(:(
[quote=ВуД™]Он же есть здесь.:cool:[/quote]
Да? Тогда почему у твоего вызова только два параметра, а не три?
Да? Тогда почему у твоего вызова только два параметра, а не три?
[QUOTE=Bard]Да? Тогда почему у твоего вызова только два параметра, а не три?[/QUOTE]
Где? :confused: Вроде все нормально.
Где? :confused: Вроде все нормально.
[QUOTE=ВуД™]Где? :confused: Вроде все нормально.[/QUOTE]
Ну да ладно ето не многое меняет....
Чюю я что рихедит не для етих целей предназначен...
Читай пост №16
Ну да ладно ето не многое меняет....
Чюю я что рихедит не для етих целей предназначен...
Читай пост №16