vb.net - 如何在VS 2012中使拖放对象实时移动，带有边框等

Question

我创建了一个简单的拖放实验，它基本上可以正常工作，将标签 1 移动到标签 2 上并更改文本

但是，您看不到实际的标签移动，当鼠标到达标签 2 上时，您会看到一个带有加号的箭头。无论如何，是否可以物理拾起对象并看到它实际移动。

Public Class Form1
    Private Sub Label2_DragDrop(sender As Object, e As DragEventArgs) Handles Label2.DragDrop
        Label2.Text = e.Data.GetData(DataFormats.Text).ToString
    End Sub
    Private Sub Label2_DragEnter(sender As Object, e As DragEventArgs) Handles Label2.DragEnter
        e.Effect = DragDropEffects.Copy
    End Sub
    Private Sub Label1_MouseDown(sender As Object, e As MouseEventArgs) Handles Label1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Label1.DoDragDrop(Label1.Text, DragDropEffects.Copy Or DragDropEffects.Move)
        End If
    End Sub
End Class

标签： vb.netvisual-studio-2012drag-and-drop