Консультация № 69420
03.01.2007, 17:13
0.00 руб.
0 1 1
Сложить строки двух RichTextBox-ов в тратим
Строка RichTextBox3.TextRTF = RichTextBox1.TextRTF + RichTextBox2.TextRTF возвращает только значения второго?

Обсуждение

давно
Профессионал
848
1596
03.01.2007, 22:33
общий
это ответ
Здравствуйте, Баркалов Александр !
На форму 2 ричтекстбокса и кнопку. Код для кнопки:
===================================================
Private Sub Command1_Click()
Dim sStr1 As String
Dim sStr2 As String
Dim lCnt As Long

lCnt = InStrRev(RichTextBox1.TextRTF, "\par")
sStr1 = Mid(RichTextBox1.TextRTF, 1, lCnt - 1)
sStr2 = Right(RichTextBox2.TextRTF, Len(RichTextBox2.TextRTF) - 1)
RichTextBox3.TextRTF = sStr1 + sStr2
End Sub
=================================================
Похоже так ;-)
Форма ответа