1

我试图做到这一点，我可以在代码中指定一个或多个单词，并且当我编译/调试时，我希望程序在 Richtextbox 中搜索这些单词的所有实例并更改那里的颜色。

Dim GRAB as String = New WebClient().DownloadString("example.com")
RichTextBox1.Text = GRAB
` Color Word Code Here

我在谷歌上查了很多东西，但我试过的一切都只会突出第一个词。

对不起，如果我的打字不好，我打字时手臂骨折了..

有人可以帮我解决这个问题，或者写一个快速的片段吗？

4

3 回答 3

1

尝试这个 ：

Dim wordslist As New List(Of String)
wordslist.Add("Hello")
wordslist.Add("World")

Dim len As Integer = RichTextBox1.TextLength

For Each word As String In wordslist

    Dim lastindex = RichTextBox1.Text.LastIndexOf(word)
    Dim index As Integer = 0

    While index < lastindex

    RichTextBox1.Find(word, index, len, RichTextBoxFinds.None)
    RichTextBox1.SelectionColor = Color.Blue
    index = RichTextBox1.Text.IndexOf(word, index) + 1

    End While

Next

从这里从 C# 修改和翻译

于 2013-02-23T00:11:11.807 回答
0

您需要选择将有颜色变化的文本。

RichTextBox1.Select(RichTextBox1.Text.IndexOf("example"),4)
 RichTextBox1.SelectionColor = Color.Red

将“.com”渲染为红色或

RichTextBox1.Select(6,4)
  RichTextBox1.SelectionColor = Color.Red

会做同样的事情

于 2013-02-22T23:52:21.560 回答
0

假设您想将“暗淡”制作为蓝色作为 VS：-

粘贴这个：

If RichTextBox1.Text.EndsWith("Dim") Then
        RichTextBox1.Select(RichTextBox1.TextLength - 3, 3)
        RichTextBox1.SelectionColor = Color.Blue
        RichTextBox1.Select(RichTextBox1.TextLength, RichTextBox1.TextLength)
        RichTextBox1.SelectionColor = Color.Black
    End If

将此代码添加到 RichTextBox 到 Text_Changed。

于 2017-03-27T16:14:47.223 回答