使用 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

一种选择是使用现有的库（例如，Stack Overflow 使用的 prettify）。