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 ..
AI
Riepilogo AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Codice sorgente
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
Commenti originali (3)
Recuperato da Wayback Machine