devxlogo

Pasting the text in the Clipboard into a RichTextBox

Pasting the text in the Clipboard into a RichTextBox

' Paste the text currently in the Clipboard into the specified RichTextBox' Example: PasteIntoRichTextBox (richTextBox1)Public Sub PasteIntoRichTextBox(ByVal rtb As RichTextBox)    ' get the data currently in the Clipboard    Dim data As IDataObject = Clipboard.GetDataObject()    ' check whether there is any data in RTF format,    ' without attempting a conversion    If data.GetDataPresent(DataFormats.Rtf, False) Then        ' if available, paste into the RTF selection        rtb.SelectedRtf = data.GetData(DataFormats.Rtf).ToString()    ElseIf data.GetDataPresent(DataFormats.Text, True) Then        ' otherwise attempts to get data in plaintext format        rtb.SelectedText = data.GetData(DataFormats.Text, True).ToString()    End IfEnd Sub

devx-admin

Share the Post: