如何将桌面或者文件夹中的图片拖拽到窗体或控件上呢?这就需要用到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() 这三个函数具有通用性,读者可以在任意控件的上述三个事件中分别调用
'具体代码和注释