毕竟鼠标挪动的时候不是直线 ,是曲线,就会 这样,
MouseMove
If e.Button = MouseButtons.Left Then
If e.Sender.name.StartsWith("draw_label_") Then
If e.Sender.name = vars("mdlable") Then
e.Sender.left += e.x-vars("lx")
e.Sender.top += e.y-vars("ly")
Dim ar() As String = vars("mdlable").split("_")
Dim c = e.Form.controls(ar(3))
Select Case ar(2)
Case "7" '7lb左中
e.Form.controls(ar(0) & "_" & ar(1) & "_" & ar(2) & "_" & ar(3)).Top= c.Top
c.Width+ = vars("lx") - e.x
c.left = e.Sender.left
此主题相关图片如下:qq图片20180227163333.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2018-2/201822716333779290.png)
[此贴子已经被作者于2018/2/27 16:35:21编辑过]