[求助]RichTextBox 控件查找及定位 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好！

在richtextbox中查找关键字，找到后高亮显示，且焦点转到被找到的内容。

在网上找到一段c#的代码，也转成.net的代码了，但是不能使用。麻烦老师看看代码。

谢谢！

c#代码：

Font f=new Font("Verdana", 8F, FontStyle.Italic, GraphicsUnit.Point);
string str="";
if (richTextBox1.Find(str)>0)
{
int pos=richTextBox1.Find(str);
richTextBox1.SelectionStart=pos;
richTextBox1.SelectionLength=str.Length;
richTextBox1.SelectionFont=f;
richTextBox1.SelectionColor=Color.Red;
}

.net代码：

Private Sub SurroundingSub()
Dim f As Font = New Font("Verdana", 8F, FontStyle.Italic, GraphicsUnit.Point)
Dim str As String = ""

    If richTextBox1.Find(str) > 0 Then
        Dim pos As Integer = richTextBox1.Find(str)
        richTextBox1.SelectionStart = pos
        richTextBox1.SelectionLength = str.Length
        richTextBox1.SelectionFont = f
        richTextBox1.SelectionColor = Color.Red
    End If
End Sub

窗口创建RichTextBox控件：

Dim ct As New System.Windows.Forms.RichTextBox
ct.Dock = System.Windows.Forms.DockStyle.Fill
ct.Name ="RichTextBox1"
e.Form.Controls("Panel1").BaseControl.Controls.Add(ct)
ct.text = "ASDFGH"

Dim richTextBox1 As System.Windows.Forms.RichTextBox = e.Form.Controls("Panel1").BaseControl.Controls（0）

Dim f As Font = New Font("Verdana", 8F, FontStyle.Italic, GraphicsUnit.Point)
Dim str As String = "要查找的字符"

Dim pos As Integer = richTextBox1.Find(str)

If pos > 0 Then

richTextBox1.SelectionStart = pos
        richTextBox1.SelectionLength = str.Length
        richTextBox1.SelectionFont = f
        richTextBox1.SelectionColor = Color.Red
    End If

蓝老师，利用Find只能显示找到文档中出现的第一处字符串，如果文档中前后有多处，就不再往下找了。

如果要标注出所有的字符串，要用什么方法？

谢谢！

https://docs.microsoft.com/zh-cn/dotnet/api/system.windows.forms.richtextbox.find?view=net-5.0

Find(Char[], Int32)

从特定的起始点开始，在 RichTextBox 控件的文本中搜索字符列表中某个字符的第一个实例

循环或者递归处理，从之前查询结果的位置+字长度作为新的起始点开始查询

https://blog.csdn.net/admans/article/details/81560532

https://blog.csdn.net/weixin_30632883/article/details/96853642

循环和递归都不会弄，老师给写一段吧

Dim richTextBox1 As System.Windows.Forms.RichTextBox = e.Form.Controls("Panel1").BaseControl.Controls（0）

Dim f As Font = New Font("Verdana", 8F, FontStyle.Italic, GraphicsUnit.Point)

Dim pos As Integer =0
Dim str As String = "要查找的字符"

pos = richTextBox1.Find(str,pos,0)

do while pos > 0

richTextBox1.SelectionStart = pos
        richTextBox1.SelectionLength = str.Length
        richTextBox1.SelectionFont = f
        richTextBox1.SelectionColor = Color.Red

pos = pos + str.Length

pos = richTextBox1.Find(str,pos,0)
loop

主题：[求助]RichTextBox 控件查找及定位