Note: 本記事は、2018年11月時点の内容です。
【Q】VB.NetのRichTextBoxで自前でSyntax Highlightしたいがどうやったらよい？
- そんなん自作しないでコンポーネント使おうぜという方は、↓こちらをおすすめします。
-
FCTBは無償。ALTERNET：CODE EDITORは有償。
-
nuget : FCTB
ALTERNET：CODE EDITOR
- .Netではなく、Javascriptならいい感じのライブラリがあるので困ることはなさそう。
-
Monaco EditorはMicrosoft。code prettifierはGoogle。
-
GitHub : Monaco Editor
GitHub : code prettifier
【A】↓こんな感じでできた。
- 参考資料は、以下の通り。
[GUIDE] Syntax Highlighting in RichTextBox
-
コピペでいけると思いきや、ちょっとバグってる（気がする。Syntax Highlight後のカーソル位置）。あと、めっちゃ画面がチラチラする。
-
画面のチラツキはダブルバッファリングを試したが解消せず。Windows APIを使って描画を停止することで解消。
Is there BeginUpdate, EndUpdate with the RichTextBox control?
作業の手順
- WinFormsアプリの作成
- コーディング
【手順1】WinFormsアプリの作成
- Visual Studioで空のWinFormsアプリを作成する
【手順2】コーディング
- デザイナで、FormにRichTextBox(
RichTextBox1とする)を貼り付け - コードエディタで以下コードを貼り付け
- TextChangedイベントにSyntax Highlightロジックを実装する
Form1.vb
Imports System.Text.RegularExpressions
Public Class Form1
' Windows API (ウインドウ描画停止)
Private Declare Function LockWindowUpdate Lib "user32" Alias "LockWindowUpdate" (ByVal hWnd As IntPtr) As Integer
Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
Dim tokens As String = "(regex|dim|object|new|string|public|integer|end|auto|double|int|struct|break|else|long|switch|case|enum|register|typedef|char|extern|return|union|const|float|short|unsigned|continue|for|signed|void|default|goto|sizeof|volatile|do|if|static|while|1|2|3|4|5|6|7|8|9|my)"
Dim rex As New Regex(tokens)
Dim mc As MatchCollection = rex.Matches(RichTextBox1.Text)
Dim StartCursorPosition As Integer = RichTextBox1.SelectionStart
' 描画を一時停止
LockWindowUpdate(RichTextBox1.Handle)
' Syntax Highlight
For Each m As Match In mc
Dim startIndex As Integer = m.Index
Dim StopIndex As Integer = m.Length
RichTextBox1.[Select](startIndex, StopIndex)
RichTextBox1.SelectionColor = Color.Blue
RichTextBox1.Select(StartCursorPosition, 0)
RichTextBox1.SelectionColor = Color.Black
Next
' 描画を再開
LockWindowUpdate(IntPtr.Zero)
End Sub
End Class
Note:
tokenにSyntax Highlightしたいキーワードをセットする
関連情報
- 今回は使えなかったが、画面描画系の情報をメモ。
コントロールのダブルバッファリングを有効にして、ちらつきを防止する
コントロールの描画を一時的に停止する
Vb.NET ListView DoubleBuffered（ダブルバッファ）
C# エディタのシンタックスハイライター処理を速くする方法
[Tips][RichTextBox] Undo/Redoを実行する