Inserting text into a RichTextBox

[Guest]

I have a RTF control on a form and want to insert text programmatically. I
thought it would be easy but it does not turn out that way. Can someone
refer me to an Internet article that covers this action. When I insert the
text, the formatting for the other content of the control is lost.

In summary, I want to add the current date and time to a RTF control while
maintaining the existing appearance.

 

[Herfried K. Wagner [MVP]]

In summary, I want to add the current date and time to a RTF control while
maintaining the existing appearance.

\\\
With Me.RichTextBox1
.Select(100, 0)
.SelectedRtf = ... ' Or 'SelectedText'.
End With
///

 

[Guest]

I am at a loss regarding how to use this advise.

 

[Herfried K. Wagner [MVP]]

I am at a loss regarding how to use this advise.

Simply paste the text into the text-editor window. A richtextbox called
'RichTextBox1' must exist and you will have to replace 100 with the insert
position and the ellipsis with the text to insert.

 

[Guest]

Thank you.
I finally came up with the following code. I paste it here in case anyone
else ever reads this sequence. Too bad Microsoft did not show something like
this in Help for SelectedRtf. Its so simple; all you got to do is try it.

Debug.WriteLine(Me.rtfUser.Text) 'Returns "Date: . Thank you"
Me.rtfUser.Select(6, 0)
If Me.chkMakeBold.Checked Then
Me.rtfUser.SelectedRtf = "{\rtf1\an......\uc1\b\f0\fs20 5-15-05
\b0}"
Else
Me.rtfUser.SelectedText = "5-15-05"
End If

I center truncated the SelectedRtf text.

 

[Herfried K. Wagner [MVP]]

I finally came up with the following code. I paste it here in case anyone
else ever reads this sequence. Too bad Microsoft did not show something
like
this in Help for SelectedRtf. Its so simple; all you got to do is try it.

Debug.WriteLine(Me.rtfUser.Text) 'Returns "Date: . Thank you"
Me.rtfUser.Select(6, 0)
If Me.chkMakeBold.Checked Then
Me.rtfUser.SelectedRtf = "{\rtf1\an......\uc1\b\f0\fs20
5-15-05
\b0}"
Else
Me.rtfUser.SelectedText = "5-15-05"
End If

You could use the 'Select' method to insert the selected text and make it
bold by assigning a bold font:

\\\
Me.RichTextBox1.SelectionFont = _
New Font(Me.RichTextBox1.SelectionFont, FontStyle.Bold)
///