0

到目前为止,我已经能够为整个文本编写查找和替换代码。

Private Sub btnFFindNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFFindNext.Click

    Dim search As String
    Dim length As String

    search = textToFind.Text 
    length = textToFind.Text.Length

        lastposition = RichTextBox.Find(textToFind.Text, lastposition, RichTextBoxFinds.None)

    RichTextBox.SelectionStart = lastposition
    RichTextBox.SelectionLength = length
    lastposition = lastposition + 1

但是,我现在需要使它成为可能,以便如果用户选择一些文本,则仅对该选择执行查找和替换。

我该怎么做呢?

4

1 回答 1

0

您可以将 < ricthTextBox.Find > 与 start 和 end 的参数一起使用(与您使用的类似)。
您可以从richTextBox 的事件(SelectionChanged)中获取第一个起点和终点

告诉我进展如何。

于 2012-11-14T12:34:44.413 回答