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

但结果是重复的格式化文本（例如，复制＆＃34; Hello＆＃34;，粘贴＆＃34; HelloHello＆＃34;）

我找不到错误。

提前致谢

粘贴到RichTextBox结果重复粘贴

0 个答案: