以下是引用实话实说在2018/2/8 20:34:00的发言:
再咨询:29楼的打印窗口(不是设计窗口)可以调整每个控件的位置吗?即让用户自行调整
mousedown
If e.Button = MouseButtons.Left Then
' If e.Sender.Name.StartsWith("Test") Then
vars("x") = e.X
vars("y") = e.Y
' vars("currCtl") = e.Sender.Name
e.sender.basecontrol.BringToFront
' End If
End If
mousemove事件
If e.Button = MouseButtons.Left Then
' If e.Sender.Name.StartsWith("Test") Then
e.Sender.Left += e.x - vars("x")
e.Sender.top += e.y - vars("y")
' End If
End If