vb实现用鼠标拖动大图像，，以完整查看整个图像

时间：2014-02-16 21:57:18
【文件属性】：

文件名称：vb实现用鼠标拖动大图像，，以完整查看整个图像

文件大小：8KB

文件格式：RAR

更新时间：2014-02-16 21:57:18

vb 界面 图像

当我们打开某些网页时，我们可能会遇到一些很大的图片，这时，一般网站会提供一种功能，当我们的鼠标点住图像的时候，就可以拖动图像，以完整查看整个图像。现在，我用vb模仿了这种功能。

立即下载

【文件预览】：
拖动显示完整图像
----Form1.frm(2KB)
----工程1.vbp(568B)
----MSSCCPRJ.SCC(190B)
----Form1.frx(633KB)
----工程1.vbw(49B)

网友评论

  • 有用，虽然移动很生涩，但也不失为一个应急的解决方案，我给他改了一下，可以让图片不会移出去，最大拖动不超过图片本身的边界
  • 对于初级者可能有点用，同意
  • 真的正如楼上所说，有点名不符实，但奉献精神还是可嘉的。
  • 代码也太少了吧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
  • 同意楼上的，没什么大的参考价值
  • 确实只是改变位置而已
  • 确实只是改变位置而已，对于初级者可能有点用
  • 写的很差，基本没有参考价值。只是单纯的改变图片框的位置，界面就会变的很丑。

相关文章