友情提示:同学您好,此页面仅供预览,在此页面学习不会被统计哦! 请进入学习空间后选择课程学习。

        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