更改richtextbox中的行或单词的颜色?

时间:2012-11-27 11:42:39

标签: vb.net colors richtextbox richtext

我可以更改一行的颜色和/或一个单词来保存richtextbox中的其他颜色吗?

例如,我想将“Processing:...”这一行改为黄色,这可能吗?

谢谢你的阅读

enter image description here

3 个答案:

答案 0 :(得分:7)

这可能要晚一点,但您需要做的就是在将文本附加到richtextbox之前将selectioncolor设置为您想要的颜色,然后再恢复为原始颜色,例如

With RichTextBox1
  .SelectionColor = Color.Yellow
  .AppendText("Processing: ")
  .SelectionColor = Color.LimeGreen
  .AppendText("el senor de los anillakos.avi" & vbCr)
End With

答案 1 :(得分:5)

这个希望应该为你做的伎俩,例如,如果该行包含"Processing..."

    for(int i=0; i<rtb.Lines.Length; i++) 
{ 
   string text = rtb.Lines[i];
   rtb.Select(rtb.GetFirstCharIndexFromLine(i), text.Length); 
   rtb.SelectionColor = colorForLine(text); 
} 

private Color colorForLine(string line)
{
    if(line.Contains("[Processing...]", StringComparison.InvariantCultureIgnoreCase) return Color.Green;

顺便说一下,我知道你说这是针对vb.net的,但是你可以使用转换器将代码转换为vb.net 这是一个

的链接

C# to VB

我不知道这是否正确,但我认为它在vb中看起来有点像这样

Private Sub Test()
    For Each i As Integer In RichTextBox1.Lines.Length

        Dim Text As String = RichTextBox1.Lines(i)
        RichTextBox1.Select(RichTextBox1.GetFirstCharIndexFromLine(i), Text.Length)
        RichTextBox1.SelectionColor = ColorForLine(Text)
    Next
End Sub

Private Function ColorForLine(Line As String) As color
    If Line.Contains("Processing", ) Then
        Return ColorForLine.Green
    End If
End Function

答案 2 :(得分:1)

我意识到这是更老的了,但是当我需要类似的解决方案时,AltF4_提出的vb.net代码无法正常工作,因此我对其进行了修改,使其可以使用。 ColorForLine函数使您可以运行多个测试并根据所需的内容返回多种颜色。

Private Sub CheckLineColorsOfRichTextBox1()
    Dim i As Integer = 0
    For Each Line As String In RichTextBox1.Lines
        RichTextBox1.Select(RichTextBox1.GetFirstCharIndexFromLine(i), Line.Length)
        RichTextBox1.SelectionColor = ColorForLine(Line)
        i += 1
    Next
End Sub
Private Function ColorForLine(Line As String) As Color
    If Line.Contains("Processing: ") Then
        Return Color.Yellow
    Else
        Return Color.LimeGreen
    End If
End Function