changing multiple fonts to bold

[kulfanumber]

I hav used the following code for changing text to bold in an rtb editor. When i select text with multiple fonts it is not working. What maybe the problem?

Dim doc As frmDocument = Me.ActiveMdiChild
On Error Resume Next
If doc.Text1.Focused Then
If doc.Text1.SelectionLength > 0 Then
doc.Text1.SelectionFont = New System.Drawing.Font(doc.Text1.SelectionFont, doc.Text1.SelectionFont.Style Xor FontStyle.Italic)
End If
End IF

 

[Sorwen]

Are you sure that the all the fonts that you are selecting have a bold option? Some fonts do not allow some font styles. I found this out when creating an rtb/html email composer.

Second, what you are doing isn't going to set the font style correctly. Try just this first.

 doc.Text1.SelectionFont = New System.Drawing.Font(doc.Text1.SelectionFont, FontStyle.Bold)

What are you trying to make happen with this?

doc.Text1.SelectionFont.Style Xor FontStyle.Italic

-I hate Microsoft!
-Forever and always forward.
-My kingdom for a edit button!

 

[kulfanumber]

Oooooops sorry i posted the code for italics instead of bold. Ok so i hav searched the net and found that when mixed fonts are selected than SelectionFont will be nothing so i hav to write my own code to break down the selection to get individual fonts. So I'm gonna try that and if i hav anymore problems than i'll post here.

 

[kulfanumber]

This did the trick for me

Private Sub fontStyle(ByVal rtb as RichTextBox, ByVal style As FontStyle)
Dim selectionStart as Integer = rtb.SelectionStart
Dim selectionLength As Integer = rtb.SelectionLength
Dim selectionEnd as integer = selectionStart + selectionLength
Dim count as Integer = 0

For count = selectionStart to (selectionEnd - 1) Step 1
rtb.select(count,1)
rtb.selectionfont = new font(rtb.selectionfont,rtb.selectionfont.style XOR style)
Next

rtb.select(selectionStart, selectionLength)
End Sub