VB.Net剪貼板實(shí)例 代碼如下：

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetText.Click
        '將文本框中的數(shù)據(jù)引入到剪貼板
        My.Computer.Clipboard.SetData(DataFormats.Text.ToString(), TextBox1.Text)
    End Sub

    Private Sub btnGetIMG_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetImage.Click
        Dim clipboardImage As Image

        clipboardImage = My.Computer.Clipboard.GetImage()
        PictureBox1.Image = clipboardImage
    End Sub

'更多vb.net源代碼和實(shí)例，請(qǐng)關(guān)注樂博網(wǎng)lob.cn

    Private Sub btnSetImage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetImage.Click
        '將圖片框中的數(shù)據(jù)復(fù)制到剪貼板
        My.Computer.Clipboard.SetData(DataFormats.Bitmap.ToString(), PictureBox1.Image)
    End Sub

    Private Sub btnGetText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetText.Click
        TextBox1.Text = My.Computer.Clipboard.GetData(DataFormats.Text.ToString()).ToString()
    End Sub
End Class