devxlogo

Create Rich, Colorful Text

Create Rich, Colorful Text

Call this sub to insert text of any color at the current insert point of a RichTextBox:

 Private Sub ColorText(rtb As RichTextBox, Color _	As Long, Text As String)	Dim lR As Long, lG As Long, lB As Long	lR = (Color Mod &H100)	lG = (Color  &H100) Mod &H100	lB = (Color  &H10000) Mod &H10000	rtb.SelRTF = "{{colortbl;
ed" & CStr(lR) & _		"green" & CStr(lG) & _		"lue" & CStr(lB) & ";}" & _		"{cf1 " & Text & "}}"End Sub

devx-admin

Share the Post: