在VB中手动拖动模式要比自动拖动更加灵活方便。当DragMode=0时,可使用Drag方法在代码中启动或结束拖动操作。
<object>.Drag[action]
说明:action是一个常数或数值,指定要执行的动作

例题3:使用Drag方法重新设计例题1。
Private Sub Image1_MouseDown()
Image1.Drag vbBeginDrag
Image1.DragIcon = LoadPicture("Graphics\Icons\Dragdrop\Dragfldr.ico")
End Sub
Private Sub Image2_DragOver()
Source.DragvbEndDrag
Source.Visible = False
Image2.Picture = LoadPicture("Graphics\Icons\Office\Files03a.ico")
End Sub
Private Sub Image3_DragOver()
Source.DragvbCancel
End Sub