如何將查找和替換僅應用於所選文本而不是VB.net中的整個文檔

Question

對，我已經創建了允許用戶對所有文本執行查找和替換的代碼富文本框。不過，我現在允許用戶選擇文本的一部分要執行的查找和替換

什麼這是我目前使用我的代碼：

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

length = textToFind.Text.Length 

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

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

我還添加代碼在RTB中的form1選擇已更改的事件處理程序中，以便當它發生更改時，它將當前光標位置設置爲上一個位置。

希望上面的代碼和我的描述將幫助您瞭解我的情況。因此，爲了澄清，我將如何調整我的代碼，以便如果用戶選擇了一些文本，那麼它僅對該文本執行Find and Replace。一旦到達選擇結束，它結束。

謝謝。

Answer 1

我會建議使用MouseUp和MouseDown事件來捕獲選擇，然後找出選擇範圍內的搜索字符串。

你也可以看看this MSDN例如，或者類似的東西，這將幫助你：

Private selectionStart As Integer 
Private selectionEnd As Integer 
Private searchString As String 

Private Sub btnFindAll_Click(sender As Object, e As EventArgs) 
    searchString = textToFind.Text ' Set string to find here 

    ' Swap position due to reverse selection 
    If selectionStart > selectionEnd Then 
     Dim x As Integer = selectionStart 
     selectionStart = selectionEnd 
     selectionEnd = x 
    End If 

    'Every time find index and focus the result 
    Dim index As Integer = richTextBox1.Find(searchString, selectionStart, selectionEnd, RichTextBoxFinds.None) 
    If index > 0 Then 
     richTextBox1.Focus() 
     richTextBox1.Select(index, searchString.Length) 
     selectionStart = index + searchString.Length 
    Else 
       ' not found 
    End If 
End Sub 

Private Sub richTextBox1_MouseUp(sender As Object, e As MouseEventArgs) 
    selectionEnd = richTextBox1.GetCharIndexFromPosition(New System.Drawing.Point(e.X, e.Y)) 
End Sub 

Private Sub richTextBox1_MouseDown(sender As Object, e As MouseEventArgs) 
    selectionStart = richTextBox1.GetCharIndexFromPosition(New System.Drawing.Point(e.X, e.Y)) 
End Sub