VB.Net by API/System.Windows.Forms/DataFormats

DataFormats.Bitmap

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms Imports System.Math

public class ImageCutCopyPaste

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Clipboard.SetDataObject(PictureBox1.Image, True)
       PictureBox1.CreateGraphics.Clear(Me.PictureBox1.BackColor)
   End Sub
   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Dim clipboard_data As IDataObject
       clipboard_data = Clipboard.GetDataObject()
       If clipboard_data.GetDataPresent(DataFormats.Bitmap) Then
           PictureBox2.CreateGraphics.DrawImage(clipboard_data.GetData(DataFormats.Bitmap), 0, 0)
       End If
   End Sub
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Clipboard.SetDataObject(PictureBox1.Image, True)
   End Sub

End Class <Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Class Form1

   Inherits System.Windows.Forms.Form
   "Form overrides dispose to clean up the component list.
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing AndAlso components IsNot Nothing Then
           components.Dispose()
       End If
       MyBase.Dispose(disposing)
   End Sub
   "Required by the Windows Form Designer
   Private components As System.ruponentModel.IContainer
   "NOTE: The following procedure is required by the Windows Form Designer
   "It can be modified using the Windows Form Designer.  
   "Do not modify it using the code editor.
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.PictureBox1 = New System.Windows.Forms.PictureBox
       Me.PictureBox2 = New System.Windows.Forms.PictureBox
       Me.Button1 = New System.Windows.Forms.Button
       Me.Button2 = New System.Windows.Forms.Button
       Me.Button3 = New System.Windows.Forms.Button
       CType(Me.PictureBox1, System.ruponentModel.ISupportInitialize).BeginInit()
       CType(Me.PictureBox2, System.ruponentModel.ISupportInitialize).BeginInit()
       Me.SuspendLayout()
       "
       "PictureBox1
       "
       Me.PictureBox1.Image = System.Drawing.Image.FromFile("yourfile.jpg")
       Me.PictureBox1.Location = New System.Drawing.Point(17, 19)
       Me.PictureBox1.Name = "PictureBox1"
       Me.PictureBox1.Size = New System.Drawing.Size(217, 130)
       Me.PictureBox1.TabIndex = 0
       Me.PictureBox1.TabStop = False
       "
       "PictureBox2
       "
       Me.PictureBox2.Location = New System.Drawing.Point(250, 19)
       Me.PictureBox2.Name = "PictureBox2"
       Me.PictureBox2.Size = New System.Drawing.Size(218, 129)
       Me.PictureBox2.TabIndex = 1
       Me.PictureBox2.TabStop = False
       "
       "Button1
       "
       Me.Button1.Location = New System.Drawing.Point(64, 189)
       Me.Button1.Name = "Button1"
       Me.Button1.Size = New System.Drawing.Size(75, 23)
       Me.Button1.TabIndex = 2
       Me.Button1.Text = "Cut"
       Me.Button1.UseVisualStyleBackColor = True
       "
       "Button2
       "
       Me.Button2.Location = New System.Drawing.Point(207, 189)
       Me.Button2.Name = "Button2"
       Me.Button2.Size = New System.Drawing.Size(75, 23)
       Me.Button2.TabIndex = 3
       Me.Button2.Text = "Copy"
       Me.Button2.UseVisualStyleBackColor = True
       "
       "Button3
       "
       Me.Button3.Location = New System.Drawing.Point(354, 189)
       Me.Button3.Name = "Button3"
       Me.Button3.Size = New System.Drawing.Size(75, 23)
       Me.Button3.TabIndex = 4
       Me.Button3.Text = "Paste"
       Me.Button3.UseVisualStyleBackColor = True
       "
       "Form1
       "
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(486, 240)
       Me.Controls.Add(Me.Button3)
       Me.Controls.Add(Me.Button2)
       Me.Controls.Add(Me.Button1)
       Me.Controls.Add(Me.PictureBox2)
       Me.Controls.Add(Me.PictureBox1)
       CType(Me.PictureBox1, System.ruponentModel.ISupportInitialize).EndInit()
       CType(Me.PictureBox2, System.ruponentModel.ISupportInitialize).EndInit()
       Me.ResumeLayout(False)
   End Sub
   Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
   Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
   Friend WithEvents Button1 As System.Windows.Forms.Button
   Friend WithEvents Button2 As System.Windows.Forms.Button
   Friend WithEvents Button3 As System.Windows.Forms.Button

End Class

 </source>

DataFormats.FileDrop

<source lang="vbnet"> Imports System Imports System.Runtime.InteropServices Imports System.Drawing Imports System.ruponentModel Imports System.Windows.Forms Imports System.IO Public Class MainClass

   Shared Sub Main(ByVal args As String())
       Dim myform As New Form1()
       Application.Run(myform)            
   End Sub

End Class Public Class Form1

   " Allow Copy if there is FileDrop data.
   Private Sub lblDropTarget_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lblDropTarget.DragEnter
       If e.Data.GetDataPresent(DataFormats.FileDrop) Then
           e.Effect = DragDropEffects.Copy
       Else
           e.Effect = DragDropEffects.None
       End If
   End Sub
   " Display the dropped file names.
   Private Sub lblDropTarget_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lblDropTarget.DragDrop
       lstFiles.Items.Clear()
       Dim file_names As String() = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())
       For Each file_name As String In file_names
           lstFiles.Items.Add(file_name)
       Next file_name
   End Sub

End Class <Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1

   Inherits System.Windows.Forms.Form
   "Form overrides dispose to clean up the component list.
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing AndAlso components IsNot Nothing Then
           components.Dispose()
       End If
       MyBase.Dispose(disposing)
   End Sub
   "Required by the Windows Form Designer
   Private components As System.ruponentModel.IContainer
   "NOTE: The following procedure is required by the Windows Form Designer
   "It can be modified using the Windows Form Designer.  
   "Do not modify it using the code editor.
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.lstFiles = New System.Windows.Forms.ListBox
       Me.lblDropTarget = New System.Windows.Forms.Label
       Me.SuspendLayout()
       "
       "lstFiles
       "
       Me.lstFiles.Dock = System.Windows.Forms.DockStyle.Fill
       Me.lstFiles.FormattingEnabled = True
       Me.lstFiles.Location = New System.Drawing.Point(0, 48)
       Me.lstFiles.Name = "lstFiles"
       Me.lstFiles.Size = New System.Drawing.Size(274, 160)
       Me.lstFiles.TabIndex = 3
       "
       "lblDropTarget
       "
       Me.lblDropTarget.AllowDrop = True
       Me.lblDropTarget.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
       Me.lblDropTarget.Dock = System.Windows.Forms.DockStyle.Top
       Me.lblDropTarget.Location = New System.Drawing.Point(0, 0)
       Me.lblDropTarget.Name = "lblDropTarget"
       Me.lblDropTarget.Size = New System.Drawing.Size(274, 48)
       Me.lblDropTarget.TabIndex = 2
       Me.lblDropTarget.Text = "Drop Target"
       Me.lblDropTarget.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
       "
       "Form1
       "
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(274, 210)
       Me.Controls.Add(Me.lstFiles)
       Me.Controls.Add(Me.lblDropTarget)
       Me.Name = "Form1"
       Me.Text = "AcceptFiles"
       Me.ResumeLayout(False)
   End Sub
   Friend WithEvents lstFiles As System.Windows.Forms.ListBox
   Friend WithEvents lblDropTarget As System.Windows.Forms.Label

End Class

 </source>

DataFormats.Html

<source lang="vbnet"> Imports System.Drawing.Drawing2D Imports System Imports System.Drawing.Text Imports System.Drawing Imports System.Windows.Forms Imports System.Math Public Class MainClass

  Shared Sub Main()
      Dim form1 As Form = New Form1()
      Application.Run(form1)
  End Sub 

End Class Public Class Form1

   Private Sub frmDragRichText_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim txt As String = "www.vbex.ru."
       rchSource.Text = txt
       rchSource.Select(txt.IndexOf("www"), Len("www"))
       rchSource.SelectionFont = New Font(rchSource.SelectionFont, FontStyle.Italic)
       rchSource.Select(txt.IndexOf("."), Len("."))
       rchSource.SelectionFont = New Font(rchSource.SelectionFont, FontStyle.Bold)
       rchSource.SelectionColor = Color.Brown
       rchSource.Select(txt.IndexOf("vbex"), Len("vbex"))
       rchSource.SelectionFont = New Font(rchSource.SelectionFont, FontStyle.Bold)
       rchSource.SelectionColor = Color.Red
       rchSource.Select(txt.IndexOf("com"), Len("com"))
       rchSource.SelectionFont = New Font(rchSource.SelectionFont, FontStyle.Underline)
       rchSource.Select(0, 0)

       " Make a DataObject.
       Dim data_object As New DataObject
       " Add the data in various formats.
       " Build the HTML version.
       Dim html_text As String
       html_text = "<HTML>" & vbCrLf
       html_text &= "  <HEAD>Title</HEAD>" & vbCrLf
       html_text &= "  <BODY>" & vbCrLf
       html_text &= rchSource.Text & vbCrLf
       html_text &= "  </BODY>" & vbCrLf & "</HTML>"
       data_object.SetData(DataFormats.Html, html_text)
       " Copy data to the clipboard.
       Clipboard.SetDataObject(data_object)

       Console.WriteLine(data_object.GetData(DataFormats.Html).ToString)
   End Sub

End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1

   Inherits System.Windows.Forms.Form
   "Form overrides dispose to clean up the component list.
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing AndAlso components IsNot Nothing Then
           components.Dispose()
       End If
       MyBase.Dispose(disposing)
   End Sub
   "Required by the Windows Form Designer
   Private components As System.ruponentModel.IContainer
   "NOTE: The following procedure is required by the Windows Form Designer
   "It can be modified using the Windows Form Designer.  
   "Do not modify it using the code editor.
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.lblRtf = New System.Windows.Forms.Label
       Me.lblHtml = New System.Windows.Forms.Label
       Me.lblTarget = New System.Windows.Forms.Label
       Me.rchTarget = New System.Windows.Forms.RichTextBox
       Me.rchSource = New System.Windows.Forms.RichTextBox
       Me.SuspendLayout()
       "
       "lblRtf
       "
       Me.lblRtf.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                   Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
       Me.lblRtf.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
       Me.lblRtf.Location = New System.Drawing.Point(0, 104)
       Me.lblRtf.Margin = New System.Windows.Forms.Padding(3, 3, 3, 1)
       Me.lblRtf.Name = "lblRtf"
       Me.lblRtf.Size = New System.Drawing.Size(296, 110)
       Me.lblRtf.TabIndex = 14
       "
       "lblHtml
       "
       Me.lblHtml.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                   Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
       Me.lblHtml.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
       Me.lblHtml.Location = New System.Drawing.Point(0, 248)
       Me.lblHtml.Margin = New System.Windows.Forms.Padding(3, 2, 3, 3)
       Me.lblHtml.Name = "lblHtml"
       Me.lblHtml.Size = New System.Drawing.Size(296, 80)
       Me.lblHtml.TabIndex = 13
       "
       "lblTarget
       "
       Me.lblTarget.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                   Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
       Me.lblTarget.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
       Me.lblTarget.Location = New System.Drawing.Point(0, 216)
       Me.lblTarget.Margin = New System.Windows.Forms.Padding(3, 1, 3, 2)
       Me.lblTarget.Name = "lblTarget"
       Me.lblTarget.Size = New System.Drawing.Size(296, 28)
       Me.lblTarget.TabIndex = 12
       "
       "rchTarget
       "
       Me.rchTarget.AllowDrop = True
       Me.rchTarget.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                   Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
       Me.rchTarget.Location = New System.Drawing.Point(0, 72)
       Me.rchTarget.Name = "rchTarget"
       Me.rchTarget.Size = New System.Drawing.Size(296, 28)
       Me.rchTarget.TabIndex = 11
       Me.rchTarget.Text = ""
       "
       "rchSource
       "
       Me.rchSource.AllowDrop = True
       Me.rchSource.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                   Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
       Me.rchSource.Location = New System.Drawing.Point(0, 0)
       Me.rchSource.Name = "rchSource"
       Me.rchSource.Size = New System.Drawing.Size(296, 28)
       Me.rchSource.TabIndex = 10
       Me.rchSource.Text = ""
       "
       "Form1
       "
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(296, 329)
       Me.Controls.Add(Me.lblRtf)
       Me.Controls.Add(Me.lblHtml)
       Me.Controls.Add(Me.lblTarget)
       Me.Controls.Add(Me.rchTarget)
       Me.Controls.Add(Me.rchSource)
       Me.Name = "Form1"
       Me.Text = "CopyPasteRichText"
       Me.ResumeLayout(False)
   End Sub
   Friend WithEvents lblRtf As System.Windows.Forms.Label
   Friend WithEvents lblHtml As System.Windows.Forms.Label
   Friend WithEvents lblTarget As System.Windows.Forms.Label
   Friend WithEvents rchTarget As System.Windows.Forms.RichTextBox
   Friend WithEvents rchSource As System.Windows.Forms.RichTextBox

End Class

 </source>

DataFormats.Rtf

<source lang="vbnet"> Imports System.Drawing.Drawing2D Imports System Imports System.Drawing.Text Imports System.Drawing Imports System.Windows.Forms Imports System.Math Public Class MainClass

  Shared Sub Main()
      Dim form1 As Form = New Form1()
      Application.Run(form1)
  End Sub 

End Class Public Class Form1

   Private Sub frmDragRichText_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim txt As String = "www.vbex.ru."
       rchSource.Text = txt
       rchSource.Select(txt.IndexOf("www"), Len("www"))
       rchSource.SelectionFont = New Font(rchSource.SelectionFont, FontStyle.Italic)
       rchSource.Select(txt.IndexOf("."), Len("."))
       rchSource.SelectionFont = New Font(rchSource.SelectionFont, FontStyle.Bold)
       rchSource.SelectionColor = Color.Brown
       rchSource.Select(txt.IndexOf("vbex"), Len("vbex"))
       rchSource.SelectionFont = New Font(rchSource.SelectionFont, FontStyle.Bold)
       rchSource.SelectionColor = Color.Red
       rchSource.Select(txt.IndexOf("com"), Len("com"))
       rchSource.SelectionFont = New Font(rchSource.SelectionFont, FontStyle.Underline)
       rchSource.Select(0, 0)

       " Make a DataObject.
       Dim data_object As New DataObject
       " Add the data in various formats.
       data_object.SetData(DataFormats.Rtf, rchSource.Rtf)
       data_object.SetData(DataFormats.Text, rchSource.Text)
       " Build the HTML version.
       Dim html_text As String
       html_text = "<HTML>" & vbCrLf
       html_text &= "  <HEAD>Title</HEAD>" & vbCrLf
       html_text &= "  <BODY>" & vbCrLf
       html_text &= rchSource.Text & vbCrLf
       html_text &= "  </BODY>" & vbCrLf & "</HTML>"
       data_object.SetData(DataFormats.Html, html_text)
       " Copy data to the clipboard.
       Clipboard.SetDataObject(data_object)
       " Paste data from the clipboard.
       If data_object.GetDataPresent(DataFormats.Html) Then
           lblHtml.Text = data_object.GetData(DataFormats.Html).ToString
       Else
           lblHtml.Text = ""
       End If
   End Sub

End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1

   Inherits System.Windows.Forms.Form
   "Form overrides dispose to clean up the component list.
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing AndAlso components IsNot Nothing Then
           components.Dispose()
       End If
       MyBase.Dispose(disposing)
   End Sub
   "Required by the Windows Form Designer
   Private components As System.ruponentModel.IContainer
   "NOTE: The following procedure is required by the Windows Form Designer
   "It can be modified using the Windows Form Designer.  
   "Do not modify it using the code editor.
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.lblRtf = New System.Windows.Forms.Label
       Me.lblHtml = New System.Windows.Forms.Label
       Me.lblTarget = New System.Windows.Forms.Label
       Me.rchTarget = New System.Windows.Forms.RichTextBox
       Me.rchSource = New System.Windows.Forms.RichTextBox
       Me.SuspendLayout()
       "
       "lblRtf
       "
       Me.lblRtf.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                   Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
       Me.lblRtf.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
       Me.lblRtf.Location = New System.Drawing.Point(0, 104)
       Me.lblRtf.Margin = New System.Windows.Forms.Padding(3, 3, 3, 1)
       Me.lblRtf.Name = "lblRtf"
       Me.lblRtf.Size = New System.Drawing.Size(296, 110)
       Me.lblRtf.TabIndex = 14
       "
       "lblHtml
       "
       Me.lblHtml.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                   Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
       Me.lblHtml.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
       Me.lblHtml.Location = New System.Drawing.Point(0, 248)
       Me.lblHtml.Margin = New System.Windows.Forms.Padding(3, 2, 3, 3)
       Me.lblHtml.Name = "lblHtml"
       Me.lblHtml.Size = New System.Drawing.Size(296, 80)
       Me.lblHtml.TabIndex = 13
       "
       "lblTarget
       "
       Me.lblTarget.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                   Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
       Me.lblTarget.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
       Me.lblTarget.Location = New System.Drawing.Point(0, 216)
       Me.lblTarget.Margin = New System.Windows.Forms.Padding(3, 1, 3, 2)
       Me.lblTarget.Name = "lblTarget"
       Me.lblTarget.Size = New System.Drawing.Size(296, 28)
       Me.lblTarget.TabIndex = 12
       "
       "rchTarget
       "
       Me.rchTarget.AllowDrop = True
       Me.rchTarget.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                   Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
       Me.rchTarget.Location = New System.Drawing.Point(0, 72)
       Me.rchTarget.Name = "rchTarget"
       Me.rchTarget.Size = New System.Drawing.Size(296, 28)
       Me.rchTarget.TabIndex = 11
       Me.rchTarget.Text = ""
       "
       "rchSource
       "
       Me.rchSource.AllowDrop = True
       Me.rchSource.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                   Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
       Me.rchSource.Location = New System.Drawing.Point(0, 0)
       Me.rchSource.Name = "rchSource"
       Me.rchSource.Size = New System.Drawing.Size(296, 28)
       Me.rchSource.TabIndex = 10
       Me.rchSource.Text = ""
       "
       "Form1
       "
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(296, 329)
       Me.Controls.Add(Me.lblRtf)
       Me.Controls.Add(Me.lblHtml)
       Me.Controls.Add(Me.lblTarget)
       Me.Controls.Add(Me.rchTarget)
       Me.Controls.Add(Me.rchSource)
       Me.Name = "Form1"
       Me.Text = "CopyPasteRichText"
       Me.ResumeLayout(False)
   End Sub
   Friend WithEvents lblRtf As System.Windows.Forms.Label
   Friend WithEvents lblHtml As System.Windows.Forms.Label
   Friend WithEvents lblTarget As System.Windows.Forms.Label
   Friend WithEvents rchTarget As System.Windows.Forms.RichTextBox
   Friend WithEvents rchSource As System.Windows.Forms.RichTextBox

End Class

 </source>

DataFormats.Text

<source lang="vbnet">

Imports System.Drawing.Drawing2D Imports System Imports System.Drawing.Text Imports System.Drawing Imports System.Windows.Forms Imports System.Math Public Class MainClass

  Shared Sub Main()
      Dim form1 As Form = New Form1()
      Application.Run(form1)
  End Sub 

End Class Public Class Form1

   Private Sub frmDragRichText_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim txt As String = "www.vbex.ru."
       rchSource.Text = txt
       rchSource.Select(txt.IndexOf("www"), Len("www"))
       rchSource.SelectionFont = New Font(rchSource.SelectionFont, FontStyle.Italic)
       rchSource.Select(txt.IndexOf("."), Len("."))
       rchSource.SelectionFont = New Font(rchSource.SelectionFont, FontStyle.Bold)
       rchSource.SelectionColor = Color.Brown
       rchSource.Select(txt.IndexOf("vbex"), Len("vbex"))
       rchSource.SelectionFont = New Font(rchSource.SelectionFont, FontStyle.Bold)
       rchSource.SelectionColor = Color.Red
       rchSource.Select(txt.IndexOf("com"), Len("com"))
       rchSource.SelectionFont = New Font(rchSource.SelectionFont, FontStyle.Underline)
       rchSource.Select(0, 0)

       " Make a DataObject.
       Dim data_object As New DataObject
       " Add the data in various formats.
       data_object.SetData(DataFormats.Text, rchSource.Text)

       " Copy data to the clipboard.
       Clipboard.SetDataObject(data_object)
   End Sub

End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1

   Inherits System.Windows.Forms.Form
   "Form overrides dispose to clean up the component list.
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing AndAlso components IsNot Nothing Then
           components.Dispose()
       End If
       MyBase.Dispose(disposing)
   End Sub
   "Required by the Windows Form Designer
   Private components As System.ruponentModel.IContainer
   "NOTE: The following procedure is required by the Windows Form Designer
   "It can be modified using the Windows Form Designer.  
   "Do not modify it using the code editor.
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.lblRtf = New System.Windows.Forms.Label
       Me.lblHtml = New System.Windows.Forms.Label
       Me.lblTarget = New System.Windows.Forms.Label
       Me.rchTarget = New System.Windows.Forms.RichTextBox
       Me.rchSource = New System.Windows.Forms.RichTextBox
       Me.SuspendLayout()
       "
       "lblRtf
       "
       Me.lblRtf.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                   Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
       Me.lblRtf.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
       Me.lblRtf.Location = New System.Drawing.Point(0, 104)
       Me.lblRtf.Margin = New System.Windows.Forms.Padding(3, 3, 3, 1)
       Me.lblRtf.Name = "lblRtf"
       Me.lblRtf.Size = New System.Drawing.Size(296, 110)
       Me.lblRtf.TabIndex = 14
       "
       "lblHtml
       "
       Me.lblHtml.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                   Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
       Me.lblHtml.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
       Me.lblHtml.Location = New System.Drawing.Point(0, 248)
       Me.lblHtml.Margin = New System.Windows.Forms.Padding(3, 2, 3, 3)
       Me.lblHtml.Name = "lblHtml"
       Me.lblHtml.Size = New System.Drawing.Size(296, 80)
       Me.lblHtml.TabIndex = 13
       "
       "lblTarget
       "
       Me.lblTarget.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                   Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
       Me.lblTarget.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
       Me.lblTarget.Location = New System.Drawing.Point(0, 216)
       Me.lblTarget.Margin = New System.Windows.Forms.Padding(3, 1, 3, 2)
       Me.lblTarget.Name = "lblTarget"
       Me.lblTarget.Size = New System.Drawing.Size(296, 28)
       Me.lblTarget.TabIndex = 12
       "
       "rchTarget
       "
       Me.rchTarget.AllowDrop = True
       Me.rchTarget.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                   Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
       Me.rchTarget.Location = New System.Drawing.Point(0, 72)
       Me.rchTarget.Name = "rchTarget"
       Me.rchTarget.Size = New System.Drawing.Size(296, 28)
       Me.rchTarget.TabIndex = 11
       Me.rchTarget.Text = ""
       "
       "rchSource
       "
       Me.rchSource.AllowDrop = True
       Me.rchSource.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                   Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
       Me.rchSource.Location = New System.Drawing.Point(0, 0)
       Me.rchSource.Name = "rchSource"
       Me.rchSource.Size = New System.Drawing.Size(296, 28)
       Me.rchSource.TabIndex = 10
       Me.rchSource.Text = ""
       "
       "Form1
       "
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(296, 329)
       Me.Controls.Add(Me.lblRtf)
       Me.Controls.Add(Me.lblHtml)
       Me.Controls.Add(Me.lblTarget)
       Me.Controls.Add(Me.rchTarget)
       Me.Controls.Add(Me.rchSource)
       Me.Name = "Form1"
       Me.Text = "CopyPasteRichText"
       Me.ResumeLayout(False)
   End Sub
   Friend WithEvents lblRtf As System.Windows.Forms.Label
   Friend WithEvents lblHtml As System.Windows.Forms.Label
   Friend WithEvents lblTarget As System.Windows.Forms.Label
   Friend WithEvents rchTarget As System.Windows.Forms.RichTextBox
   Friend WithEvents rchSource As System.Windows.Forms.RichTextBox

End Class

 </source>