Question

如何用 VB 实现拖放功能

Answer 1

拖放是用鼠标拖动一个对象到其它对象的活动。在图形操作过程中，拖放是最常用的功能之一，下面我们来看看怎样用 VB 实现拖放功能。
　　首先介绍与拖放有关的控件：
　　1.属性：DragMode 决定拖动操作的初始化是人工方式还是自动方式，DragIcon 确定在拖动过程中显示的指针的图标形状；
　　2.方法：Drag 开始，结束或取消拖动控件；
　　3.事件：MouseDown 事件发生于用户按下鼠标按钮时，DragOver 事件发生于拖动操作完成时，DragDrop 事件发生于拖动操作正在进行时。
　　然后编写一个小程序，这个程序能实现在窗口中或窗口间拖动图标的功能。建立窗口 Form1 和 Form2，在窗口中都加入 Image1，为它们设置初始显示的图片。键入以下代码(本程序在 VB5.0/6.0，Window95/98/NT4.0 环境下通过)：

　　' Form1 下程序代码为：
　　Option Explicit
　　Dim dragx As Single
　　Dim dragy As Single
　　Const BEGIN_DRAG=1
　　Private Sub Form_DragDrop(Source As Control， X As Single， Y As Single)
Image1.Picture=Source　　　'Sourse为被拖动的控件
　　 Form2.Image1.Picture=LoadPicture("")
　 　Image1.Move(X-dragx),(Y-dragy) ' X，Y为鼠标所在目标窗体或控件的当前坐标
　　End Sub
　　Private Sub Form_Load()
　　 Load Form2
　　 Form2.Show 0
　　End Sub
　　Private Sub Image1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
　　 dragx=X
　 dragy=Y
　　 Image1.Drag BEGIN_DRAG　　'开始拖动操作
　　 Image1.DragIcon = LoadPicture("按下鼠标时想显示的光标")
　　End Sub

　 ' Form2 下程序代码为：
　　Option Explicit
　　Dim dragx As Single
　　Dim dragy As Single
　　Const BEGIN_DRAG=1
　　Private Sub Form_DragDrop(Source As Control,X As Single,Y As Single)
　　 Image1.Picture=Source
　　 Form1.Image1.Picture=LoadPicture("")
　　 Image1.Move(X-dragx),(Y-dragy)
　　End Sub
　　Private Sub Image1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
　　 dragx=X
　　 dragy=Y
　　 Image1.Drag BEGIN_DRAG
　　 Image1.DragIcon=LoadPicture("按下鼠标时想显示的光标")

Answer 2

设置控件属性，在拖拉事件中编写代码