RichTextBoxを使用するVB.Netエディタ

Question

ロジックプログラム用のRichTextBoxを使用して簡単なvb.netテキストエディタを作成しました。コメントを除いて作業するために色付け（強調表示）しています。しかし、それは本当に本当に遅く100行程度の後に実行されます。誰かがこれを行うより効率的な方法を知っていますか？ 注：RichTextBox TextChangedイベントでSyntaxHandlerを呼び出します。

Friend vbKeys As String = "And|As|Case|Catch|CDbl|Ceiling|CInt|Class|Const|Continue|CStr|Decimal|" & _ 
          "Default|Delegate|Dim|Do|Double|Each|End|Else|Enum|Event|" & _ 
          "Explicit|Extern|False|Finally|Floor|For|Format|GoTo|If|IIf|In|Int|Is|Long|Module|" & _ 
          "Namespace|New|Next|Not|Null|Object|Option|Or|Override|Params|PI|Private|Protected|" & _ 
          "Public|Readonly|Ref|Replace|Return|Round|Sbyte|Sealed|Select|Short|Sqrt|" & _ 
          "Static|String|Structure|Sub|Then|Throw|True|Try|TypeOf|Uint|Ulong|" & _ 
          "Unchecked|Using|With|While" 

Friend Sub SyntaxHandler(ByVal txtScript As RichTextBox) 
    Dim selPos As Integer = txtScript.SelectionStart 

    'set everything to black to start with 
    txtScript.SelectAll() 
    txtScript.SelectionColor = Color.Black 

    'Regex Variables for user 
    FormatWithRegEx("\b(?:" & regexVaribles & ")\b", txtScript, Color.DarkViolet) 

    'double quoted strings are all red 
    FormatWithRegEx("""", txtScript, Color.Red) 
    FormatWithRegEx("""[^""]*""", txtScript, Color.Red) 

    'reserved words are all blue 
    FormatWithRegEx("\b(?:" & vbKeys & ")\b", txtScript, Color.Blue) 

    'single line comments are all green 
    FormatWithRegEx("'[\w*\t*\S*\[ ]*]*", txtScript, Color.Green) 

    txtScript.Select(selPos, 0) 
    txtScript.SelectionColor = Color.Black 

End Sub 
Private Sub FormatWithRegEx(ByVal strRegEx As String, ByRef txtRTB As RichTextBox,  ByVal colour As System.Drawing.Color) 
    Dim regex As New Regex(strRegEx, _ 
    RegexOptions.IgnoreCase _ 
    Or RegexOptions.Multiline _ 
    Or RegexOptions.Singleline _ 
    Or RegexOptions.IgnorePatternWhitespace) 

    Dim myMatches As MatchCollection = regex.Matches(txtRTB.Text) 
    For Each GoodMatch As Match In myMatches 
     txtRTB.Select(GoodMatch.Index, GoodMatch.Length) 
     txtRTB.SelectionColor = colour 
    Next 
End Sub 

Answer 1

一つの選択肢（例えば、スタックオーバーフローによって使用され、飾り立てる）既存のライブラリを使用することです。