Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

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.

 

 

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