VB.net richtextbox 多种颜色到指定字

Question

所以我的程序将一个文本文件读入一个富文本框。例如，我想要所有单词"echo" "pause" "setlocal" to be blue、"%" to be orange"、"rem" "::" to be green 等等。很多不同的单词得到不同的颜色。是的，这个想法是让richtextbox 像notepad++ 那样读取.bat 文件做颜色-明智的。

我已经知道如何为一个单词设置颜色

Private Sub PreviewRTB_TextChanged(sender As Object, e As EventArgs) Handles PreviewRTB.TextChanged
    PreviewRTB.Multiline = True
    PreviewRTB.ScrollBars = ScrollBars.Vertical

    'Set Colors
    Dim index As Integer = 0
    Dim c_blue As String = "Echo"

    While index <> -1
        index = PreviewRTB.Find(c_blue, index, RichTextBoxFinds.WholeWord)
        If index <> -1 Then
            PreviewRTB.SelectionStart = index
            PreviewRTB.SelectionLength = c_blue.Length
            PreviewRTB.SelectionColor = Color.Blue
            index += c_blue.Length
        End If
    End While

但是我在哪里设置 dim c_blue 下的其余单词？我尝试了Dim c_blue As String = "Echo" & "setlocal" & "pause" 也尝试在两者之间使用+，但它不起作用。以及如何为其他单词添加另一种颜色？谢谢！

Answer 1

对于简单的着色，只要文本不太长，这样就可以了：

Dim KeyWords As List(Of String) = New List(Of String)(New String() {"this", "word", "color"})
Dim KeyWordsColors As List(Of Color) = New List(Of Color)(New Color() {Color.Blue, Color.Red, Color.Green})
Private Sub PreviewRTB_TextChanged(sender As Object, e As EventArgs) Handles PreviewRTB.TextChanged
    Dim words As IEnumerable(Of String) = PreviewRTB.Text.Split(New Char() {" "c, ".", ",", "?", "!"})
    Dim index As Integer = 0
    Dim rtb As RichTextBox = sender 'to give normal color according to the base fore color
    For Each word As String In words
        'If the list contains the word, then color it specially. Else, color it normally
        'Edit: Trim() is added such that it may guarantee the empty space after word does not cause error
        coloringRTB(sender, index, word.Length, If(KeyWords.Contains(word.ToLower().Trim()), KeyWordsColors(KeyWords.IndexOf(word.ToLower().Trim())), rtb.ForeColor))
        index = index + word.Length + 1 '1 is for the whitespace, though Trimmed, original word.Length is still used to advance
    Next
End Sub

Private Sub coloringRTB(rtb As RichTextBox, index As Integer, length As Integer, color As Color)
    Dim selectionStartSave As Integer = rtb.SelectionStart 'to return this back to its original position
    rtb.SelectionStart = index
    rtb.SelectionLength = length
    rtb.SelectionColor = color
    rtb.SelectionLength = 0
    rtb.SelectionStart = selectionStartSave
    rtb.SelectionColor = rtb.ForeColor 'return back to the original color
End Sub

这里的想法很简单：

1. 列出要着色的单词
2. 列出这些单词的颜色
3. 当实时出价文本改变时，用String.Split逐字解析（注意“实时出价文本改变”这个条件可以随意改变）
4. 检查解析的单词。如果找到了，就开始给那个词上色。如果没有，请使用默认颜色对其进行着色
5. 转到下一个单词，直到文本阅读完成。
6. 不要忘记根据word.Length+1为空格增加检查器的当前索引

结果会是这样的：

下一个（2）

下一个（3）

下一个 (4)

下一个 (5)

注意：如果文本太长，请考虑创建一个计时器（或一些 其他模块）定期检查您的 RTB 而不是检查 文本更改时的文本。因此，当文本发生变化时。你重置了 计时器。当文本有时没有改变时，你开始 实现所有文本的着色逻辑。这样，您就可以使 word-color checker 的工作量明显减少。