Тема вроде была избитая, но...

[NJ]

Здравствуйте, чёрт возьми... Вот и я попался на эту удочку (в "более раннем" форуме кажись что-то было на эту тему - но канул он в лету...). Вопрос: что за бл("poison" англ.)ство, извиняюсь? Какого, спрашивается, хэ?
А дело вот в чём: берём RichTextBox, программно (через его .Text т.е. text=text & str) добавляем ему строчку, выделяем её, ставим всякие проперти, которые на Sel начинаются, допустим цвет (.SelColor) - красота! Второй раз - тоже всё получается - две строчки разными цветами, всё чики-пуки... Блин! А почему он после третьего (и т.д.) раза все ранее написаные строчки красит в цвет первой строки?!

Вот пример кода, коли не верите:

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

Private Sub Command1_Click()
RichTextBox1.BackColor = vbBlack
addTextToRTB "Line 1", vbRed
MsgBox "Line 1 must be red."
addTextToRTB "Line 2", vbGreen
MsgBox "Line 1 must be red and line 2 must be green."
addTextToRTB "Line 3", vbBlue
MsgBox "Line 1 must be red, line 2 must be green and line 3 must be blue."
End Sub

Private Sub addTextToRTB(addLine As String, txtColor As Long)

RichTextBox1.Text = RichTextBox1.Text & addLine & vbNewLine
RichTextBox1.SelStart = Len(RichTextBox1.Text) - Len(addLine & vbNewLine)
RichTextBox1.SelLength = Len(addLine & vbNewLine) 'Этого можно было-бы и не писать, но...
RichTextBox1.SelColor = txtColor
RichTextBox1.SelStart = Len(RichTextBox1.Text)
End Sub


Мысли роятся, конечно (куда-ж без них-то )... Возможно это как-то связано с тем, что я полностью обновляю весь текст в боксе, даже скорее всего так оно и есть, но как от этого уйти? Руками писать в какой-нибудь TEMP.RTF на диск, а потом читать в бокс - я еп всё так развлекаться... А у вас какие-нибудь есть идеи?

[TimeKeeper]

У меня есть идея: использовать TextRTF вместо Text.

Сейчас попробывать не могу

[NJ]

У меня есть идея: использовать TextRTF вместо Text.

Сейчас попробывать не могу

Те же яйца. Тот-же TEMP.RTF ИМХО...

[TimeKeeper]

Через пол часа у меня будут возможность опробывать твой пример.

[TimeKeeper]

Ни хрена не получается! Какая-то фигня, я думаю, с RTF.

[sanches]

Private Sub addTextToRTB(addLine As String, txtColor As Long)
With RTB
.SelStart = Len(RTB.Text)
.SelColor = txtColor
.SelText = addLine
End With
End Sub

[TimeKeeper]

А вот это работает

Как говорится, все гениальное - просто

[alibek]

sanches, я бы только написал бы .SelText = addLine & VbNewLine

[sanches]

ну забыл я, что тута AddLine а не AddText...но это ладно, у меня другой вопрос возник.....Объясните мне ламеру , за каким фигом понадобилось Мелгомягким заводить две ОДИНАКОВЫЕ константы vbCrLf и vbNewLine?Я идиот! Убейте меня, кто-нибудь!? Ведь по смыслу то они одинаковые

[skiperski]

vbNewLine должна быть платформозависимая. По крайней мере так написано. Т.е. где-то, не знаю где, она может быть не равна vbCrLf.

[NJ]

Хм... Всё так просто. Спасибо!

[Firestorm]

как-никак а vbcrlf - этож просто символ перевода строка на новую сторку, и должен везде (и при всех условиях ) работать ...

[skiperski]

как-никак а vbcrlf - этож просто символ перевода строка на новую сторку, и должен везде (и при всех условиях ) работать ...

vbCrLf ::= vbCr & vbLf ::= Chr$(13) & Chr$(10)

, т.е., как видим, это не символ, а набор символов.
13 - перевод каретки в начало строки, 10 - переход на новую строку.

Под DOC достаточно было перевода каретки (13), под другими системами (кажется под UNIX) - перехода на новую строку (10). Посмотри тексты сформатированные не под Windows. Потому, во избежание проблем, рекомендуют пользоваться константой vbNewLine, которая содержит правильный набор символов. Хотя я по привычке пользую vbCrLf и пока всё живёт.