How to preserve font properties while changing some other properties.

[Sakharam Phapale]

Hi All,

I am using a richTextBox control for text editing purpose. I have written
following procedure which change the font style of richTextBox.

Dim f as font = rtbData.selecti onFont()

rtbData.Selecti onFont = New Font(f, f.Style + (IIf(f.Bold, FontStyle.Bold
* -1, FontStyle.Bold) ))
Using above code I am able to preserve old font style while changing style
like Bold.

But, How to change the font name and size property.

Thanks in advance
Sakharam Phapale

[Sakharam Phapale]

Hi All,

I got the answer as follows.
Dim fOld As Font = rtbData.Selecti onFont
Dim fontFamily As New FontFamily(Font FamilyName)

rtbData.Selecti onFont = New Font(fontFamily , fOld.Size)

Dim fNew As Font = rtbData.Selecti onFont

rtbData.Selecti onFont = New Font(fNew, fOld.Style)
Thanks
Sakharam Phapale

"Sakharam Phapale" <sp******@annet site.com> wrote in message
news:Om******** *****@TK2MSFTNG P11.phx.gbl...

Hi All,

I am using a richTextBox control for text editing purpose. I have written
following procedure which change the font style of richTextBox.

Dim f as font = rtbData.selecti onFont()

rtbData.Selecti onFont = New Font(f, f.Style + (IIf(f.Bold, FontStyle.Bold
* -1, FontStyle.Bold) ))
Using above code I am able to preserve old font style while changing style
like Bold.

But, How to change the font name and size property.

Thanks in advance
Sakharam Phapale

[Cor Ligthert]

Sakharam,

To show you the use of the boolean "OR" in this, see this old snippet from
me.

\\\
Me.Label1.Font = New Font(Me.Label1. Font, Me.Label1.Font. Style Or
FontStyle.Bold)
///

I hope this helps?

Cor

[Sakharam Phapale]

Hello,

Your solution works fine for font style. But what about following situation,
I want to change font of richTextBox contents, which is having multiple
styles.
look at following example

richTextBox.Tex t = "This is just a test example"
"This" ---Times New Roman, Bold, 10
"is"-------arial, Regular,8
"just"-----Courier, Regular,9

Now, I select "This is just" in richTextBox and want to change the font size
to 10 of selected text.

How to accomplish this?
I have written following code. But it doesn't work properly in above
scenario.

Private sub ChangeFont(Font Size as integer)
Dim fOld As Font = rtbData.Selecti onFont

rtbData.Selecti onFont = New Font(fOld.FontF amily, FontSize,
fOld.Style)

End Sub

In above scenario fOld returns as Nothing so I can't used this.
Thanks and Regards
Sakharam Phapale


"Cor Ligthert" <no************ @planet.nl> wrote in message
news:%2******** ********@TK2MSF TNGP12.phx.gbl. ..

Sakharam,

To show you the use of the boolean "OR" in this, see this old snippet from
me.

\\\
Me.Label1.Font = New Font(Me.Label1. Font, Me.Label1.Font. Style Or
FontStyle.Bold)
///

I hope this helps?

Cor