Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB7
Expertise: Intermediate
Jun 1, 2002



Building the Right Environment to Support AI, Machine Learning and Deep Learning

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 If
End Sub
Marco Bellinaso
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date