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
Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: