以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [原创]实现拖动标签控件的方法（原创）  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130578)
--  作者：mositu
--  发布时间：2019/1/25 16:43:00
--  [原创]实现拖动标签控件的方法（原创）
自己想到的一个方法，经测试可用，特分享出来，可能还可以改进。

窗口的全局事件 mousemove 事件下：

If e.Sender.name.StartsWith("Label") Then
    If e.Button = MouseButtons.left Then
        Dim x As Integer = e.Sender.Left
        Dim y As Integer = e.Sender.Top
        x = x + e.x
        y = y + e.y
        e.Sender.Left = x
        e.Sender.Top = y
    End If
End If
--  作者：有点甜
--  发布时间：2019/1/25 17:04:00
--  

 

一般结合mousedown事件处理，如

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=49697&skin=0

 

 

 
--  作者：mositu
--  发布时间：2019/1/25 17:20:00
--  
这个好，流畅，最主要鼠标在控件中位置不变，学习了。