Rich Text Box

[Dimon007]

Мне нужно при копировании текста из одного RTB в другой сохранять форматирование текста. При копировании и вставке вручную форматирование сохраняется, если же делать так:

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

rtb2.text=rtb1.text

То форматирование теряется.
Вопрос: форматирование можно сохранять только при копировании через буфер обмена, или же есть ещё какие-либо пути сохранения оного?
P.S. В поиске не нашёл ничего на эту тему

[GSerg]

Есть и такая примета, что чем примитивнее вопрос, тем обстоятельнее и описательнее его задают...

Автор, попробуй нажать F2. И в списке свойств ричтекстбокса найди то, которые содержит в своём названии слово Text. Но не просто Text.

[Dimon007]

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

rtb2.TextRTF = rtb1.TextRTF

так работает , спс.
А если вот так:

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

rtb2.TextRTF = rtb2.TextRTF + rtb1.TextRTF

,
то нет, как быть со вторым случаем?

[GSerg]

Если во втором случае копирование через буфер не нравится, то надо воспользоваться EM_SETSEL, о котором наверняка немало сказано в поиске.

Или, пойдя по пути ленивого, тупо присвоить SelRTF.

Учимся находить очевидные вещи самостоятельно.
Да?

[Dimon007]

GSerg, очивидные-то они очевидные, но найти их порой не так просто.

[Dimon007]

Ещё проблема. Сразу говорю, в поиске не нашёл ответа на свой вопрос.

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

d = Form1.txt_name.Text + " (" + str(1) + ")"
        Text1.SelStart = Len(Text1.Text)
        Text1.SelLength = Len(d)
        Text1.SelColor = RGB(0, 0, 255)
        Text1.Text = Text1.Text + d + vbCrLf + Text2.Text + vbCrLf

Text1 - это RTB. SelStart определяется нормально, а вот SelLength - неверно. К примеру при Len(d) = 19, Text1.SelLength = 2. И весь текст, а не только выделенный окрашивается в синий. Отчего такое может происходить?

[GSerg]

Сразу говорю, в поиске не нашёл ответа на свой вопрос.

В поиске нет ответов и на другие, уж прости, предельно глупые вопросы.
Что такое в твоём понимании SelLength?
И как, в твоём понимании, работает .Text = ""? Детально? Ну, сначала ..., потом ..., и наконец ...

[Dimon007]

Что такое в твоём понимании SelLength?

SelLength в моём понимании - это длина выделения в символах.

И как, в твоём понимании, работает .Text = ""? Детально? Ну, сначала ..., потом ..., и наконец ...

Не понял тебя, что ты имеешь ввиду?

Код я чуть поправил, там ошибка была, но теперь вообще нет синего текста.

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

d = Form1.txt_name.Text + " (" + str(1) + ")"
Text1.SelStart = Len(Text1.Text)
Text1.Text = Text1.Text + d + vbCrLf + Text2.Text + vbCrLf
Text1.SelLength = Len(d)
Text1.SelColor = RGB(0, 0, 255)


[GSerg]

Dimon007, перечитай топик сначала. Увидь там, пожалуйста, упоминание свойства SelRTF. И подумай.

[Dimon007]

GSerg, можешь сказать, где можно найти нормальный FAQ по RTB на русском? Поисковые системы просьба не предлагать.

[GSerg]

На русском? Увольте.

Есть http://msdn2.microsoft.com/en-us/library/aa261597(VS.60).aspx, и ничего более полного и справочного нет.

[Dimon007]

GSerg, спасибо те большое за проделанную тобой работу и оказанную тобой мне помощь