《面向对象程序设计实验》指导书.docVIP

《面向对象程序设计实验》 指导书 实验日期 实验1 11.20 实验2 ：11.27 实验3：12.4 适应专业：通信工程06级~08级 学 时：16 执 笔 人：xxx 实验一制作图片浏览器 一 实验目的：学习并掌握Visual Basic基本控件的使用，学习并掌握Visual Basic6.0的基本语法规则，理解并掌握容器的概念，掌握面向对象编程的基本原理与方法。 二 实验内容： 利用PicturBoxe、Image控件结合文件系统空间制作支持多种静态图片文件格式的浏览器。 三 实验原理： Visual Basic6.0支持几乎全部的图片格式，包括BMP，JPG GIF ，CUR，ICO等格式，通过文件系统控件可以访问到全部本地磁盘、软盘、光盘、移动存储设备以及局域网内用油访问权限的逻辑磁盘上的文件，通过利用FileListBox 控件的文件过滤功能，将可显示的图片罗列出来后在Image控件中进行显示。 PictureBox控件是一款用来加载和处理图片的控件，它不仅仅可以用来显示图片，而且可以加载上面的图片进行更高级的编辑，如按位操作、像素级图像处理等，PictureBox拥有独立的坐标系统，可作为容器来加载其他控件。 Image控件是一款专门用来显示图片的控件，它可以显示全部图像格式，同时由于具备Stretch属性，可以使图像按照Image控件的二维视图区域进行显示，又由于该控件占用的内存空间比PictureBox控件小得多，因此在不对图像进行处理的场合下应优先选择。 加载图像使用VB自带的LoadPicture函数，它的引用方法为： Picture1.picture=LoadPicture (Pathname) Image1.picture= LoadPicture (Pathname) 其中Picture1为图片框控件PictureBox的对象引用名称，Image1为图像框控件Image的对象引用名称。 Pathname为图片文件的路径。 由于本实验仅仅涉及图片的浏览，因此建议使用Image控件。同时，显示过程中为了保证图像显示的完整性，应该使Image控件的大小符合图片自身的大小，在支持缩放时，图片的高和宽两项参数应该按比例同时发生变化。 在显示图片时，首先应该将Image控件的Visible属性设置为False，Stretch属性设置为False，此时，Image控件不可见，同时，加载图片后，Image控件的大小与图片的原始大小相同。为了适应显示窗口，需要选择具有独立坐标系统的PictureBox控件作为显示区，并要求Image控件在PictureBox的限定范围内显示全部的图像信息。 由于图片的自身大小各异，高宽比(Height/Width)未知，因此，为了在限定显示区内显示全部图片信息，应该考虑图像自身高宽比与显示区高宽比的关系，它们的比例关系有如下两种情况，见下图： 显示区 显示区 图1 图2 在图1中，图片的高宽比小于显示区的高宽比，此时，为了显示全部图像信息，应将图片的高度等同于显示区的高度，而宽度则按比例做适应性调整。 在图2中，图片的高宽比大于显示区的高宽比，此时，为了显示全部图像信息，应将图片的宽度等同于显示区的宽度，而高度则按比例做适应性调整。 当然，若图片与显示区高宽比相同，则按上述两种情况之一执行即可。当图片的大小小于显示区，可直接进行显示不必进行调整。 另外，在对图片进行浏览、缩放时需要对图片进行居中调整，可使显示效果更加美观。 图片的TOP属性＝（显示区域高度－图片高度）／2 图片Left属性＝（显示区域宽度－图片宽度）／2 具体示例代码如下： Dim WHP As Single ‘定义图片框控件高宽比的变量 Dim WHF As Single ‘定义图像框控件（显示区域）高宽比的变量 Image1.Visible = False ‘设置图片框不可见，避免显示抖动 Image1.Stretch = False ‘设置图片框大小等同于随图片大小 Image1.Picture = LoadPicture(Pathname) ‘加载图片到图片框 WHP = Image1.Width / Image1.Height ‘取得图片框即原始图像的高宽比 WHF = Picture1.Width / Picture1.Height ‘取得图像框即显示区域的高宽比