Вставить в RichTextBox результаты дубликата вставки - PullRequest
Новая
       26

Вставить в RichTextBox результаты дубликата вставки

0 голосов
/ 16 мая 2018

У меня есть кнопка копирования в 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»)

Я не могу найти ошибку.

Заранее спасибо

...