更改标题 RichTextBox VB.NET 的颜色

Question

我在 VB.NET 2010 上进行试验，并试图更改特定文本的颜色。

我创建了一个捕获当前窗口标题并在 RichTextBox 中实现的计时器：

   Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles activetitle.Tick
    If strin <> GetActiveWindowTitle() Then       
        RichTextBox1.Text = RichTextBox1.Text & vbNewLine & vbNewLine & "[---" & GetActiveWindowTitle() & "---]") & vbNewLine & vbNewLine
        strin = GetActiveWindowTitle()
    End If
End Sub

但是，我尝试更改代码，以便当当前活动标题保存在 RichTextBox 中时，它会以不同的颜色显示：

     Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles activetitle.Tick
    If strin <> GetActiveWindowTitle() Then
        RichTextBox1.Text = RichTextBox1.Text & vbNewLine & vbNewLine & "[---" & GetActiveWindowTitle() & "---]" & vbNewLine & vbNewLine
        strin = GetActiveWindowTitle()
    End If
    If RichTextBox1.Text.Contains("[---" & "---]") Then
        RichTextBox1.SelectionColor = Color.Red
    End If
End Sub

我尝试了许多不同的变化，并在互联网上到处寻找，但没有成功:(

有谁知道如何更改在 RichTextBox 中实现的当前活动窗口标题的颜色？

我想提醒你，我不想改变整个 RichTextBox 的颜色，而只改变当前活动窗口标题的颜色 :)

在此先感谢所有 cmets！

Answer 1

所以，我认为你自己做的比你应该做的要困难得多，你可以像下面这样重写你的计时器逻辑

 Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles activetitle.Tick
    If strin <> GetActiveWindowTitle() Then
        Dim oldColor = RichTextBox1.SelectionColor
        ' save the title first
        strin = GetActiveWindowTitle()
        ' set the cursor at the end (to be sure)
        RichTextBox1.SelectionStart = RichTextBox1.Length
        ' check if the text is empty
        If String.IsNullOrWhiteSpace( strin ) Then
            ' if yes, set the color to red
            RichTextBox1.SelectionColor = Color.Red
        End If
        ' add the new text to the RichTextBox
        RichTextBox1.AppendText(Environment.NewLine & "[---" & strin & "---]" & Environment.NewLine)
        ' revert to the previous selectioncolor
        RichTextBox1.SelectionColor = oldColor
    End If
End Sub