VB.Net/Windows System/Clipboard
Содержание
- 1 Copy Data from RichTextBox to the clipboard
- 2 Copy HTML format data from RichTextBox into clipboard
- 3 Copy Plain Text format data from RichTextBox into clipboard
- 4 Copy Rtf format data from RichTextBox into clipboard
- 5 Get File Name List from clipboard
- 6 Paste Data from clipboard to a Label using DataFormats.Html
- 7 Paste Data from clipboard to a Label using DataFormats.Rtf
- 8 Paste Data from clipboard to a RichTextBox using DataFormats.Text
- 9 Use ClipBoard to copy Object
Copy Data from RichTextBox to the clipboard
<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>
Copy HTML format data from RichTextBox into clipboard
<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>
Copy Plain Text format data from RichTextBox into clipboard
<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)
Console.WriteLine(data_object.GetData(DataFormats.Text).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>
Copy Rtf format data from RichTextBox into clipboard
<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) " Copy data to the clipboard. Clipboard.SetDataObject(data_object)
Console.WriteLine(data_object.GetData(DataFormats.Rtf).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>
Get File Name List from clipboard
<source lang="vbnet"> Imports System.Drawing.Drawing2D Imports System Imports System.Drawing.Text Imports System.Drawing Imports System.Windows.Forms Imports System.Math Imports System.Xml.Serialization Imports System.IO Imports System.Collections.Specialized Public Class MainClass
Shared Sub Main() "Copy some files then run this program If Clipboard.ContainsFileDropList() Then Dim file_names As StringCollection = Clipboard.GetFileDropList() For Each file_name As String In file_names Console.WriteLine(file_name) Next file_name End If End Sub
End Class
</source>
Paste Data from clipboard to a Label using 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. 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>
Paste Data from clipboard to a Label using 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.Rtf) Then rchTarget.Rtf = data_object.GetData(DataFormats.Rtf).ToString lblRtf.Text = data_object.GetData(DataFormats.Rtf).ToString Else rchTarget.Text = "" lblRtf.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>
Paste Data from clipboard to a RichTextBox using 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.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.Text) Then lblTarget.Text = data_object.GetData(DataFormats.Text).ToString Else lblTarget.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>
Use ClipBoard to copy Object
<source lang="vbnet"> Imports System Imports System.Runtime.InteropServices Imports System.Drawing Imports System.ruponentModel Imports System.Windows.Forms Imports System.IO Imports System.Xml.Serialization 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
<Serializable()> _ Public Class Student Public FirstName As String Public LastName As String Public Sub New() End Sub Public Sub New(ByVal first_name As String, ByVal last_name As String) FirstName = first_name LastName = last_name End Sub End Class " Copy the Student to the clipboard. Private Sub btnCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopy.Click Dim emp As New Student(txtFirstName.Text, txtLastName.Text) Dim data_object As New DataObject data_object.SetData("Student", emp) Clipboard.SetDataObject(data_object) End Sub " Paste data from the clipboard. Private Sub btnPaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPaste.Click Dim data_object As IDataObject = Clipboard.GetDataObject() If data_object.GetDataPresent("Student") Then Dim emp As Student = DirectCast(data_object.GetData("Student"), Student) txtPasteFirstName.Text = emp.FirstName txtPasteLastName.Text = emp.LastName 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.btnPaste = New System.Windows.Forms.Button Me.txtPasteLastName = New System.Windows.Forms.TextBox Me.txtPasteFirstName = New System.Windows.Forms.TextBox Me.Label3 = New System.Windows.Forms.Label Me.Label4 = New System.Windows.Forms.Label Me.btnCopy = New System.Windows.Forms.Button Me.txtLastName = New System.Windows.Forms.TextBox Me.txtFirstName = New System.Windows.Forms.TextBox Me.Label2 = New System.Windows.Forms.Label Me.Label1 = New System.Windows.Forms.Label Me.SuspendLayout() " "btnPaste " Me.btnPaste.Location = New System.Drawing.Point(232, 96) Me.btnPaste.Name = "btnPaste" Me.btnPaste.Size = New System.Drawing.Size(48, 24) Me.btnPaste.TabIndex = 22 Me.btnPaste.Text = "Paste" " "txtPasteLastName " Me.txtPasteLastName.Location = New System.Drawing.Point(72, 112) Me.txtPasteLastName.Name = "txtPasteLastName" Me.txtPasteLastName.Size = New System.Drawing.Size(136, 20) Me.txtPasteLastName.TabIndex = 21 " "txtPasteFirstName " Me.txtPasteFirstName.Location = New System.Drawing.Point(72, 88) Me.txtPasteFirstName.Name = "txtPasteFirstName" Me.txtPasteFirstName.Size = New System.Drawing.Size(136, 20) Me.txtPasteFirstName.TabIndex = 20 " "Label3 " Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(8, 112) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(54, 13) Me.Label3.TabIndex = 19 Me.Label3.Text = "Last Name" " "Label4 " Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(8, 88) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(53, 13) Me.Label4.TabIndex = 18 Me.Label4.Text = "First Name" " "btnCopy " Me.btnCopy.Location = New System.Drawing.Point(232, 16) Me.btnCopy.Name = "btnCopy" Me.btnCopy.Size = New System.Drawing.Size(48, 24) Me.btnCopy.TabIndex = 17 Me.btnCopy.Text = "Copy" " "txtLastName " Me.txtLastName.Location = New System.Drawing.Point(72, 32) Me.txtLastName.Name = "txtLastName" Me.txtLastName.Size = New System.Drawing.Size(136, 20) Me.txtLastName.TabIndex = 16 Me.txtLastName.Text = "Last Name" " "txtFirstName " Me.txtFirstName.Location = New System.Drawing.Point(72, 8) Me.txtFirstName.Name = "txtFirstName" Me.txtFirstName.Size = New System.Drawing.Size(136, 20) Me.txtFirstName.TabIndex = 15 Me.txtFirstName.Text = "First Name" " "Label2 " Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(8, 32) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(54, 13) Me.Label2.TabIndex = 14 Me.Label2.Text = "Last Name" " "Label1 " Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(8, 8) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(53, 13) Me.Label1.TabIndex = 13 Me.Label1.Text = "First Name" " "Form1 " Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(288, 139) Me.Controls.Add(Me.btnPaste) Me.Controls.Add(Me.txtPasteLastName) Me.Controls.Add(Me.txtPasteFirstName) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.btnCopy) Me.Controls.Add(Me.txtLastName) Me.Controls.Add(Me.txtFirstName) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label1) Me.Name = "Form1" Me.Text = "CopyPasteStudent" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents btnPaste As System.Windows.Forms.Button Friend WithEvents txtPasteLastName As System.Windows.Forms.TextBox Friend WithEvents txtPasteFirstName As System.Windows.Forms.TextBox Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents btnCopy As System.Windows.Forms.Button Friend WithEvents txtLastName As System.Windows.Forms.TextBox Friend WithEvents txtFirstName As System.Windows.Forms.TextBox Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label
End Class
</source>