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

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

《面向对象程序设计实验》

指导书

实验日期

实验1 11.20

实验2 ：11.27

实验3：12.4

适应专业：通信工程06级~08级

学 时：16

执 笔 人：杨崇

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

实验一制作图片浏览器

一 实验目的：学习并掌握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)未知，因此，为了在限定显示区内显示全部图片信息，应该考虑图像自身高宽比与显示区高宽比的关系，它们的比例关系有如下两种情况，见下图：

显示区

图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 ‘取得图像框即显示区域的高宽比

If WHP >= WHF Then 判断，若图片框高宽比大于或等于图像框高宽比 Image1.Width = Picture1.Width

Image1.Height = Image1.Width / WHP ‘调整图片框宽度和高度参数

Else ‘否则，若图片框高宽比小于图像框高宽比 Image1.Height = Picture1.Height

Image1.Width = Image1.Height * WHP ‘调整图片框宽度和高度参数

End If

Image1.Top = (Picture1.Height - Image1.Height) / 2

Image1.Left = (Picture1.Width - Image1.Width) / 2 ‘居中调整图片框

Image1.Stretch = True ‘拉伸图片到合适大小

Image1.Visible = True ‘显示图片

四、实验步骤

1 新建工程，名称自拟。

2 添加一个窗体，名称自拟。

3 添加六个Command控件，名称自拟。添加一个Timer控件，设置它的Interval属性为1000。 4 添加一个PictureBox控件，然后再将一个Image控件添加到PictureBox控件上。 5 添加一个DriveListBox控件，一个DirListBox控件，一个FileListBox控件。

6 在DriveListBox控件、DirListBox控件的Change事件中填写代码使三个文件系统控件实

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

现连接互动。在FileListBox控件的Click事件中填写加载图片文件以及位置调整的代码。 7 将六个Command控件的Caption属性分别设置为：“上一个”、“下一个”、“自动播放”、“停止”、“放大”、“缩小”，并在对应的Click事件中填写相关处理代码。

8 选定菜单->文件->保存工程选项，保存工程后，按F5调试程序。

9 打包，发布，异地安装并运行该程序。

10 代码部分自主编写，可参考实验课示例代码。其他可扩展部分自拟，功能应丰富，不拘泥于教师课堂讲授的内容。

五、实验中应注意的问题与思考题：

1 当图片大小小于显示区间时，应使用原来大小现实图片，避免失真。

2 如何保证文件列表控件显示的文件都是可显示文件类型？

3 当加载文件为非法格式时，程序将出错中断，应怎样处理？

4 如何设置慢速自动浏览，快速自动浏览及自定义浏览速度？

5 应用程序界面自行定义，美观大方，不拖沓。

六、实验报告内容：

1 实验原理与要求

2 实验步骤截图

3 程序源代码

4 实验结果截图

5 实验中遇到的问题及解决方案。

6 回答思考题。

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

实验二 制作圆盘式时钟

一 实验目的：

通过实验了解并掌握Visua Basic坐标系统的特征和开发技巧，了解并掌握Timer 控件和Line、Shape控件的使用方法。培养解决实际问题时数学建模能力。

二 实验内容：

利用Timer 控件和Line、Shape等控件利用制作一个圆盘式时钟。要求时钟的初始化时间与系统时间相 …… 此处隐藏：2850字，全部文档内容请下载后查看。喜欢就下载吧 ……