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

Using Rich Text Box - make a line bold

P: n/a
If I've got

Me.RichTextBox1.Text = "In Ricn Tex Box"
Me.RichTextBox1.Text &= "Line two" & vbCrLf
How do I make the first line appear BOLD?
Feb 14 '06 #1
Share this Question
Share on Google+
9 Replies


P: n/a
It is a very interesting question. I am working on that too.
I would like to know also how could we make PORTION of a line Bold ?
I am looking to a solution like:
RichTextBox1.text="In
ricn"&please_make_the_following_bold...&"Text"&mak e_the
following_not_bold_anymore...&"Box"
I am looking for a solution to build nice reports on screen as I was doing
under Basic for DOS 7.1
--
Super Basic programmer under DOS since 1983. Absolutely dummy VB.NET
programmer under Windows !

But it's going better now !
Feb 14 '06 #2

P: n/a
"Jason" <ja***@someone.com> schrieb
If I've got

Me.RichTextBox1.Text = "In Ricn Tex Box" Me.RichTextBox1.Text &=
"Line two" & vbCrLf
How do I make the first line appear BOLD?

http://msdn.microsoft.com/library/en...ClassTopic.asp

Armin

Feb 14 '06 #3

P: n/a
I already have read that segment of the documentation. It is just not easy to
understand for a beginner. How can we select text or portion of text ? We
just have no idea !

I have try to use Word and to save a report to a rtf file format: when
loaded into a Rich Text Box, all the controls characters were shown... I gave
up !

A step by step approach will be very appreciated.
--
Super Basic programmer under DOS since 1983. Absolutely dummy VB.NET
programmer under Windows !
Feb 14 '06 #4

P: n/a
"Jason" <ja***@someone.com> schrieb:
Me.RichTextBox1.Text = "In Ricn Tex Box"
Me.RichTextBox1.Text &= "Line two" & vbCrLf

How do I make the first line appear BOLD?


\\\
With Me.RichTextBox1
.Select(10, 20)
.SelectionFont = _
New Font(Me.RichTextBox1.SelectionFont, FontStyle.Bold)
End With
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>
Feb 14 '06 #5

P: n/a
Mr Wagner,
It is working very well. I've got lost with the With End With, to give you
an idea of how far we have to go, as beginners...

--
Super Basic programmer under DOS since 1983. Absolutely dummy VB.NET
programmer under Windows !
"Herfried K. Wagner [MVP]" wrote:
"Jason" <ja***@someone.com> schrieb:
Me.RichTextBox1.Text = "In Ricn Tex Box"
Me.RichTextBox1.Text &= "Line two" & vbCrLf

How do I make the first line appear BOLD?


\\\
With Me.RichTextBox1
.Select(10, 20)
.SelectionFont = _
New Font(Me.RichTextBox1.SelectionFont, FontStyle.Bold)
End With
///

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

Feb 14 '06 #6

P: n/a
Hi,

Mr. Herfried Wagner already answered it perfectly, but I will elaborate,
since someone asked for a "step-by-step" method.

1. If you want to make changes to a particular set of text in the RTBox,
just select that text using the
RTB.Select(start,length) method.
If some text is already selected in the RTBox, and you want to change that
text, then you don't need
to apply the above line.

2. Create a Font object setting properties as required.
Dim myFont as new Font("Arial", 12, FontStyle.Bold)

3. Apply that Font object to the RTB.SelectionFont property. You should see
the changes in the RTB.

If RTB.SelectionFont.Bold = False Then
RTB.SelectionFont = myFont
End if

Hope this helps,

Regards,

Cerebrus.
================================================== =======================
"Jason" <ja***@someone.com> wrote in message
news:Ol**************@TK2MSFTNGP14.phx.gbl...
If I've got

Me.RichTextBox1.Text = "In Ricn Tex Box"
Me.RichTextBox1.Text &= "Line two" & vbCrLf
How do I make the first line appear BOLD?

Feb 14 '06 #7

P: n/a
"Marcel Saucier" <Ma***********@discussions.microsoft.com> schrieb
I already have read that segment of the documentation. It is just
not easy to understand for a beginner. How can we select text or
portion of text ? We just have no idea !

I have try to use Word and to save a report to a rtf file format:
when loaded into a Rich Text Box, all the controls characters were
shown... I gave up !

A step by step approach will be very appreciated.

I have never done it yet, but here are some better instructions how to do
it:

http://msdn.microsoft.com/library/en...Attributes.asp

See also the link in the hints sections at the bottom (pointing to the
Textboxbase.Select method).
Armin

Feb 14 '06 #8

P: n/a
Ok, Maybe I'm worse off then a beginner

I've got my Rich Text Box on my Form. The information I'll be displaying is
simple computer properties. I want to display a heading for each section in
BOLD

for Example

Me.RichTextBox1.Text = "HEADING ONE"
Me.RichTextBox1.Text &= "Property one" &VAR1 & vbCrLf
Me.RichTextBox1.Text &= "Property one" & VAR2 & vbCrLf
Me.RichTextBox1.Text &= "Property one" & VAR3 & vbCrLf
Me.RichTextBox1.Text &= "HEADING TWO" & vbCrLf

I'd like to simple have HEADING ONE and HEADING TWO displayed in bold.
How do I do that?
"Cerebrus99" <zo*****@sify.com> wrote in message
news:OJ*************@TK2MSFTNGP15.phx.gbl...
Hi,

Mr. Herfried Wagner already answered it perfectly, but I will elaborate,
since someone asked for a "step-by-step" method.

1. If you want to make changes to a particular set of text in the RTBox,
just select that text using the
RTB.Select(start,length) method.
If some text is already selected in the RTBox, and you want to change that
text, then you don't need
to apply the above line.

2. Create a Font object setting properties as required.
Dim myFont as new Font("Arial", 12, FontStyle.Bold)

3. Apply that Font object to the RTB.SelectionFont property. You should
see
the changes in the RTB.

If RTB.SelectionFont.Bold = False Then
RTB.SelectionFont = myFont
End if

Hope this helps,

Regards,

Cerebrus.
================================================== =======================
"Jason" <ja***@someone.com> wrote in message
news:Ol**************@TK2MSFTNGP14.phx.gbl...
If I've got

Me.RichTextBox1.Text = "In Ricn Tex Box"
Me.RichTextBox1.Text &= "Line two" & vbCrLf
How do I make the first line appear BOLD?


Feb 14 '06 #9

P: n/a
Alrighty, here you go... Copy and paste the following code...
------------------------------------------------------------
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim Var1, Var2, Var3, MyText As String
Var1 = " is good"
Var2 = " is better"
Var3 = " is the best"
MyText = "HEADING ONE" & vbCrLf
MyText &= "Property one" & Var1 & vbCrLf
MyText &= "Property one" & Var2 & vbCrLf
MyText &= "Property one" & Var3 & vbCrLf
MyText &= "HEADING TWO"
RTB.Text = MyText
MakeBold()
End Sub
Private Sub MakeBold()
Dim myFont As New Font("Tahoma", 10, FontStyle.Bold)
'Find Location of "Heading1"
Dim txt2Srch As String = "HEADING ONE"
Dim loc As Integer
loc = InStr(1, RTB.Text, txt2Srch, CompareMethod.Text)
If loc > 0 Then
'The string was found at loc
RTB.Select((loc - 1), txt2Srch.Length)

If RTB.SelectionFont.Bold = False Then
RTB.SelectionFont = myFont
End If
End If

'Repeat procedure for "HEADING TWO"
txt2Srch = "HEADING TWO"
loc = InStr(1, RTB.Text, txt2Srch, CompareMethod.Text)
If loc > 0 Then
'The string was found at loc
RTB.Select((loc - 1), txt2Srch.Length)
If RTB.SelectionFont.Bold = False Then
RTB.SelectionFont = myFont
End If
End If
'Move the caret back to start.
RTB.Select(0,0)

End Sub
------------------------------------------------------------

I think this should get you up to speed. Cheers !

Regards,

Cerebrus.

===========================================
"Jason" <ja***@someone.com> wrote in message
news:OY*************@tk2msftngp13.phx.gbl...
Ok, Maybe I'm worse off then a beginner

I've got my Rich Text Box on my Form. The information I'll be displaying is simple computer properties. I want to display a heading for each section in BOLD

for Example

Me.RichTextBox1.Text = "HEADING ONE"
Me.RichTextBox1.Text &= "Property one" &VAR1 & vbCrLf
Me.RichTextBox1.Text &= "Property one" & VAR2 & vbCrLf
Me.RichTextBox1.Text &= "Property one" & VAR3 & vbCrLf
Me.RichTextBox1.Text &= "HEADING TWO" & vbCrLf

I'd like to simple have HEADING ONE and HEADING TWO displayed in bold.
How do I do that?
"Cerebrus99" <zo*****@sify.com> wrote in message
news:OJ*************@TK2MSFTNGP15.phx.gbl...
Hi,

Mr. Herfried Wagner already answered it perfectly, but I will elaborate,
since someone asked for a "step-by-step" method.

1. If you want to make changes to a particular set of text in the RTBox,
just select that text using the
RTB.Select(start,length) method.
If some text is already selected in the RTBox, and you want to change that text, then you don't need
to apply the above line.

2. Create a Font object setting properties as required.
Dim myFont as new Font("Arial", 12, FontStyle.Bold)

3. Apply that Font object to the RTB.SelectionFont property. You should
see
the changes in the RTB.

If RTB.SelectionFont.Bold = False Then
RTB.SelectionFont = myFont
End if

Hope this helps,

Regards,

Cerebrus.
================================================== ======================= "Jason" <ja***@someone.com> wrote in message
news:Ol**************@TK2MSFTNGP14.phx.gbl...
If I've got

Me.RichTextBox1.Text = "In Ricn Tex Box"
Me.RichTextBox1.Text &= "Line two" & vbCrLf
How do I make the first line appear BOLD?



Feb 14 '06 #10

This discussion thread is closed

Replies have been disabled for this discussion.