VB课程设计实验报告---图片浏览器.doc

VB课程设计实验报告---图片浏览器.doc

《VB课程设计实验报告---图片浏览器.doc》由会员分享，可在线阅读，更多相关《VB课程设计实验报告---图片浏览器.doc（12页珍藏版）》请在冰点文库上搜索。

VB课程设计报告

课程设计题目：

图片浏览器

目录

VB课程设计报告 1

一.内容摘要 3

二．功能描述（含流程图） 3

2.1流程图：

3

2.2图片浏览器描述

（1） 4

2.3图片浏览器描述

（2） 4

2.4图片浏览器描述（3） 4

2.5图片浏览器描述（4） 4

2.6图片浏览器描述（5） 4

三．概要设计 4

3.1电子式图片浏览器 4

四．详细设计 5

4.1盘符，文件夹和文件列表的确定 5

4.2图片显示时，盘符，文件夹和文件列表隐藏 5

4.3图片放大的确定 5

4.4图片缩小的确定 5

4.5图片转换到上一张的确定 6

4.6图片转换到下一张的确定 6

五．效果及存在问题 6

5.1程序的效果：

6

5.2显示图片的情况：

8

5.3：

图片浏览器扩大的情况：

9

5.4图片浏览器缩小的情况：

10

5．5存在的问题 10

六．实验心得 10

七．参考文献 11

八．图片浏览器程序的代码 11

一.内容摘要

本程序是在借鉴了WINDOWS系统自带的图片浏览器的基础之上经过VB加工和处理而生成的图片浏览器。

它具有系统图片浏览器的部分基本功能。

而且，和系统中图片浏览器的功能非常相似，使用起来方便灵活，生动直观。

二．功能描述（含流程图）

2.1流程图：

开始

查找图片

扩大

缩小

查找文件

上一张

下一张

查找盘符

查找文件夹

图片

结束

图片浏览器程序流程图

2.2图片浏览器描述

（1）

该图片浏览器由五个控件，有盘符，文件夹和文件列表（没运行时是隐藏的，查找图片之后也是隐藏的），还有一个Image框，布局合理！

2.3图片浏览器描述

（2）

图片浏览器中的查找图片控件可以查找文件中的图片。

2.4图片浏览器描述（3）

该图片浏览器运行之后，盘符，文件夹和文件列表出现，查找到图片之后就会再次隐藏，而图片就会出现。

2.5图片浏览器描述（4）

图片浏览器中的扩大和缩小控件按钮可以控制使图片可以放大和缩小。

2.6图片浏览器描述（5）

图片浏览器中的上一张和下一张的控件可以使图片可以上下翻动，与系统中的浏览器无异！

三．概要设计

3.1电子式图片浏览器

该程序主要由一个图片框来显示系统的图片。

把系统的图片显示在图片上。

随后，电子式图片浏览器完成！

四．详细设计

4.1盘符，文件夹和文件列表的确定代码如下：

PrivateSubDir1_Change（）

File1.Path=Dir1.Path

EndSub

PrivateSubDrive1_Change（）

Dir1.Path=Drive1.Drive

EndSub

PrivateSubFile1_Click（）

Image1.Picture=LoadPicture（File1.Path&"\"&File1.FileName）

Drive1.Visible=False

Dir1.Visible=False

File1.Visible=False

EndSub

4.2图片显示时，盘符，文件夹和文件列表隐藏代码如下：

PrivateSubForm_Load（）

Drive1.Visible=False

Dir1.Visible=False

File1.Visible=False

EndSub

4.3图片放大的确定代码如下：

PrivateSubCommand1_Click（）

Image1.Stretch=True

Image1.Width=Image1.Width*2

Image1.Height=Image1.Height*2

EndSub

4.4图片缩小的确定代码如下：

PrivateSubCommand2_Click（）

Image1.Stretch=True

Image1.Width=Image1.Width/2

Image1.Height=Image1.Height/2

EndSub

4.5图片转换到上一张的确定代码如下：

PrivateSubCommand3_Click（）

n=File1.ListIndex

n=n-1

Ifn>=0Then

File1.ListIndex=n

Image1.Picture=LoadPicture（File1.Path&"\"&File1.List（n））

EndIf

EndSub

4.6图片转换到下一张的确定代码如下：

PrivateSubCommand4_Click（）

n=File1.ListIndex

n=n+1

Ifn

File1.ListIndex=n

Image1.Picture=LoadPicture（File1.Path&"\"&File1.List（n））

EndIf

EndSub

PrivateSubCommand5_Click（）

Drive1.Visible=True

Dir1.Visible=True

File1.Visible=True

EndSub

五．效果及存在问题

5.1程序的效果：

该程序运行能清楚的显示图片。

而且，不仅可以改变图片的大小，且可以切换图片的上下张。

此图片浏览器与系统的图片浏览器非常相似，不会显示出系统盘符，文件夹和文件的列表！

图片浏览器查找图片的运行情况

5.2显示图片的情况：

图片的浏览情况

5.3：

图片浏览器扩大的情况：

图片的放大情况

5.4图片浏览器缩小的情况：

图片的缩小情况

5.5存在的问题：

该程序虽然与系统的图片浏览器相似，但是，没有系统图片浏览器那么友好的界面和那么精巧的控件。

六．实验心得

通过几天的课程实验，使我对于VB课程的实验和程序设计有了更深层次的了解，特别是明白了文件操作和图片操作的用法，在老师的指导和帮助以及自己的努力下终于完成了程序设计课题，实现了图片浏览器的操作。

VB的课程设计，对于我们来说是一个锻炼，它提升了我们的编程水平。

几天的上机操作，使我们学到了更多的VB知识，而且我们在编程期间，学会了协作，团结，为我们积累了资本。

总之，这次课程设计让我受益匪浅，我将会继续学习VB知识，提高水平。

七．参考文献

1.《VB程序设计》莫德举，夏涛北京邮电大学出版社

2.《VisualBasic程序设计综合教程》朱从旭清华大学出版社

3.《VisualBasic程序设计》赵万龙中国铁道出版社

4.《VisualBasic程序设计基础教程》黄学平中国科学技术出版社

八．图片浏览器程序的代码

PrivateSubCommand1_Click（）

Image1.Stretch=True

Image1.Width=Image1.Width*2

Image1.Height=Image1.Height*2

Image1.Left=（Form1.ScaleWidth-Image1.Width）/2

EndSub

PrivateSubCommand2_Click（）

Image1.Stretch=True

Image1.Width=Image1.Width/2

Image1.Height=Image1.Height/2

Image1.Left=（Form1.ScaleWidth-Image1.Width）/2

EndSub

PrivateSubCommand3_Click（）

n=File1.ListIndex

n=（（File1.ListCount+（n-1））ModFile1.ListCount）

File1.ListIndex=n

Image1.Picture=LoadPicture（File1.Path&"\"&File1.List（n））

Image1.Left=（Form1.ScaleWidth-Image1.Width）/2

EndSub

PrivateSubCommand4_Click（）

n=File1.ListIndex

n=（（n+1）ModFile1.ListCount）

File1.ListIndex=n

Image1.Picture=LoadPicture（File1.Path&"\"&File1.List（n））

Image1.Left=（Form1.ScaleWidth-Image1.Width）/2

EndSub

PrivateSubCommand5_Click（）

Image1.Visible=False

Drive1.Visible=True

Dir1.Visible=True

File1.Visible=True

EndSub

PrivateSubDir1_Change（）

File1.Path=Dir1.Path

EndSub

PrivateSubDrive1_Change（）

Dir1.Path=Drive1.Drive

EndSub

PrivateSubFile1_Click（）

Image1.Picture=LoadPicture（File1.Path&"\"&File1.FileName）

Drive1.Visible=False

Dir1.Visible=False

File1.Visible=False

Image1.Visible=True

Image1.Top=50

Image1.Left=（Form1.ScaleWidth-Image1.Width）/2

EndSub

PrivateSubForm_Load（）

Image1.Visible=False

Drive1.Visible=False

Dir1.Visible=False

File1.Visible=False

File1.Pattern="*.jpg;*.gif;*.bmp"

EndSub

PrivateSubForm_Resize（）

Command1.Top=Form1.ScaleHeight-800

Command2.Top=Form1.ScaleHeight-800

Command3.Top=Form1.ScaleHeight-800

Command4.Top=Form1.ScaleHeight-800

Command5.Top=Form1.ScaleHeight-800

Command1.Left=Form1.ScaleWidth/5*3-1315

Command2.Left=Form1.ScaleWidth/5*4-1315

Command3.Left=Form1.ScaleWidth/5*1-1315

Command4.Left=Form1.ScaleWidth/5*2-1315

Command5.Left=Form1.ScaleWidth/5*5-1315

Image1.Top=50

Image1.Left=（Form1.ScaleWidth-Image1.Width）/2

EndSub

-12-