更改文本框中文本部分的顏色

Question

我只知道如何更改字符串的整個文本的顏色，而不是某個部分。如果程序包含「打印」而不是整個文本，我希望程序改變單詞「打印」的顏色。

這裏是我的代碼：

Public Class Form1 
    Private Sub codeTextBox_TextChanged(sender As Object, e As EventArgs) Handles codeTextBox.TextChanged 
     Dim codeInput As String = codeTextBox.Text 
     If codeInput.Contains("print") Then 
      codeTextBox.ForeColor = Color.Blue 
     End If 
    End Sub 
End Class 

Answer 1

Public Class Form1 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim text As String = RichTextBox1.Text 
    text = text.Replace(TextBox1.Text, "<font color=blue> " & TextBox1.Text & " </font>") 
    WebBrowser1.DocumentText = text 
End Sub 

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

End Sub 
End Class 

screenshot of form

Answer 2

這裏是我的解決方案

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged 
     If RichTextBox1.Text.EndsWith("Dim") Then 
      RichTextBox1.Select(RichTextBox1.TextLength - 3, 3) 
      RichTextBox1.SelectionColor = Color.Red 
      RichTextBox1.Select(RichTextBox1.TextLength, RichTextBox1.TextLength) 
      RichTextBox1.SelectionColor = Color.Black 
     End If 
    End Sub 

傢伙真的作品我在我的電腦測試。 :)