By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
454,166 Members | 1,575 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 454,166 IT Pros & Developers. It's quick & easy.

Inserting text into a RichTextBox

P: n/a
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.
Nov 21 '05 #1
Share this Question
Share on Google+
5 Replies


P: n/a
"genojoe" <ge*****@discussions.microsoft.com> schrieb:
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
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

Nov 21 '05 #2

P: n/a
I am at a loss regarding how to use this advise.

"Herfried K. Wagner [MVP]" wrote:
\\\
With Me.RichTextBox1
.Select(100, 0)
.SelectedRtf = ... ' Or 'SelectedText'.
End With
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

Nov 21 '05 #3

P: n/a
"genojoe" <ge*****@discussions.microsoft.com> schrieb:
I am at a loss regarding how to use this advise.
\\\
With Me.RichTextBox1
.Select(100, 0)
.SelectedRtf = ... ' Or 'SelectedText'.
End With
///


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.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

Nov 21 '05 #4

P: n/a
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.

Nov 21 '05 #5

P: n/a
"genojoe" <ge*****@discussions.microsoft.com> schrieb:
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)
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

Nov 21 '05 #6

This discussion thread is closed

Replies have been disabled for this discussion.