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

**Maxxx.!!!.** » 15.02.2007 (Чт) 20:32

Какая максимальная длина текста может быть загружена в RTFbox? А то если я загружаю большой текст в него, то при поиске какого-либо слова выводится ошибка "Owerflov" (или что-то в этом роде). И еще - если я скопирую текст в Ворде и вставлю его в Rtbbox, то он нормально отобразится, а если я сделают это через opendialog, то он выводит всякикую чушь, вместо текста?
Заранее благодарен.

**Viper** » 16.02.2007 (Пт) 9:43

Как это не банально звучит, но код в студию. А макисмальная длина измеряется числом Long, длину уж сам прикинь

**Maxxx.!!!.** » 16.02.2007 (Пт) 12:28

!Viper! писал(а):Как это не банально звучит, но код в студию. А макисмальная длина измеряется числом Long, длину уж сам прикинь

Вот код:
Text1 - поле, где вводится искомое слово
RichTextBox1 - сам RTFBox

Код: Выделить всё: RichTextBox1.SetFocus Dim abc As String abc = Text1.Text Dim fack As Integer fack = -1 Do fack = RichTextBox1.Find(abc, fack + 1, , rtfWholeWord) If fack <> -1 Then RichTextBox1.SelColor = RGB(255, 0, 0) RichTextBox1.Span "", True, True End If Loop While (fack <> -1)

**alibek** » 16.02.2007 (Пт) 12:40

As Integer

**Maxxx.!!!.** » 16.02.2007 (Пт) 18:29

alibek писал(а):
As Integer

Насколько я понял из этой лаконичности: надо заменить Integer на Long?

P.S. А как распечатать все содержимое RTBbox'a, а то конструкция вида:

Код: Выделить всё: Printer.Print frmRTF.rtfbox Printer.EndDoc

печатает содержимое вместе со всеми тэгами, что не есть хорошо. Заранее благодарен.

**Viper** » 17.02.2007 (Сб) 6:57

Так и должно быть, ибо свойство по умолчанию у RichTextBox defTextRTF (кстати, скрытое) как раз и содержит все тэги форматирования. Необходимо явно задавать свойство Text. В твоем случае:

Код: Выделить всё: Printer.Print frmRTF.rtfbox.Text Printer.EndDoc

**tyomitch** » 17.02.2007 (Сб) 11:53

...и распечатается не только без тегов форматирования, но и без самого форматирования ;-)

**Maxxx.!!!.** » 17.02.2007 (Сб) 11:58

tyomitch писал(а):...и распечатается не только без тегов форматирования, но и без самого форматирования

Блин, а как сделать, чтобы и тэгов не было, но и форматирование все же осталось?

**Viper** » 17.02.2007 (Сб) 12:09

tyomitch писал(а):...и распечатается не только без тегов форматирования, но и без самого форматирования

но это гораздо лучше выглядит, чем то же, но с тэгами :wink:

**Maxxx.!!!.** » 17.02.2007 (Сб) 12:44

!Viper! писал(а):
tyomitch писал(а):...и распечатается не только без тегов форматирования, но и без самого форматирования

но это гораздо лучше выглядит, чем то же, но с тэгами

Речи нет: выглядит лучше :lol:

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

**tyomitch** » 17.02.2007 (Сб) 13:16

Гугл рулит.
http://www.codeproject.com/printing/richeditprint.asp

**GSerg** » 17.02.2007 (Сб) 13:25

VBStreets тоже рулит...
http://bbs.vbstreets.ru/viewtopic.php?p=38770#38770

**Maxxx.!!!.** » 17.02.2007 (Сб) 20:18

В http://www.codeproject.com/printing/richeditprint.asp какой-то исходник на Си, а в http://bbs.vbstreets.ru/viewtopic.php?p=38770#38770 разбирается Prewiev, а не сама печать. Или я что-то не то понял?

**GSerg** » 17.02.2007 (Сб) 20:52

Или ты что-то не понял.
Исходник на C показывает идею, а не готовый код, а Preview на hdc принтера и есть печать.

**Maxxx.!!!.** » 17.02.2007 (Сб) 22:04

GSerg писал(а):Или ты что-то не понял.
Исходник на C показывает идею, а не готовый код, а Preview на hdc принтера и есть печать.

Да, недосмотрел я... А что касается С, то когда я вижу исходник на нем, то у меня вообще все идеи пропадают :lol:

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

Максимальная длина текста в RTFbox

Максимальная длина текста в RTFbox

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