利用.NET Framework类库中的Clipboard类,实现数据的复制(剪切)和粘贴

 "复制"操作的代码

    Private Sub copyToolStripMenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click
        If txtEditor.SelectionLength > 0 Then
            Clipboard.SetDataObject(txtEditor.SelectedText)
        End If
    End Sub

"剪切"操作部分代码

    Private Sub cutToolStripMenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
        Clipboard.SetDataObject(txtEditor.SelectedText)
        txtEditor.SelectedText = ""
    End Sub

"粘贴"操作部分代码

    Private Sub pasteToolStripMenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem13.Click
        Dim iData As IDataObject = Clipboard.GetDataObject()
        If iData.GetDataPresent(DataFormats.Text) Then
            txtEditor.SelectedText = CType(iData.GetData(DataFormats.Text), String)
        End If
    End Sub

注意：txtEditor是文本框TextBox类型

Clipboard.SetDataObject 方法:将数据放置到系统剪贴板上。

重载列表[Visual Basic]

Overloads Public Shared Sub SetDataObject(Object)将非持久性数据放置到系统剪贴板上.

Overloads Public Shared Sub SetDataObject(Object, Boolean)将数据放置在系统剪贴板上，并指定在应用程序退出后是否将数据保留在剪贴板上。调用 SetDataObject 将数据放置在剪贴板上。若要将数据的一份持久性副本放置在剪贴板上，可将 copy 参数设置为 true。 

注意   将数据以多种格式放置在剪贴板上可最大限度地确保目标应用程序（您可能不知道它的格式要求）成功地检索数据。调用 GetDataObject 来从剪贴板检索数据。数据作为实现 IDataObject 接口的对象返回。使用IDataObject 指定的方法和 DataFormats 中的字段从该对象中提取数据。如果不知道检索到的数据的格式，可调用 IDataObject 接口的 GetFormats 方法以获取存储数据所用的所有格式的列表。然后调用 IDataObject 接口的 GetData 方法，并指定您的应用程序可使用的格式。

注意   所有 Windows 应用程序共享系统剪贴板，所以当切换到另一个应用程序时，剪贴板的内容可能会发生变化。

注意   类对于它必须是可序列化的才能放在剪贴板上。

示例

下面的方法在应用程序中运行。它将文本框中所选文本数据的持久性副本放置在系统剪贴板上。此代码假定 button1、textBox1 和 textBox2 已经创建并已经放置在窗体上。