• Home
 · 
• String Manipulation
 · 
• Change Color Of a Piece Of String In RichTextBox Without Flashing In It

Change Color Of a Piece Of String In RichTextBox Without Flashing In It

Hi All .. This Function Solve Problm Of Flashing During Change the Color of a Piece of String in RichTextBox .. It's Useful For CodeBoxes ..

Rate Change Color Of a Piece Of String In RichTextBox Without Flashing In It

• 1
• 2
• 3
• 4
• 5

(6(6 Vote))

Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
Function ColorRtfString(ByVal SelStart As String, ByVal SelLength As Long, ByVal Color As Long)
Dim OldPos As Long
Call LockWindowUpdate(RichTextBox.hWnd)
'Locking Editing (It Ignores Flashing )
OldPos = RichTextBox.SelStart
RichTextBox1.SelStart = SelStart
RichTextBox1.SelLength = SelLength
RichTextBox1.SelColor = Color
RichTextBox1.SelStart = OldPos
RichTextBox1.SelLength = 0
'Unlocking Editing 
Call LockWindowUpdate(0)
End Function