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

[Q2W]

Слушайте, у меня другая проблема. Пробовал поиском - ничего не нашёл.
Вобщем имею текст в РТФтекстбоксе.
Подсвечиваю его путём установки выделенного текста и .SelColor=vbBlue.
После этого мне надо добавить туда текст.
Я делаю это так: MyRTF.text=MyRTF.text & string.
Всё форматирование сбрасываецца. Точнее всё становицца синим.
Если использовать не .text, а .textRTF - новый текст не добавляется. Там в .textRTF вообще какие-то теги, а я не хочу с ними разбираться, ибо должен быть какой-то нормальный способ это сделать.

[keks-n]

Надо копировать TextRTF. Он с форматированием.

[Q2W]

Надо копировать TextRTF. Он с форматированием.

Ты не дочитал, видимо мой пост.

Я делаю это так: MyRTF.text=MyRTF.text & string.
Всё форматирование сбрасываецца. Точнее всё становицца синим

[DirectXManiac]

ИМХО потом надо заново менять цвета

[keks-n]

Q2W
А ты не понял...

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

RichTextBox1.SelStart = Len(RichTextBox1.TextRTF)
RichTextBox1.SelRTF = RichTextBox2.TextRTF

[Q2W]

Q2W
А ты не понял...

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

RichTextBox1.SelStart = Len(RichTextBox1.TextRTF)
RichTextBox1.SelRTF = RichTextBox2.TextRTF

Дык для этого нужен второй RTF-контрол, а это не красиво!

[keks-n]

Руками генери RTF, если это по твоему некрасиво...

[Q2W]

Руками генери RTF, если это по твоему некрасиво...

Дык и это не лучше...

[keks-n]

Чем тебя не устраивает ещё один текстбокс, к тому же невидимый?

[Q2W]

Тем, что целый RTF-текстбокс только для добавления неформатированного текста в другой RTF-текстбокс без сброса форматирования в этом "другом".
Избыточная функциональность.

[keks-n]

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

[Q2W]

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

Причём здесь религия и только что вставленный текст?
Сразу после того, как я вставил, теряется ВСЁ форматирования RTF-контрола. Т.е. всё, что там было до добавления, стало с дефолтным форматированием!

[keks-n]

Покажи.

[Q2W]

:shock: Покажи.

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


Private Sub Command1_Click()
    ' Добавлялка текста в RTF-контрол
    RichTextBox1.Text = RichTextBox1.Text & "aaa"
End Sub
Private Sub Command2_Click()
    ' Красим выделенное в синий
    RichTextBox1.SelColor = vbBlue
End Sub


Вот тут в RTF-контроле чё-нить пишем, чё-нить выделяем, нажимаем Command1, чтобы выделенное покрасилось, нажимаем Command2, чтобы добавить текст, видим, что то, что было покрашено, стало опять чёрным.

[keks-n]

Гм... Баг.

[Q2W]

На самом деле дело в том, что я полностью сбрасываю текст RTF-контрола и вставляю текст без форматирования (.Text - текст без форматирования).
Если вставлять TextRTF=TextRTF & "aaa", то "ааа" не видно, ибо оно вне тегов RTF. Лезть в теги RTF - не выход.

[keks-n]

Вставляй отдельно:
TextRTF=TextRTF
SelStart=Len(TextRtf)
Seltext="aaa"

[Q2W]

Отлично, большое спасибо, сам не додумался

[Master]

Решил написать клиент IRC чата. Был доволен когда отправил из него сообщение . А счас решил сделать подсветку. Что б ники др. цветом выдилялись ну и тд ...
Нашел на этом форуме 3 топика посвяшенных вопросам подсветки в RichTextBox е. Все изучив попробовав пару способов столкнулся с проблемами.

Решение 1. Просто при получении нового сообшения выдилять его и давать определенный цвет.
Проблема. Последнее добавленое сообщение светиться правильно а все остальные непрвильно(все одним цветом)

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

Sub selTextCol(color as Long)
    Text1.SelStart = ChatLen
    Text1.SelLength = Len(Text1.Text) - ChatLen
    Text1.SelColor = color
    ChatLen = Len(Text1.Text)
End Sub


Решение 2. Получая сообщение добавлять в масив начальную позицию, длинну и цвет. А потом просто обновлять весь TextBox.
Проблема. Когда в TextBox больше 200 строк стает сильно заметно как он дергаеться при обновлении.

[Viper]

По идее в первом варианте у тебя все правильно, может быть что-то не так с переменной ChatLen?

[Master]

По идее в первом варианте у тебя все правильно, может быть что-то не так с переменной ChatLen?

Исключено! С ней 100% все гуут. Вот я пробовал так

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


    Text1.SelStart = cont
    Text1.SelLength = 1
    Text1.SelColor = color
    ChatLen = Len(Text1.Text)
    cont = cont + 2


ТОчно также. Цветной только один символ, все остальное черное.

[Viper]

Если все было черным до изменения цвета одного символа, то черным и останется

[Master]

Если все было черным до изменения цвета одного символа, то черным и останется

Сорри это просто я неполный кусок кода показал вот:

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


Private Sub Timer1_Timer()
    Dim color as Long
    color = RGB (255,0,0)
    Text1.Text = Text1.Text + chr(13) + chr(10) + "Hello!"
    Text1.SelStart = cont
    Text1.SelLength = 1
    Text1.SelColor = color
    ChatLen = Len(Text1.Text)
    cont = cont + 2
End sub


Таймер:
Enabled = true
Interval = 1000

[alibek]

Разумеется.
Потому что речь шла о RichTextBox, а не TextBox.

[Master]

Разумеется.
Потому что речь шла о RichTextBox, а не TextBox.

Нет, я говорю именно про RichTextBox. Помойму у TextBox вообще нет SelColor.

[blinow]

Мама дорогая, (не мамкай), Хакер мне нуно сделать проект по станции переливания крови, ну ни как не пойу чо делать, накатай а

[alibek]

Нет, я говорю именно про RichTextBox.

В таком случае перечитай топик. Например, ответ keks-n.

[Master]

В таком случае перечитай топик. Например, ответ keks-n.

Перечетале еще пару раз топик все заработало! Спасибо! Вот что вышло:

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

Sub PrintText(TextS As String, color As Long)
Text2.Text = TextS
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
Text2.SelColor = color
Text1.SelStart = Len(Text1.TextRTF)
Text1.SelRTF = Text2.TextRTF
End Sub