从Eclipse复制文本粘贴至VB.NET文本框失效的问题及解决方案咨询

• Eclipse复制文本时会向系统剪贴板写入多种格式的数据（包括富文本、自定义格式、纯文本等），VB.NET默认的TextBox粘贴逻辑在解析这些非标准/复杂格式时，可能因格式兼容问题或解析过程耗时，导致应用短暂无响应，甚至无法识别并粘贴有效内容。
• 记事本在接收粘贴时会自动过滤所有复杂格式，仅保留纯文本；二次复制后剪贴板中只有标准纯文本格式，VB.NET TextBox能正常解析处理，因此可以正常粘贴。

方案1：自定义纯文本TextBox控件 #

继承原生TextBox，重写消息处理逻辑，强制粘贴纯文本内容：

Public Class PlainTextTextBox
    Inherits TextBox

    Protected Overrides Sub WndProc(ByRef m As Message)
        Const WM_PASTE As Integer = &H302
        ' 拦截粘贴消息
        If m.Msg = WM_PASTE Then
            ' 仅提取剪贴板中的纯文本
            If Clipboard.ContainsText(TextDataFormat.Text) Then
                Me.SelectedText = Clipboard.GetText(TextDataFormat.Text)
                Return
            End If
        End If
        ' 其他消息交给原生处理
        MyBase.WndProc(m)
    End Sub

使用时，将窗体中原有的TextBox替换为这个自定义的PlainTextTextBox即可，该控件会跳过复杂格式解析，只处理纯文本粘贴。

方案2：拦截TextBox的Ctrl+V按键事件 #

无需自定义控件，直接给目标TextBox绑定KeyDown事件，手动处理粘贴逻辑：

Private Sub TargetTextBox_KeyDown(sender As Object, e As KeyEventArgs) Handles TargetTextBox.KeyDown
    ' 检测Ctrl+V组合键
    If e.Control AndAlso e.KeyCode = Keys.V Then
        ' 阻止默认粘贴行为
        e.SuppressKeyPress = True
        ' 粘贴纯文本
        If Clipboard.ContainsText(TextDataFormat.Text) Then
            TargetTextBox.SelectedText = Clipboard.GetText(TextDataFormat.Text)
        End If
    End If
End Sub

这种方式适合快速修改单个TextBox的粘贴行为，无需替换控件。

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