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

VB课程设计报告

课程设计题目：图片浏览器

目录

VB课程设计报告................................................. - 1 - 一.内容摘要..................................................... - 2 - 二．功能描述（含流程图）.. (3)

2.1 流程图： (3)

2.2 图片浏览器描述（1）..................................... - 3 -

2.3 图片浏览器描述（2）..................................... - 3 -

2.4 图片浏览器描述（3）..................................... - 3 -

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显示图片的情况：......................................... - 7 -

5.3：图片浏览器扩大的情况：.................... 错误！未定义书签。

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

5．5存在的问题.............................................. - 9 - 六．实验心得.................................................... - 9 - 七．参考文献................................................... - 10 - 八．图片浏览器程序的代码....................................... - 10 -

一.内容摘要

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

统图片浏览器的部分基本功能。而且，和系统中图片浏览器的

功能非常相似，使用起来方便灵活，生动直观。

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

2.1 流程图：

图片浏览器程序流程图

2.2 图片浏览器描述（1）

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

2.3 图片浏览器描述（2）

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

2.4图片浏览器描述（3）

该图片浏览器运行之后，盘符，文件夹和文件列表出现，查找

到图片之后就会再次隐藏，而图片就会出现。

2.5图片浏览器描述（4）

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

2.6 图片浏览器描述（5）

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

三．概要设计

3.1 电子式图片浏览器

该程序主要由一个图片框来显示系统的图片。把系统的图片显示在图片上。随后，电子式图片浏览器完成！

四．详细设计

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

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()

Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName) Drive1.Visible = False

Dir1.Visible = False

File1.Visible = False

End Sub

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

Private Sub Form_Load()

Drive1.Visible = False

Dir1.Visible = False

File1.Visible = False

End Sub

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

Private Sub Command1_Click()

Image1.Stretch = True

Image1.Width = Image1.Width * 2

Image1.Height = Image1.Height * 2

End Sub

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

Private Sub Command2_Click()

Image1.Stretch = True

Image1.Width = Image1.Width / 2

Image1.Height = Image1.Height / 2

End Sub

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

Private Sub Command3_Click()

n = File1.ListIndex

n = n - 1

If n >= 0 Then

File1.ListIndex = n

Image1.Picture = LoadPicture(File1.Path & "\" & File1.List(n)) End If

End Sub

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

Private Sub Command4_Click()

n = File1.ListIndex

n = n + 1

If n < File1.ListCount Then

File1.ListIndex = n

Image1.Picture = LoadPicture(File1.Path & "\" & File1.List(n)) End If

End Sub

Private Sub Command5_Click()

Drive1.Visible = True

Dir1.Visible = True

File1.Visible = True

End Sub

五．效果及存在问题

5.1程序的效果：

该程序运行能清楚的显示图片。而且，不仅可以改变图片的大小，且可以切换图片的上下张。此图片浏览器与系统的图片浏览器非常相似，不会显示出系统盘符，文件夹和文件的列表！

图片浏览器查找图片的运行情况5.2显示图片的情况：

图片的浏览情况

图片的放大情况

图片的缩小情况

5.5存在的问题：

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

六．实验心得

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

片浏览器的操作。

VB的课程设计，对于我们来说是一个锻炼，它提升了我们的编程水平。几天的上机操作，使我们学到了更多的VB知识，而且我们在编程期间，学会了协作，团结，为我们积累了资本。总之，这次课程设计让我受益匪浅，我将会继续学习VB知识，提高水平。七．参考文献

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

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

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

4.《Visual Basic程序设计基础教程》黄学平中国科学技术出版社八．图片浏览器程序的代码

Private Sub Command1_Click()

Image1.Stretch = True

Image1.Width = Image1.Width * 2

Image1.Height = Image1.Height * 2

Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2

End Sub

Private Sub Command2_Click()

Image1.Stretch = True

Image1.Width = Image1.Width / 2

Image1.Height = Image1.Height / 2

Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2

End Sub

Private Sub Command3_Click()

n = File1.ListIndex

n = ((File1.ListCount + (n - 1)) Mod File1.ListCount)

File1.ListIndex = n

Image1.Picture = LoadPicture(File1.Path & "\" & File1.List(n))

Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2

End Sub

Private Sub Command4_Click()

n = File1.ListIndex

n = ((n + 1) Mod File1.ListCount)

File1.ListIndex = n

Image1.Picture = LoadPicture(File1.Path & "\" & File1.List(n)) Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2

End Sub

Private Sub Command5_Click()

Image1.Visible = False

Drive1.Visible = True

Dir1.Visible = True

File1.Visible = True

End Sub

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_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

End Sub

Private Sub Form_Load()

Image1.Visible = False

Drive1.Visible = False

Dir1.Visible = False

File1.Visible = False

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

End Sub

Private Sub Form_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 End Sub