Как заставить Drag and Drop Objects перемещаться в реальном времени с помощью border et c в VS 2012 - PullRequest
Новая
       30

Как заставить Drag and Drop Objects перемещаться в реальном времени с помощью border et c в VS 2012

0 голосов
/ 14 апреля 2020

Я создал простой эксперимент перетаскивания, который в принципе работает нормально, перемещая метку 1 над меткой 2 и изменяя текст

enter image description here

Однако вы не видите фактического перемещения метки, вы получаете стрелку со знаком плюс, когда мышь надвигается на Метку 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
...