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

**Matew** » 08.10.2004 (Пт) 8:48

Пишу- RichTextBox.SelFontSize = 20 , а он не меняет разер

.Мож я какое-нить свойство не выставил?

**-=TsA=-** » 08.10.2004 (Пт) 11:22

Matew писал(а):Пишу- RichTextBox.SelFontSize = 20 , а он не меняет разер .Мож я какое-нить свойство не выставил?

SelFontSize это размер шрифта выделенного текста

**Matew** » 08.10.2004 (Пт) 16:24

А как сделать так, что бы с новой строки шел другой шрифт?

**Ruslan Demidow** » 08.10.2004 (Пт) 22:21

Поясни: тебе нужно с новой строки во время добавления текста или с новой строки после выделенного?
Если во время добавления текста, тогда добавляешь в конец текста vbCrLf, Устанавливаешь .SelStart=Len(ВесьТекст)
Устанавливаешь размер, имя, жирность, подчёркивание и т.п. у шрифта (SelFontSize, SelFontBold... ) и вставляешь текст .SelText="Новая строка"
Весь новый текст примет установленные параметры.
Если же нужно после выделенного текста, тогда сложением .SelStart и SelLength определяешь позицию конца выделения, а дальше через .Find находишь положение сочетания vbCrLf. А после этого всё то же самое как и в верхнем примере, только .SelStart=(Положение vbCrLf+2) и текст вставлять не надо.

**gaidar** » 08.10.2004 (Пт) 22:24

Код: Выделить всё: rtf.Text = rtf.Text & vbCrLf rtf.SelStart = Len(rtfText.Text) rtf.FontSize = 20

**gaidar** » 08.10.2004 (Пт) 22:26

Ruslan Demidow, начинаю думать, что я слиишком мееедленно печатаю :lol:

**Ruslan Demidow** » 09.10.2004 (Сб) 10:42

gaidar писал(а):Ruslan Demidow, начинаю думать, что я слиишком мееедленно печатаю

Так получилось, извини

Главное не как быстро печатаешь, а как быстро думаешь.

**Matew** » 10.10.2004 (Вс) 11:11

Спасибо

**alibek** » 11.10.2004 (Пн) 9:36

gaidar писал(а):
Код: Выделить всё
rtf.Text = rtf.Text & vbCrLf

И где же тебя так учили, Мастер?

Только .SelText и никак иначе

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

RichTextBox

RichTextBox

Re: RichTextBox

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