Question

vb中的dragdrop 控件怎么用？？？？急急急！！！！

特别是label控件

Answer 1

　　vb中的dragdrop 控件应用于：
　　在一个完整的拖放动作（即将一个控件拖动到一个对象上，并释放鼠标按钮）完成，或使用 Drag 方法，并将其 action 参数被设置为 2 (Drop) 时，该事件发生。

　　语法：

　　Private Sub Form_DragDrop(source As
Control, x As Single, y As Single)

　　Private Sub MDIForm_DragDrop(source As
Control, x As Single, y As Single)

　　Private Sub object_DragDrop([index As Integer,]source As Control, x As Single, y As Single)
　　说明：

　　DragDrop
事件过程用来控制在一个拖动操作完成时将会发生的情况。例如，可将源控件移到一个新的位置或将一个文件从一个位置复制到另一个位置。

　　当 source 参数中可能使用多个控件时：

　　应使用 TypeOf 关键字和 If 语句一起确定与 source
表示的控件的类型。

　　应使用该控件的 Tag 属性来标识一个控件，然后使用 DragDrop 事件过程。

　　注意 应使用 DragMode 属性和 Drag
方法来指定开始拖动的方法。一旦开始拖动，可使用 DragOver 事件过程来处理位于 DragDrop 事件前面的事件。

Answer 2

DragDrop 事件示例
本例演示将一个 PictureBox 控件放到另一个 PictureBox 控件上的视觉效果。要尝试这个例子，可将代码粘贴到一个含有 3 个 PictureBox 控件的窗体声明部分。将 Picture1 和 Picture2 的 DragMode 属性设置为 1（自动）。使用 Picture 属性将位图赋值给 Picture1 和 Picture2，然后按 F5 键并将 Picture1 或 Picture2 拖到 Picture3 上。

Private Sub Picture3_DragDrop (Source As Control, X as Single, Y As Single)
If TypeOf Source Is PictureBox Then
' 将 Picture3 位图设置为与源控件相同。
Picture3.Picture = Source.Picture
End If
End Sub

追问

假如我要实现两个控件的交换呢

追答

自己琢磨吧