这是原来的代码可以使标签移动
Private px As Single, py As Single
Private MD As Boolean
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
px = X
py = Y
MD = True
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If MD = True Then
Label1.Move Label1.Left + (X - px), Label1.Top + (Y - py)
End If
End Sub
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MD = False
End Sub
我现在想把标签限制在 (X > 2520 And X < 4560 And Y < 3840 And Y > 1320)这样的范围内,就是如果拖动超过了这个范围则无效,只能让标签在这个范围内拖动!
不行呀,一楼的试了没有哦!