控件的拖动

 

Dim p

    Private Sub Label1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove, TextBox1.MouseMove

        '在MouseMove事件(, 检测是否持续按着鼠标左键, 如果是则更新控件的起点位置)

        If e.Button = MouseButtons.Left Then

            sender.Location = New Point(sender.Left + e.X - p.X, sender.Top + e.Y - p.Y)

        End If

    End Sub

 

    Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown

        p = New Point(e.X, e.Y)

    End Sub