form1.vb

《新编VB.NET 2005程序设计从入门到精通》源码 网上找的

Public Class Form1

    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
        Try
            '往剪贴板上存放数据 
            Clipboard.SetDataObject(pictureBox1.Image)
        Catch excep As Exception
            MessageBox.Show(excep.ToString(), "出错", MessageBoxButtons.OK, MessageBoxIcon.[Error])
        End Try
    End Sub

    Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
        Try
            '获取剪贴板数据 
            Dim dataObject As IDataObject = Clipboard.GetDataObject()
            '查询其中的Bitmap数据 
            Dim data As Object = dataObject.GetData(GetType(Bitmap))
            '如果有Bitmap数据 
            If data IsNot Nothing Then
                '把它赋给类成员bitmap 
                pictureBox1.Image = DirectCast(data, Bitmap)
                '刷新窗口 
                Me.Invalidate(Me.ClientRectangle)
            End If
        Catch excep As Exception
            MessageBox.Show(excep.ToString(), "出错", MessageBoxButtons.OK, MessageBoxIcon.[Error])
        End Try
    End Sub
End Class