ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Объединить два RichTextBox
4 сообщений из 4, страница 1 из 1
Объединить два RichTextBox
    #33044398
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
Имеется два RichTextBox (далее RTB) : RTB1 и RTB2

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

Т.Е. что-то вроде RTB1.text=rtb1.text & rtb2.text , НО С УЧЁТОМ ФОРМАТА! т. к. при таком подходе фомат теряется.
...
Рейтинг: 0 / 0
01.05.2005, 12:16:55
| Ответить | Цитировать | Написать  
Объединить два RichTextBox
    #33045426
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
RTB1.TextRTF = rtb1.TextRTF & rtb2.TextRTF
...
Рейтинг: 0 / 0
03.05.2005, 09:45:00
| Ответить | Цитировать | Написать  
Объединить два RichTextBox
    #33046106
Фотография BusyMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BusyMan
Участник
Код: 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
03.05.2005, 13:49:36
| Ответить | Цитировать | Написать  
Объединить два RichTextBox
    #33049189
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
!!!УВЫ!!!

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

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

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


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