我可以更改一行的颜色和/或一个单词来保存richtextbox中的其他颜色吗?
例如,我想将“Processing:...”这一行改为黄色,这可能吗?
谢谢你的阅读
答案 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 这是一个
的链接我不知道这是否正确,但我认为它在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