VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 图像在图片框中的滚动
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:9739, 日期:2000-11-05
图像在图片框中的滚动
2000-10-18 11:01:30  

--------------------------------------------------------------------------------


在VB中可以用图片框来显示图像,若图片框放不下整个图像,通常只能显示图像的一部分,但是图片框没有提供滚动控制,无法浏览图像的其余部分。其实通过VB所提供的工具,可以非常方便地构造出图片框的滚动控制。其思想是提供一个显示区域和一整个图像区,将后者装在前者区域内,当用户改变滚动条位置时,通过程序来改变图像区的Top和Left的值,达到滚动图像的目的。具体操作如下:
新建一个标准EXE工程,在窗体上放置一个图片框Picture1,在Picture1上放置图片框Picture2,将两者的尺寸设为相同,可通过复制、粘贴实现,将Picture1的Autosize设为False,将Picture2的Autosize设为True,再放置垂直、水平滚动条各一个,设计窗体显示如下:

在Picture2中装入要显示的图像,因其Autosize属性为True,所以Picture2的尺寸即为图像的尺寸,Picture2.scalewidth减去Picture1.scalewidth的大小即为Hscroll1的Max值,Picture2.scaleheight减去Picture1.scaleheight的大小即为Vscroll1的Max值,Min值均设为0,在 Vscroll1的Change和Scroll事件中添加如下代码:Picture2.top=-vscroll1.value,在Hscroll1的 Change和Scroll事件中添加如下代码:Picture2.left=-hscroll1.value,将滚动条的Smallchange和 Largechange设为你认为合适的值,按F5运行程序,你就可以通过滚动条来方便地浏览整个图像了。