vb.net - 粘贴到 RichTextBox 结果重复粘贴

Question

我在 vb.net (RTBDocPanel) 中有一个复制按钮，用于从 RichTextBox 复制文本，如下所示：

'Copia la selección
Private Sub ToolStripButtonCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButtonCopy.Click

    Clipboard.Clear()
    Clipboard.SetText(RTBdocPanel.SelectedRtf, TextDataFormat.Rtf)

End Sub

在此之后，我尝试粘贴为：

'Pega selección
Private Sub PegarSeleccion()

    Dim iData As IDataObject = Clipboard.GetDataObject()

    'Pega el texto si es texto, RTF si es RTF
    If iData.GetDataPresent(DataFormats.Text) Then
        RTBdocPanel.SelectedText = Clipboard.GetText(TextDataFormat.Text)
    ElseIf iData.GetDataPresent(DataFormats.Rtf) Then
        RTBdocPanel.SelectedRtf = Clipboard.GetData(DataFormats.Rtf).ToString
    End If

End Sub

但结果是重复的格式化文本（例如，复制“Hello”，粘贴“HelloHello”）

我找不到错误。

提前致谢

标签： vb.netrichtextboxpaste