拖放的概念

拖放是用鼠标拖放一个对象并把它放在窗体或其它对象上的活动。当我们在一个控件上按下鼠标键并移动的活动称为拖动，释放鼠标键时称为放下。
[注]：某些残疾人士不能执行拖放的任务，因此，拖放不应该是实现一个任务的唯一方法。你应该提供一种使用键盘、按钮或菜单命令的替代方法。
启动、结束拖放

启动拖放的方法有两种：
1.将拖放源控件拖放属性设置为自动方式。
XXXX.DragMode=vbAutomatic
[注]：当一个控件被设置为自动拖放时，它不再响应鼠标事件，如：Click事件。
2.手工拖放。
缺省情况下，控件的DragMode属性为vbManual，即手工拖放。
我们通常在源控件的MouseDown事件中调用Drag方法手工地启动拖放。
XXXX.Drag vbBeginDrag
结束拖放也有两种方法：
1.调用Drag方法。
XXXX.Drag vbEndDrag
2.当我们抬起鼠标键时总是停止拖放。
与拖放有关的源控件

属性：
DragMode 用于设置拖放方式。
=vbManual手工拖放。
=vbAutomatic自动拖放。
DragIcon 表示拖放时显示的图标。
通常我们使用LoadPicture函数读取图片。
XXXX.DragIcon=LoadPicture("C:\sample.ico")
方法：
Drag 启动或停止拖放。
事件：
MouseDown 在按下鼠标键时发生。
通常我们在该事件中启动拖放。
Sub XXXX_MouseDown()
XXXX.Drag vbBeginDrag
End Sub
与拖放有关的目标控件

事件：
DragOver 当源控件在目标控件上拖动时发生。
Sub XXXX_DrageOver(Source As Control, X As Single, Y As Single, State As Integer)
.....
End Sub
参数：
Source 返回哪一个控件拖放到该控件上X,Y返回鼠标相对于该控件的位置。
State 表示拖放是进入控件还是离开控件。
=vbEnter进入控件。
=vbLeave离开控件。
事件：
DragDrop 当把源控件拖到目标控件并松开鼠标键时发生。
Sub XXXX_DrageDrop(Source As Control, X As Single, Y As Single)
.....
End Sub
参数：
Source 返回哪一个控件拖放到该控件上X,Y返回鼠标相对于该控件的位置。