vb.net 图片复制剪切粘贴多种实例代码和每行备注

以下是VB.NET中实现图片复制、剪切和粘贴的多种实例代码及每行备注：

1. 复制图片到剪贴板

' 创建一个位图对象
Dim bmp As New Bitmap("image.jpg")

' 将位图对象复制到剪贴板
Clipboard.SetImage(bmp)

2. 从剪贴板中获取图片

' 检查剪贴板中是否有图片
If Clipboard.ContainsImage Then
    ' 从剪贴板中获取图片
    Dim img As Image = Clipboard.GetImage()

    ' 在PictureBox中显示图片
    PictureBox1.Image = img
End If

3. 剪切图片到剪贴板

' 创建一个位图对象
Dim bmp As New Bitmap("image.jpg")

' 将位图对象剪切到剪贴板
Clipboard.SetImage(bmp)

' 删除原始文件
File.Delete("image.jpg")

4. 从剪贴板中粘贴图片

' 检查剪贴板中是否有图片
If Clipboard.ContainsImage Then
    ' 从剪贴板中获取图片
    Dim img As Image = Clipboard.GetImage()

    ' 在PictureBox中显示图片
    PictureBox1.Image = img

    ' 将图片保存到文件
    img.Save("image.jpg")
End If

5. 拖放图片到PictureBox中

' 启用PictureBox的拖放功能
PictureBox1.AllowDrop = True

Private Sub PictureBox1_DragEnter(sender As Object, e As DragEventArgs) Handles PictureBox1.DragEnter
    ' 检查拖放的数据格式是否为图片
    If e.Data.GetDataPresent(DataFormats.Bitmap) Then
        ' 允许拖放操作
        e.Effect = DragDropEffects.Copy
    Else
        ' 禁止拖放操作
        e.Effect = DragDropEffects.None
    End If
End Sub

Private Sub PictureBox1_DragDrop(sender As Object, e As DragEventArgs) Handles PictureBox1.DragDrop
    ' 获取拖放的图片
    Dim img As Image = e.Data.GetData(DataFormats.Bitmap)

    ' 在PictureBox中显示图片
    PictureBox1.Image = img

    ' 将图片保存到文件
    img.Save("image.jpg")
End Sub