vb.net - Capture CTRL+V o pegue en un cuadro de texto en.NET

formatting hook

Question

VB.NET 2010: tengo un RichTextbox en el que el usuario puede ingresar datos manualmente o copiar / pegar desde otra fuente. Una vez que los datos estén completos, acierta y se resaltan algunas palabras clave. Mi problema es que si copia / pega de otra fuente también se copia el formato. Bueno, a veces la fuente externa tiene una fuente blanca y mi cuadro de texto tiene un fondo blanco, así que parece que no pegó nada y lo hace una y otra vez.

Lo que estoy buscando es una forma de interceptar la acción de pegar en el cuadro de texto para poder tomar ese texto y pegarlo como ASCII puro sin formatear.

Editar después de experimentar con KeyDown

Private Sub txtRch_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles txtRch.KeyDown
    If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.V Then
        With txtRch
            Dim i As Integer = .SelectionStart          ''cache the current position
            .Select(0, i)                               ''select text from start to current position
            Dim s As String = .SelectedText             ''copy that text to a variable
            .Select(i, .TextLength)                     ''now select text from current position to end
            Dim t As String = .SelectedText             ''copy that text to a variable
            Dim u As String = s & Clipboard.GetText(TextDataFormat.UnicodeText) & t ''now concatenate the first chunk, the new text, and the last chunk
            .Clear()                                    ''clear the textbox
            .Text = u                                   ''paste the new text back into textbox
            .SelectionStart = i                         ''put cursor back to cached position
        End With

        ''the event has been handled manually
        e.Handled = True
    End If
End Sub

Esto parece funcionar y todo mi texto queda retenido y todo es ASCII. Creo que si quisiera dar un paso más, también podría tomar la fuente y el color de mi RichTextbox, seleccionar todo el texto y luego asignar la fuente y el color a la selección.

Answer 1

En la mayoría de los casos, examinar el evento KeyDown debería ser lo suficientemente bueno junto con el uso de un RichTextBox temporal para modificar el texto entrante:

Private Sub RichTextBox1_KeyDown(sender As Object, e As KeyEventArgs) _
                                 Handles RichTextBox1.KeyDown
  If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.V Then

    Using box As New RichTextBox
      box.SelectAll()
      box.SelectedRtf = Clipboard.GetText(TextDataFormat.Rtf)
      box.SelectAll()
      box.SelectionBackColor = Color.White
      box.SelectionColor = Color.Black
      RichTextBox1.SelectedRtf = box.SelectedRtf
   End Using

   e.Handled = True
  End If
End Sub

Nota: Falta la comprobación de errores.