Редактор VB.Net с использованием RichTextBox Issue - PullRequest
Новая
       39

Редактор VB.Net с использованием RichTextBox Issue

1 голос
/ 03 августа 2011

Я создал простой текстовый редактор vb.net, используя RichTextBox для логической программы.У меня есть окраска (выделение), чтобы работать, за исключением комментариев.Однако он работает очень медленно после 100 строк или около того.Кто-нибудь знает более эффективный способ сделать это?Примечание: я вызываю SyntaxHandler для события RichTextBox TextChanged. 

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

1 Ответ

1 голос
/ 06 марта 2012

Один из вариантов - использовать существующую библиотеку (например, prettify, которая используется переполнением стека).

...