如何将桌面或者文件夹中的图片拖拽到窗体或控件上呢?这就需要用到AllowDrop属性了。废话不多说,直接上源码,里面我注释的非常详细,相信大家一目了然。
'********************************************************************** '作者:章鱼哥,QQ:3107073263 群:309816713 '如有不懂的或者需要更多源程序的请联系我 '主要内容: ' 本例子主要讲述AllowDrop 属性的使用,在默认的情况下,该属性为false 这里要设置true ' 本文以form窗体为例,该方法同样适用于button\panel等具有AllowDrop属性的控件 '实现功能 ' 将一个图片文件鼠标拖到控件上时,该图片会以拖拽点为起点,在控件上显示图片 '********************************************************************** Public Class Form1 Dim picture As Image '定义一个image变量,保存拖拽的图片 Dim picturelocation As New Point '保存图片的起点位置坐标 '***************************************************************** '在控件的三个事件中分别调用函数。分别是paint事件、DragEnter事件、DragDrop事件 '函数分别是 DrawingImage()、Drag_Enter()、Drag_Drop() 这三个函数具有通用性,读者可以在任意控件的上述三个事件中分别调用 '具体代码和注释如下: '***************************************************************************** '窗体的paint事件 Private Sub Form1_Paint(ByVal sender As System.Object,ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint DrawingImage(e) '绘制图片函数 End Sub '窗体DragEnter事件 Private Sub Form1_DragEnter(ByVal sender As System.Object,ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter Drag_Enter(e) '过滤拖拽文件函数, End Sub '窗体DragDrop事件 Private Sub Form1_DragDrop(ByVal sender As System.Object,ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop Drag_Drop(sender,e) '提取图片和坐标函数 End Sub '绘制图片函数,将获取图片绘制到控件中 Private Sub DrawingImage(ByVal e As System.Windows.Forms.PaintEventArgs) If picture IsNot Nothing And Not picturelocation = New Point(0,0) Then '如果获取到了图片 e.Graphics.DrawImage(picture,picturelocation) '将图片绘制到控件 End If End Sub '过滤拖拽文件函数,只接受位图和文件格式 Private Sub Drag_Enter(ByVal e As System.Windows.Forms.DragEventArgs) If e.Data.GetDataPresent(DataFormats.Bitmap) Or e.Data.GetDataPresent(DataFormats.FileDrop) Then e.Effect = DragDropEffects.Copy '将文件或位图复制到控件中,有五种选项,读者可自行测试 Else e.Effect = DragDropEffects.None '不接受拖拽的文件 End If End Sub '提取图片和坐标函数 Private Sub Drag_Drop(ByVal sender As System.Object,ByVal e As System.Windows.Forms.DragEventArgs) If e.Data.GetDataPresent(DataFormats.Bitmap) Then '如果是位图格式,直接赋值获取 picture = CType(e.Data.GetData(DataFormats.Bitmap),Image) picturelocation = sender.PointToClient(New Point(e.X,e.Y)) End If If e.Data.GetDataPresent(DataFormats.FileDrop) Then '如果是文件,获取该文件的地址,再通过地址获取图片 picture = Image.FromFile(CType(e.Data.GetData(DataFormats.FileDrop),String())(0)) 'MsgBox(CType(e.Data.GetData(DataFormats.FileDrop),String())(0)) picturelocation = sender.PointToClient(New Point(e.X,e.Y)) End If sender.Invalidate() '重绘控件,这句一定要有,它将触发paint事件 End Sub End Class
1、拖拽之前
2、拖拽之后
原文链接:https://www.f2er.com/vb/257774.html