vb.net 图片复制剪切粘贴多种实例代码和每行备注
时间: 2023-09-10 10:11:30 浏览: 250
以下是VB.NET中实现图片复制、剪切和粘贴的多种实例代码及每行备注:
- 复制图片到剪贴板
' 创建一个位图对象
Dim bmp As New Bitmap("image.jpg")
' 将位图对象复制到剪贴板
Clipboard.SetImage(bmp)
- 从剪贴板中获取图片
' 检查剪贴板中是否有图片
If Clipboard.ContainsImage Then
' 从剪贴板中获取图片
Dim img As Image = Clipboard.GetImage()
' 在PictureBox中显示图片
PictureBox1.Image = img
End If
- 剪切图片到剪贴板
' 创建一个位图对象
Dim bmp As New Bitmap("image.jpg")
' 将位图对象剪切到剪贴板
Clipboard.SetImage(bmp)
' 删除原始文件
File.Delete("image.jpg")
- 从剪贴板中粘贴图片
' 检查剪贴板中是否有图片
If Clipboard.ContainsImage Then
' 从剪贴板中获取图片
Dim img As Image = Clipboard.GetImage()
' 在PictureBox中显示图片
PictureBox1.Image = img
' 将图片保存到文件
img.Save("image.jpg")
End If
- 拖放图片到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
相关推荐
![rar](https://img-home.csdnimg.cn/images/20241231044955.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![application/x-rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![application/x-rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![rar](https://img-home.csdnimg.cn/images/20241231044955.png)
![rar](https://img-home.csdnimg.cn/images/20241231044955.png)
![application/x-rar](https://img-home.csdnimg.cn/images/20210720083606.png)