Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Объединить два RichTextBox / 4 сообщений из 4, страница 1 из 1
01.05.2005, 12:16:55
    #33044398
Aklin
Aklin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединить два RichTextBox
Имеется два RichTextBox (далее RTB) : RTB1 и RTB2

Требуется объединить их информацию с учётом форматирования.

Т.Е. что-то вроде RTB1.text=rtb1.text & rtb2.text , НО С УЧЁТОМ ФОРМАТА! т. к. при таком подходе фомат теряется.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.05.2005, 09:45:00
    #33045426
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединить два RichTextBox
RTB1.TextRTF = rtb1.TextRTF & rtb2.TextRTF
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.05.2005, 13:49:36
    #33046106
BusyMan
BusyMan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединить два RichTextBox
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
      Me.PrevAnswers.ReadOnly = False
      Me.NewAnswer.SelectAll()
      Me.PrevAnswers.Select( 0 ,  0 )

      Clipboard.SetDataObject(hdr)
      Me.PrevAnswers.Paste()

      Me.PrevAnswers.Select( 0 , hdr.Length)
      Me.PrevAnswers.SelectionColor = Color.Gray
      Me.PrevAnswers.Select(hdr.Length,  0 )

      Me.NewAnswer.Copy()
      Me.PrevAnswers.Paste()

      Clipboard.SetDataObject(vbNewLine & " ")
      Me.PrevAnswers.Paste()

Суть вот в чем:
1. Выделить все в первом
2. Все, что в первом, - скопировать в буфер обмена
3. Во втором встать в конец (выделить последние 0 символов)
4. Скопировать во второй из буфера обмена

З.Ы. Синтаксис.НЕТ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.05.2005, 21:24:38
    #33049189
Aklin
Aklin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединить два RichTextBox
!!!УВЫ!!!

Код: plaintext
1.
RTB.TextRTF = Left$(RTB1.TextRTF, InStrRev(RTB1.TextRTF, "}") -  1 ) & Mid$(RTB2.TextRTF,  2 )

Короче, дело в строении RTF формата ( операционные скобки {} ) и есил их убрать (с конца 1-го и начала 2-го то должно быть норма.

ТОГДА ТРИ ВОПРОСА.
1) А млжно ли по-другому
2)А будет ли это сохраняться ДЛЯ ВСЕХ форматов, поддерживаемых РТФ
3) Как БЫСТРЕЕ резать строки в данном примере
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Объединить два RichTextBox / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 309ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2167851]:
 0ms
get settings:
 10ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 15ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 23ms
get tp. blocked users:
 1ms
others: 237ms
total:  309ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]