Объясните пожалуйста — загружаю в РТБ текст из файла, после чего мне
нужно еще добавить текст(так же из файла) и чтобы тот старый тоже остался и не удалился

RichTextBox1.FileName = App.Path & "\text\1.rtf"

Еще вопрос:

При получении фокуса(в том числе и при простом клике) хочу чтобы
выделялся весть текст в поле, при ТАБе все нормально.
Но если кликать мышью, то получается хрень какая то.
Выделяется часть текста справа до туда — куда был помешен курсор.
Как правильно сделать?

Private Sub Text1_GotFocus()
Text1.SelLength = Len(Text2.Text)
End Sub

Private Sub Text2_GotFocus()
Text2.SelLength = Len(Text2.Text)
End Sub

Private Sub Text3_GotFocus()
Text3.SelLength = Len(Text2.Text)
End Sub

Здравствуйте, rootsoft, Вы писали:

R>Объясните пожалуйста — загружаю в РТБ текст из файла, после чего мне
R>нужно еще добавить текст(так же из файла) и чтобы тот старый тоже остался и не удалился
Не уверен, но попробуй так:

Dim bst as string
RichTextBox1.FileName = App.Path & "\text\1.rtf"
bst = RichTextBox1.TextRTF
RichTextBox1.FileName = App.Path & "\text\1.rtf"
RichTextBox1.TextRTF = bst & RichTextBox1.TextRTF

R>При получении фокуса(в том числе и при простом клике) хочу чтобы
R>выделялся весть текст в поле

Private Sub Text2_GotFocus()
Text2.SelStart = 0&
Text2.SelLength = Len(Text2.Text)
End Sub

Вот это работает, только без форматирования, а твой вариант не работает, люди хелп — нужно тоже самое только, чтобы форматирование сохранялось!

Так не сохраняется:

Dim strRTB As String

RichTextBox1.FileName = App.Path & "\text\1.rtf"

strRTB = RichTextBox1.Text & vbCrLf & vbCrLf

RichTextBox1.FileName = App.Path & "\text\2.rtf"

RichTextBox1.TextRTF = strRTB & RichTextBox1.Text

SelStart = 0&

Работает

Спасибо

Private Sub Form_Load()
Dim TmpStr As String, hFile As Long
RichTextBox1.LoadFile App.Path & "\text\1.rtf"
hFile = FreeFile
Open App.Path & "\text\2.rtf" For Input As hFile
TmpStr = Input(LOF(hFile), hFile)
Close hFile
RichTextBox1.SelStart = Len(RichTextBox1.TextRTF)
RichTextBox1.SelRTF = vbCrLf & vbCrLf
RichTextBox1.SelRTF = TmpStr
End Sub