How do I clear the format (font colour only) from a RichTextBox?


When I clear the text (TextRTF) and then put new text in in a different Sub
it works fine, but when I try to do the same in one Sub it doesn't work and
just keep the old format:

Private Sub CommandButton1_Click()
RichTextBox1.TextRTF = "SELECT E.TERM_TEXT FROM ENTRY E WHERE
E.READ_CODE = 'G58..'"
End Sub

Private Sub CommandButton2_Click()
RichTextBox1.TextRTF = vbNullString
End Sub

Private Sub CommandButton3_Click()

Dim strTemp As String

With RichTextBox1
strTemp = .Text
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
.SelColor = 0
.Text = vbNullString
.TextRTF = vbNullString
.TextRTF = strTemp
.Refresh
End With

End Sub


Number 3 doesn't work (although strTemp is a normal string with no
formatting) but number 1 after number 2
works fine.


RBS

When I ran your 3rd macro on a Richtextbox in one of my forms it removed the
fore colour from the text very well.
Nevertheless maybe all you want is:

Private Sub CommandButton5_Click()
With RichTextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
.SelColor = RGB(0, 0, 0)
.Refresh
End With
End Sub



- Rm


"RB Smissaert" wrote:

How do I clear the format (font colour only) from a RichTextBox?


When I clear the text (TextRTF) and then put new text in in a different Sub
it works fine, but when I try to do the same in one Sub it doesn't work and
just keep the old format:

Private Sub CommandButton1_Click()
RichTextBox1.TextRTF = "SELECT E.TERM_TEXT FROM ENTRY E WHERE
E.READ_CODE = 'G58..'"
End Sub

Private Sub CommandButton2_Click()
RichTextBox1.TextRTF = vbNullString
End Sub

Private Sub CommandButton3_Click()

Dim strTemp As String

With RichTextBox1
strTemp = .Text
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
.SelColor = 0
.Text = vbNullString
.TextRTF = vbNullString
.TextRTF = strTemp
.Refresh
End With

End Sub


Number 3 doesn't work (although strTemp is a normal string with no
formatting) but number 1 after number 2
works fine.


RBS

Yes, that does do it indeed.
My mistake was that I was working with a customized RTB that did stop
changes in certain situations.
When I disabled these special properties it worked as expected.

RBS

"Robert Mulroney" '''' wrote in message
...

When I ran your 3rd macro on a Richtextbox in one of my forms it removed
the
fore colour from the text very well.
Nevertheless maybe all you want is:

Private Sub CommandButton5_Click()
With RichTextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
.SelColor = RGB(0, 0, 0)
.Refresh
End With
End Sub



- Rm


"RB Smissaert" wrote:

How do I clear the format (font colour only) from a RichTextBox?


When I clear the text (TextRTF) and then put new text in in a different
Sub
it works fine, but when I try to do the same in one Sub it doesn't work
and
just keep the old format:

Private Sub CommandButton1_Click()
RichTextBox1.TextRTF = "SELECT E.TERM_TEXT FROM ENTRY E WHERE
E.READ_CODE = 'G58..'"
End Sub

Private Sub CommandButton2_Click()
RichTextBox1.TextRTF = vbNullString
End Sub

Private Sub CommandButton3_Click()

Dim strTemp As String

With RichTextBox1
strTemp = .Text
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
.SelColor = 0
.Text = vbNullString
.TextRTF = vbNullString
.TextRTF = strTemp
.Refresh
End With

End Sub


Number 3 doesn't work (although strTemp is a normal string with no
formatting) but number 1 after number 2
works fine.


RBS