VB.NET RichTextBox复制粘贴出现重复内容问题求助

我来帮你搞定这个粘贴后文本重复的问题！先分析下可能的原因，再给你修正方案：

问题根源分析 #

1. 剪贴板格式优先级问题：你复制时存入剪贴板的是RTF格式，但系统会自动为RTF生成对应的纯文本格式，导致剪贴板同时存在两种格式。你的原代码先判断纯文本格式，会优先粘贴纯文本；如果粘贴操作被触发两次（比如不小心绑定了多个事件），就会出现重复粘贴的情况。
2. RTF内容获取错误：原代码里用Clipboard.GetData(DataFormats.Rtf).ToString来获取RTF内容是不对的——GetData返回的是MemoryStream对象，直接调用ToString得到的是对象类型名而非实际的RTF文本，虽然这通常会导致乱码，但也可能引发异常或意外行为。

修正后的粘贴代码 #

先调整格式判断顺序，优先处理RTF格式（毕竟你复制的是带格式的内容），同时修正RTF内容的获取方式：

'Pega selección
Private Sub PegarSeleccion()
    Dim iData As IDataObject = Clipboard.GetDataObject()
    
    '优先处理RTF格式，再降级处理纯文本
    If iData.GetDataPresent(DataFormats.Rtf) Then
        '用GetText直接获取RTF字符串，这是正确的方式
        RTBdocPanel.SelectedRtf = Clipboard.GetText(TextDataFormat.Rtf)
    ElseIf iData.GetDataPresent(DataFormats.Text) Then
        RTBdocPanel.SelectedText = Clipboard.GetText(TextDataFormat.Text)
    End If
End Sub

更可靠的替代方案：使用RichTextBox原生Paste方法 #

你也可以直接用RichTextBox内置的Paste方法，它能更准确地处理选中内容替换、光标插入等逻辑：

Private Sub ToolStripButtonPaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButtonPaste.Click
    Dim iData As IDataObject = Clipboard.GetDataObject()
    
    If iData.GetDataPresent(DataFormats.Rtf) Then
        RTBdocPanel.Paste(DataFormats.Rtf)
    ElseIf iData.GetDataPresent(DataFormats.Text) Then
        RTBdocPanel.Paste(DataFormats.Text)
    End If
End Sub

额外检查点 #

别忘了确认你的粘贴方法只绑定了一次事件！比如检查是否同时把PegarSeleccion绑定到了ToolStripButtonPaste.Click和RichTextBox的Paste事件，重复绑定会导致触发多次粘贴，这也是出现重复文本的常见原因。

内容的提问来源于stack exchange，提问作者Javier