ted.martin
Registered User.
- Local time
- Today, 14:50
- Joined
- Sep 24, 2004
- Messages
- 743
I need to check after data entry that the text format of a Rich Text box (for html display purposes) is of the correct text format.
I am not concerned about the content only that it is Calibri Size 12 and the correct colour has not been changed by the user.
This code does not do it.
Thank you
I am not concerned about the content only that it is Calibri Size 12 and the correct colour has not been changed by the user.
This code does not do it.
Code:
Private Sub Content1_AfterUpdate()
Content1.SetFocus
Content1.SelStart = 0
Content1.SelLength = Len(Content1.Value & "")
Content1.FontName = "Calibri"
Content1.ForeColor = RGB(0, 32, 96)
Content1.FontSize = 12
End Sub
Thank you