слово было друим цветом

[ВуД]

Как сделать слово "ВуД" при написание в RichTextBox1 выделялось красным цветом

[Oxygen]

А ведь совсем недавно обсуждалось...
Поиском пользоваться нужно иногда...
http://bbs.vbstreets.ru/viewtopic.php?p ... 5#66101835

[ВуД]

А ведь совсем недавно обсуждалось...
Поиском пользоваться нужно иногда...
http://bbs.vbstreets.ru/viewtopic.php?p ... 5#66101835

Здесь не то ...

[Хакер]

Сначало было слово, и слово было другим цветом. Но пришёл ВуД и задал неправильный вопрос. Он забыл поставить "чтобы" после "Как сделать".

Если бы он правильно сказал правильно, ему бы и ответили правильно.

По крайней мере, мне в личку приходят тоннами такие вопросы. Вот в частности последний пример что я делал на эту тему:

[Хакер]

Вот:

[ВуД]

Как сделать слово "ВуД" при написание в RichTextBox1 выделялось красным цветом

Мне нужно сделать при написание в RichTextBox1 слово "ВуД" печаталось красным цветом вот и всё

[Хакер]

Чем мой пример не устраевает?

<====== 1234

[ВуД]

Не понимаю че вопрос не понятен что ли

[Kovu]

ВуД
Ты не поверишь, но если включить Device мозг, и чуть-чуть изменить пример Хакера, то получится то, что ты хочешь.

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


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, "ВуД", 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


[ВуД]

Как сделать так:
Слово "Вуд" кавычки печатались синим цветом а Вуд красным в этом слове а если посто печатать слово вуд и "" то черный и остальные слова.

[DirectXManiac]

ВуД
Читай внимателнее... Почему Хакер, Kovu должны что-то делать за тебя? Тебе дали хороший пример, вот и разберайся тем более инфы на форуме по сабжу полно... Если ты хочешь чтобы всё делали за тебя зачем взялся за программирование? Надо разбираться с примером а не посмотреть что это не то и забить на него...

[Хакер]

lCurPos = 0
Do
lCurPos = InStr(lCurPos + 1, RichTextBox1.Text, Chr(34)+"ВуД"+Chr(34), vbTextCompare)
If lCurPos = 0 Then Exit Do
ColorIt lCurPos, 3
Loop

[ANDLL]

Хакер
lCurPos = InStr(lCurPos + 1, RichTextBox1.Text, """ВуД""", vbTextCompare)
Несколько символов меньше...

[Хакер]

Дык, чел подумает что ищется """ВуД""" и сочтёт нас опять, за идиотов

[DirectXManiac]

Хакер
Просто надо учиться разбираться с примерами а не бросаться словами что неправильно!
ВуД
????

[Kovu]

DirectXManiac
А почему обращение к Хакеру? Это ж Вуду вроде лень самому разобраться как работает код. Хотя, мне не особо трудно подогнать под "новую задачу" замечательный пример Хакера

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


Sub ColorIt(ByVal lBegPos As Long, ByVal lLength As Long)
    RichTextBox1.SelStart = lBegPos - 1
    RichTextBox1.SelLength = 1
    RichTextBox1.SelColor = vbBlue
    RichTextBox1.SelStart = lBegPos
    RichTextBox1.SelLength = 3
    RichTextBox1.SelColor = vbRed
    RichTextBox1.SelStart = lBegPos + 3
    RichTextBox1.SelLength = 1
    RichTextBox1.SelColor = vbBlue
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, Chr(34) + "ВуД" + Chr(34), 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




[ВуД]

Я как сделать одним цветом несколько слов

[Kovu]

/me достает бензопилу и ме-дле-нно приближается к Вуду.
p.s. Too Many attempts...

[keks-n]

Как правильно заметил Kovu, включить девайс мозг.

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

[ВуД]

/me достает бензопилу и ме-дле-нно приближается к Вуду.
p.s. Too Many attempts...

че за фегня

[GSerg]

Всё происходящее определённо напоминает мне http://www.bash.org/?641114 вперемешку с http://www.bash.org/?3936.
ВуДу рекомендуется пересмотреть отношение к объективной реальности, данной нам в ощущениях.

[ВуД]

Помогите, пожалуйста

Все это последний вопрос по этой теме

Вот я прописываю так и почему то не выходит:

Do
lCurPos = InStr(lCurPos + 1, RichTextBox1.Text, Chr(34) + RichTextBox1.Text +"Вуд" + RichTextBox1.Text + Chr(34), vbTextCompare)
If lCurPos = 0 Then Exit Do
ColorIt lCurPos, 3
Loop
А мне нужно что: "тест Вуд-это ...."

[Gmp]

ВуД

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

Private Sub RichTextBox1_Change()
Dim sst As Long, slln As Long
Dim matchCol As MatchCollection
Dim nashel As Match
Dim s As String
sst = RichTextBox1.SelStart
slln = RichTextBox1.SelLength

    On Error Resume Next

    Dim reg As New RegExp
    reg.Pattern = "ВуД"
    reg.IgnoreCase = True
    reg.Global = True
   
    Dim reg2 As New RegExp
    reg2.Pattern = Chr(34)
    reg2.IgnoreCase = True
    reg2.Global = True

    s = RichTextBox1.Text
   
    Set matches = reg.Execute(s)
    For Each nashel In matches
        RichTextBox1.SelStart = nashel.FirstIndex
        RichTextBox1.SelLength = nashel.Length
        RichTextBox1.SelColor = vbRed
    Next nashel
   
    Set matches = reg2.Execute(s)
    For Each nashel In matches
        RichTextBox1.SelStart = nashel.FirstIndex
        RichTextBox1.SelLength = nashel.Length
        RichTextBox1.SelColor = vbBlue
    Next nashel

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

Project -> References -> Microsoft VBscript regular expressions

[Хакер]

Помогите, пожалуйста

Все это последний вопрос по этой теме

Вот я прописываю так и почему то не выходит:

Do
lCurPos = InStr(lCurPos + 1, RichTextBox1.Text, Chr(34) + RichTextBox1.Text +"Вуд" + RichTextBox1.Text + Chr(34), vbTextCompare)
If lCurPos = 0 Then Exit Do
ColorIt lCurPos, 3
Loop
А мне нужно что: "тест Вуд-это ...."

Строчку вот эту исправь
lCurPos = InStr(lCurPos + 1, RichTextBox1.Text, "Вуд", vbTextCompare)

_____________________

Gmp, ты это для прикола написал?

[ВуД]

Помогите, пожалуйста

Все это последний вопрос по этой теме

Вот я прописываю так и почему то не выходит:

Do
lCurPos = InStr(lCurPos + 1, RichTextBox1.Text, Chr(34) + RichTextBox1.Text +"Вуд" + RichTextBox1.Text + Chr(34), vbTextCompare)
If lCurPos = 0 Then Exit Do
ColorIt lCurPos, 3
Loop
А мне нужно что: "тест Вуд-это ...."

Строчку вот эту исправь
lCurPos = InStr(lCurPos + 1, RichTextBox1.Text, "Вуд", vbTextCompare)

Да все правильно но мне надо чтобы слово Вуд только в кавычках писалось синим, а так черным

[Хакер]

Тогда вместо
"Вуд"
пишешь
Chr(34) + "Вуд" + Chr(34) или """Вуд""" (как больше нравится)

но никак не

Chr(34) + RichTextBox1.Text +"Вуд" + RichTextBox1.Text + Chr(34),

[Kovu]

Хакер
Ему нужен более извращенный вариант. Если есть в тексте кавычки, а в тексте между кавычками есть слово Вуд, то тогда надо покрасить кавычки и Вуда.

[Хакер]

Ну тогда специально для требующий более извращенских варианта.

Вот, качайте пример:

[ВуД]

Большое спасибо Kovu и Хакер

[ВуД]

Хакер
А если также сделать только в скобках
ПОМОГИ