查找并查找RichTextBox的下一个

Question

richTextBox1.Text = "Where there is a will there is way";

我只想更改is这两种红色。

我知道如何更改第一个is，但我不知道如何更改第二个is。

RichTextBox1.SelStart = RichTextBox1.Find("is")
RichTextBox1.SelLength = 2
RichTextBox1.SelColor = vbRed

Answer 1

根据MSDN Article：

  

如果找到搜索的文本，则Find方法会突出显示   指定文本并返回第一个字符的索引   突出显示。如果找不到指定的文本，则查找方法   返回1.

我假设它是一个拼写错误，如果找不到文本，则返回值为-1而不是1，因此，在您的代码中：

.active{
  background-color:green;
}

body {
    background-color: yellow;
}