Конференция VBStreets

**Sirik** » 22.09.2004 (Ср) 15:55

У меня такая проблемма:
сначала у меня RichTextBox пустой, потом я делаю так:

Код: Выделить всё: RichTextBox1.Text = "1234567890" & vbCrLf RichTextBox1.SelStart = 0 RichTextBox1.SelLength = 2 RichTextBox1.SelColor = vbRed

При следующем добавлении текста в RichTextBox весь текст почему-то становится красный, но я выделил только часть текста?
Почему так происходит я не знаю?

Каждый раз перекрашивать меня не удавлитворяет, большой объём текста

**Sirik** » 22.09.2004 (Ср) 16:07

Чтобы было понятнее:

Код: Выделить всё: RichTextBox1.Text = "1234567890" RichTextBox1.SelStart = 0 RichTextBox1.SelLength = "2" RichTextBox1.SelColor = vbRed RichTextBox1.Text = RichTextBox1.Text & "tt"

Я выделяю только 2 символа и крашу в красный, потом когда делаю добваление ещё текста, то весь перекрашивается. Что делать?

**Andrey Fedorov** » 22.09.2004 (Ср) 16:16

А ты сначала добавь сразу весь текст, а потом его раскрась - оно и намного быстрей будет.

А в твоем коде ты не добавляешь текст, а заменяешь его....

**Sirik** » 22.09.2004 (Ср) 16:37

Andrey Fedorov писал(а):А ты сначала добавь сразу весь текст, а потом его раскрась - оно и намного быстрей будет.

А в твоем коде ты не добавляешь текст, а заменяешь его....

Как это не добавляю??? Я как раз и заменяю (имеется в виду: RichTextBox1.Text = RichTextBox1.Text & "tt")

**Andrey Fedorov** » 22.09.2004 (Ср) 16:43

>Как это не добавляю??? Я как раз и заменяю (имеется в виду: RichTextBox1.Text = RichTextBox1.Text & "tt")

Заметь - ты сам сказал что заменяешь!

Присвой текст RichTextBox-у за один раз. И уже потом раскрась его. И будет тебе заодно высокая скорость.

**Sirik** » 22.09.2004 (Ср) 16:52

Ладно, оговорился я

У меня весь текст, набодобие чата, состоит из сообщений. Так вот, я сейчас так и у меня некрасиво происходит добавление новой реплики: заменяю весь текст, и крашу. Но если много реплик, происходит скороллинг от первой к посленей реплики. Всё это не красиво выглядет

**tyomitch** » 22.09.2004 (Ср) 17:05

Sirik, попробуй между

Код: Выделить всё: RichTextBox1.SelColor = vbRed

и

Код: Выделить всё: RichTextBox1.Text = RichTextBox1.Text & "tt"

делать

Код: Выделить всё: RichTextBox1.SelLength = 0 RichTextBox1.SelColor = vbBlack

**Sirik** » 22.09.2004 (Ср) 17:08

tyomitch писал(а):
Код: Выделить всё
RichTextBox1.SelLength = 0 RichTextBox1.SelColor = vbBlack

Если у буду переводить курсор в 0, то у меня будет скороллинг рича в начало. А если у меня в ричи 100 строк, ты представляешь что будет?: будет ужасное мерцание

**tyomitch** » 22.09.2004 (Ср) 17:18

Sirik, там не .SelStart, там .SelLength, посмотри внимательнее :-)

**Sirik** » 22.09.2004 (Ср) 17:22

tyomitch писал(а):Sirik, там не .SelStart, там .SelLength, посмотри внимательнее

Сорррррри, что-то заработался, глаза ни черта не видят, пора домой идти. А за совет спасибо, буду пробовать

**PATRIOT_kz** » 22.09.2004 (Ср) 18:34

поясню проще :=)

.SelStart = Len(RichTextBox1.Text) 'переводим каретку в конец (можешь не писать это в код)
.SelLength = 0 'выделяем символ chr(0) = \0
.SelColor = vbRed 'цвет красно-жопый

Всё ok'ейно работает!

**tyomitch** » 22.09.2004 (Ср) 18:37

PATRIOT_kz писал(а): .SelColor = vbRed 'цвет красно-жопый

Ура, наконец-то повод забанить патриота появился!!
:-)

**Sirik** » 23.09.2004 (Чт) 8:06

PATRIOT_kz писал(а):поясню проще :=)

.SelStart = Len(RichTextBox1.Text) 'переводим каретку в конец (можешь не писать это в код)
.SelLength = 0 'выделяем символ chr(0) = \0
.SelColor = vbRed 'цвет красно-жопый

Всё ok'ейно работает!

Народ, ну попробуйте, что-то у меня не фига не работает?!

Код: Выделить всё: RichTextBox1.Text = "1234567890" RichTextBox1.SelStart = 0 RichTextBox1.SelLength = 2 RichTextBox1.SelColor = vbRed RichTextBox1.SelStart = Len(RichTextBox1.Text) RichTextBox1.SelLength = 0 RichTextBox1.SelColor = vbBlack RichTextBox1.Text = RichTextBox1.Text & "1234567890"

Почему кода вставляю строку RichTextBox1.Text = RichTextBox1.Text & "1234567890", весь текст стаёт красным?

**alibek** » 23.09.2004 (Чт) 10:05

Блин, да не .Text ты меняй, а .SelText.

**Sirik** » 23.09.2004 (Чт) 10:07

alibek писал(а):Блин, да не .Text ты меняй, а .SelText.

Всё, всё, получилось

**PATRIOT_kz** » 23.09.2004 (Чт) 11:23

Обращение к "tyomitch".

[censored]

**RayShade** » 23.09.2004 (Чт) 13:29

PATRIOT_kz

Во первых, выбирай выражения, когда пишешь это раз. Во вторых, подучи матчасть прежде чем писать комментарии. В третьих - читай Правила конференции, где ясно сказано, что вся личная переписка идет через личные сообщения.

В итоге ты получаешь три строгих замечания из трех возможных. За любое следующее нарушение будет тебе бан.

Конференция VBStreets

RichTextBox

RichTextBox

Кто сейчас на конференции