data7.dat

学习VB的经典资料 vb一点通 看后很快就会了 初学者的帮手

拖放的概念


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


启动拖放的方法有两种： 
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返回鼠标相对于该控件的位置。