vb实现用鼠标拖动大图像以完整查看整个图像
当我们打开某些网页时，我们可能会遇到一些很大的图片，这时，一般网站会提供一种功能，当我们的鼠标点住图像的时候，就可以拖动图像，以完整查看整个图像。现在，我用vb模仿了这种功能。
下载地址
用户评论
有用，虽然移动很生涩，但也不失为一个应急的解决方案，我给他改了一下，可以让图片不会移出去，最大拖动不超过图片本身的边界
对于初级者可能有点用，同意
真的正如楼上所说，有点名不符实，但奉献精神还是可嘉的。
代码也太少了吧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
同意楼上的，没什么大的参考价值