更改标题的颜色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的颜色全变，但只有当前活动窗口标题:)

感谢的颜色提前所有评论！

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