Atlanta Custom Software Development 

 
   Search        Code/Page
 

User Login
Email

Password

 

Forgot the Password?
Services
» Web Development
» Maintenance
» Data Integration/BI
» Information Management
Programming
  Database
Automation
OS/Networking
Graphics
Links
Tools
» Regular Expr Tester
» Free Tools


Click here to copy the following block
' Copy the RichTextBox's selected text into the Clipboard
' Example: CopyFromRichTextBox (richTextBox1)

Public Sub CopyFromRichTextBox(ByVal rtb As RichTextBox, _
  Optional ByVal availableAfterEnd As Boolean = False)
  Dim data As New DataObject()

  ' get the selected RTF text if there is a selection,
  ' or the entire text is no text is selected
  Dim rtfText, plainText As String
  If rtb.SelectionLength > 0 Then
    rtfText = rtb.SelectedRtf
    plainText = rtb.SelectedText
  Else
    rtfText = rtb.Rtf
    plainText = rtb.Text
  End If
  ' do the copy only if there is something to be copied
  If rtfText.Length > 0 Then data.SetData(DataFormats.Rtf, rtfText)
  If plainText.Length > 0 Then data.SetData(DataFormats.Text, plainText)

  ' finally copy into the clipboard
  Clipboard.SetDataObject(data, availableAfterEnd)
End Sub


Submitted By : Nayan Patel  (Member Since : 5/26/2004 12:23:06 PM)

Job Description : He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting.
View all (893) submissions by this author  (Birth Date : 7/14/1981 )


Home   |  Comment   |  Contact Us   |  Privacy Policy   |  Terms & Conditions   |  BlogsZappySys

© 2008 BinaryWorld LLC. All rights reserved.