查找替换RTF格式的文本时对锁定文本的处理问题

我想，做过文字处理的网友们一定不会对RichTextBox控件感到陌生。这是个封装了几乎所有的RTF文档的编辑显示功能，我们可以完全基于此控件来编写一个强大的文本编辑器。也许你会想，RichTextBox控件的所有功能早就在M$ Word下实现了，而且人家的东东做的那么酷，何必自己再去费神开发一个文本编辑器呢？其实，我们写程序并不都是为了实用性，通过做一个程序，哪怕只是个简单的计算器，也能学到不少知识的。何况，你居然可以用RichTextBox控件实现一个Word没有的功能——把一个特定的文本锁定使在解锁前无法对其进行任何更改~呵呵，你试过了吗？

你一定会很满意这个功能的，因为RichTextBox可以自行阻止用户对已锁定的文本进行任何更改，而你不需要再添加任何多余的代码（至少大多数情况下是如此的）。但是无论控件的功能封装得多好，它的智商还是有限，比如当你试图在你的软件里实现查找替换文本功能时，RichTextBox呆头呆脑的特性就暴露无遗了——一旦试图对已锁定的文本进行替换，文件的指针就会被强行退回到该被锁定的文本的前一个未锁定的字符上，然后继续下一步，继续再次被退回……于是你的程序就这样陷入了死循环中~呵呵，急得人一头汗哪……

没关系，其实我们只不过必须亲自教导一下RichTextBox罢了，让它知道怎样聪明地处理锁定文本的替换问题。我们的目标是，能够让RichTextBox的被保护文本不被替换并保证指针顺利前进，并在替换完成后通知用户被替换的文本有多少处以及被保护而无法替换的文本有多少处。

下面是我提供的解决方案，你可以参考一下，效率并不是很高，但是很直观。      

If MyReplaceForm.ShowDialog = DialogResult.OK Then
    '这两个变量记录要被替换的文本和替换成的文本
    Dim FindText As String = MyReplaceForm.TextBoxFind.Text
    Dim ReplaceText As String = MyReplaceForm.TextBoxReplace.Text
    '此变量用于标记是否找到了被锁定的文本
    Dim ProtectedThisTimeFound As Boolean
    &