VB.NET中如何查找文本框内特定字符串并修改其前景色为红色

你的现有代码只能修改第一个匹配到的"Card Locked"，而且在TextChanged事件里修改格式还会触发重复的事件触发，导致不必要的循环。我帮你调整代码，实现找到所有匹配项并逐个修改前景色的功能，同时优化用户体验：

完整实现代码 #

Imports System.Drawing ' 确保引入这个命名空间，否则Color类会报错

Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
    ' 暂时解绑TextChanged事件，防止修改格式时重复触发
    RemoveHandler RichTextBox1.TextChanged, AddressOf RichTextBox1_TextChanged
    
    Try
        Dim targetText As String = "Card Locked"
        Dim targetLength As Integer = targetText.Length
        Dim searchStartPos As Integer = 0
        ' 保存用户原来的光标位置和选中状态，操作后恢复
        Dim originalCursorStart As Integer = RichTextBox1.SelectionStart
        Dim originalSelectionLength As Integer = RichTextBox1.SelectionLength

        ' 循环查找所有匹配项
        searchStartPos = RichTextBox1.Find(targetText, searchStartPos, RichTextBoxFinds.None)
        While searchStartPos <> -1
            ' 选中找到的文本并设置为红色前景色
            RichTextBox1.Select(searchStartPos, targetLength)
            RichTextBox1.SelectionColor = Color.Red

            ' 移动搜索起始位置，避免重复匹配同一文本
            searchStartPos += targetLength
            searchStartPos = RichTextBox1.Find(targetText, searchStartPos, RichTextBoxFinds.None)
        End While

        ' 恢复用户原来的光标和选中状态
        RichTextBox1.Select(originalCursorStart, originalSelectionLength)
    Finally
        ' 重新绑定TextChanged事件
        AddHandler RichTextBox1.TextChanged, AddressOf RichTextBox1_TextChanged
    End Try
End Sub

关键细节说明 #

• 避免事件循环：修改SelectionColor会触发RichTextBox的TextChanged事件，所以我们先暂时解绑事件，操作完成后再重新绑定，防止无限循环。
• 批量匹配处理：用While循环遍历所有匹配项，每次找到后将搜索起始位置后移（跳过当前匹配的文本长度），直到Find方法返回-1（表示没有更多匹配）。
• 保留用户操作状态：保存用户原来的光标位置和选中状态，操作完成后恢复，不会打断用户的输入体验。
• 可选配置：如果需要忽略大小写搜索，把RichTextBoxFinds.None改成RichTextBoxFinds.NoCase即可。

额外优化建议 #

如果你的RichTextBox内容量很大，每次输入字符都触发全量搜索可能会有卡顿，可以考虑添加一个防抖Timer：比如用户停止输入500毫秒后再执行搜索格式修改，减少不必要的计算。

内容的提问来源于stack exchange，提问作者kooda