代码也太少了吧Public XX As Single, YY As Single
Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
XX = X
YY = Y
End Sub
Private Sub Picture2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
a = X - XX
b = Y - YY
Picture2.Left = Picture2.Lef
有用，虽然移动很生涩，但也不失为一个应急的解决方案，我给他改了一下，可以让图片不会移出去，最大拖动不超过图片本身的边界
对于初级者可能有点用，同意
真的正如楼上所说，有点名不符实，但奉献精神还是可嘉的。
代码也太少了吧Public XX As Single, YY As Single Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) XX = X YY = Y End Sub Private Sub Picture2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) a = X - XX b = Y - YY Picture2.Left = Picture2.Lef
同意楼上的，没什么大的参考价值