how will i do in vb.net..............

[Supra]

in vb6
rtb.SelBold = Not (rtb.SelBold)

how will i do in vb.net?
regards

[Herfried K. Wagner [MVP]]

* Supra <su*****@rogers.com> scripsit:

in vb6
rtb.SelBold = Not (rtb.SelBold)

\\\
Dim IsBold As Boolean = ((Me.RichTextBox1.SelectionFont.Style And FontStyle.Bold) = FontStyle.Bold)
Me.RichTextBox1.SelectionFont = _
New Font( _
Me.RichTextBox1.SelectionFont, _
DirectCast(IIf(IsBold, Me.RichTextBox1.SelectionFont.Style And Not FontStyle.Bold, Me.RichTextBox1.SelectionFont.Style Or FontStyle.Bold), FontStyle) _
)
///

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

[Supra]

great. I got bold underline italic working . i'm doing irc chat similar
to mirc.
thank. 8-)
regards,
Herfried K. Wagner [MVP] wrote:

* Supra <su*****@rogers.com> scripsit:

in vb6
rtb.SelBold = Not (rtb.SelBold)

\\\
Dim IsBold As Boolean = ((Me.RichTextBox1.SelectionFont.Style And FontStyle.Bold) = FontStyle.Bold)
Me.RichTextBox1.SelectionFont = _
New Font( _
Me.RichTextBox1.SelectionFont, _
DirectCast(IIf(IsBold, Me.RichTextBox1.SelectionFont.Style And Not FontStyle.Bold, Me.RichTextBox1.SelectionFont.Style Or FontStyle.Bold), FontStyle) _
)
///

[Afraz Usman]

thank, Herfried.
regards,
supra

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!