RichTextBox Control [resolved]

[thegreatone]

Hi all, i am struggling with the RichTextBox control on my form, i can bold letters but canot unbold them here is my code :

Private Sub LabelBold_Cick()
If RTBCode.SelBold = True then RTBCode.SelBold = Not True
If RTBCode.SelBold = False then RTBCode.SelBold = True
End Sub

Help please

EDIT: Nevermind, i know whats wring, even if the text gets set to unbold the next line sets it back to bold, wow, why didn't i notice that last night :S
I'm silly

The code should look like this :

Private Sub LabelBold_Click()
If RTBCode.SelBold = True Then RTBCode.SelBold = Not True Else RTBCode.SelBold = True
End Sub

[sciguyryan]

Try this:

Private Sub LabelBold_Cick()
If RTBCode.SelBold = True Then
    RTBCode.SelBold = False
End if
If RTBCode.SelBold = False Then
    RTBCode.SelBold = True
End If
End Sub

Or, you could just do this:

Private Sub LabelBold_Cick()
    RTBCode.SelBold = Not RTBCode.SelBold
End Sub

Cheers,

RyanJ

[The_Duck]

your code is a little confusing to read. Try this

Public Sub Temp()
RTBCode.SelBold = Not RTBCode.SelBold 'This implements a toggle!
End Sub

---

Clearly I am a slow typer