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

1、VB课程设计报告课程设计题目：图片浏览器 目录VB课程设计报告1一.内容摘要3二功能描述（含流程图）32.1 流程图：32.2 图片浏览器描述（1）42.3 图片浏览器描述（2）42.4 图片浏览器描述（3）42.5 图片浏览器描述（4）42.6 图片浏览器描述（5）4三概要设计43.1 电子式图片浏览器4四详细设计54.1盘符，文件夹和文件列表的确定54.2图片显示时，盘符，文件夹和文件列表隐藏54.3 图片放大的确定54.4 图片缩小的确定54.5图片转换到上一张的确定64.6图片转换到下一张的确定6五效果及存在问题65.1程序的效果：65.2显示图片的情况：85.3：图片浏览器扩大的情况

2、：95.4图片浏览器缩小的情况：1055存在的问题10六实验心得10七参考文献11八图片浏览器程序的代码11一.内容摘要 本程序是在借鉴了WINDOWS系统自带的图片浏览器的基础之上经过VB加工和处理而生成的图片浏览器。它具有系统图片浏览器的部分基本功能。而且，和系统中图片浏览器的功能非常相似，使用起来方便灵活，生动直观。二功能描述（含流程图）2.1 流程图：开始查找图片扩大 缩小查找文件 上一张 下一张查找盘符查找文件夹图片结束 图片浏览器程序流程图 2.2 图片浏览器描述（1）该图片浏览器由五个控件，有盘符，文件夹和文件列表（没运行时是隐藏的，查找图片之后也是隐藏的），还有一个Image框

3、，布局合理！2.3 图片浏览器描述（2） 图片浏览器中的查找图片控件可以查找文件中的图片。 2.4 图片浏览器描述（3） 该图片浏览器运行之后，盘符，文件夹和文件列表出现，查找到图片之后就会再次隐藏，而图片就会出现。2.5 图片浏览器描述（4）图片浏览器中的扩大和缩小控件按钮可以控制使图片可以放大和缩小。2.6 图片浏览器描述（5）图片浏览器中的上一张和下一张的控件可以使图片可以上下翻动，与系统中的浏览器无异！ 三概要设计3.1 电子式图片浏览器该程序主要由一个图片框来显示系统的图片。把系统的图片显示在图片上。随后，电子式图片浏览器完成！四详细设计4.1盘符，文件夹和文件列表的确定 代码如下：

4、Private Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Image1.Picture = LoadPicture(File1.Path & & File1.FileName)Drive1.Visible = FalseDir1.Visible = FalseFile1.Visible = FalseEnd Sub4.2图片显示时，盘符，文件夹和文件列表隐藏 代码如下：Privat

5、e Sub Form_Load()Drive1.Visible = FalseDir1.Visible = FalseFile1.Visible = FalseEnd Sub4.3 图片放大的确定 代码如下：Private Sub Command1_Click()Image1.Stretch = TrueImage1.Width = Image1.Width * 2Image1.Height = Image1.Height * 2End Sub4.4 图片缩小的确定 代码如下：Private Sub Command2_Click()Image1.Stretch = TrueImage1.Wid

6、th = Image1.Width / 2Image1.Height = Image1.Height / 2End Sub4.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 IfEnd Sub4.6图片转换到下一张的确定 代码如下：Private Sub Command4_Click()n = File

7、1.ListIndex n = n + 1 If n File1.ListCount Then File1.ListIndex = n Image1.Picture = LoadPicture(File1.Path & & File1.List(n) End IfEnd SubPrivate Sub Command5_Click()Drive1.Visible = TrueDir1.Visible = TrueFile1.Visible = TrueEnd Sub五效果及存在问题5.1程序的效果：该程序运行能清楚的显示图片。而且，不仅可以改变图片的大小，且可以切换图片的上下张。此图片浏览器与系

8、统的图片浏览器非常相似，不会显示出系统盘符，文件夹和文件的列表！ 图片浏览器查找图片的运行情况5.2显示图片的情况： 图片的浏览情况5.3：图片浏览器扩大的情况： 图片的放大情况 5.4图片浏览器缩小的情况： 图片的缩小情况5.5存在的问题：该程序虽然与系统的图片浏览器相似，但是，没有系统图片浏览器那么友好的界面和那么精巧的控件。六实验心得 通过几天的课程实验，使我对于VB课程的实验和程序设计有了更深层次的了解，特别是明白了文件操作和图片操作的用法，在老师的指导和帮助以及自己的努力下终于完成了程序设计课题，实现了图片浏览器的操作。 VB的课程设计，对于我们来说是一个锻炼，它提升了我们的编程水平

9、。几天的上机操作，使我们学到了更多的VB知识，而且我们在编程期间，学会了协作，团结，为我们积累了资本。总之，这次课程设计让我受益匪浅，我将会继续学习VB知识，提高水平。七参考文献1.VB程序设计 莫德举，夏涛 北京邮电大学出版社2.Visual Basic程序设计综合教程 朱从旭 清华大学出版社3.Visual Basic程序设计 赵万龙 中国铁道出版社4.Visual Basic程序设计基础教程 黄学平 中国科学技术出版社八图片浏览器程序的代码Private Sub Command1_Click()Image1.Stretch = TrueImage1.Width = Image1.Widt

10、h * 2Image1.Height = Image1.Height * 2Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2 End SubPrivate Sub Command2_Click()Image1.Stretch = TrueImage1.Width = Image1.Width / 2Image1.Height = Image1.Height / 2Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2End SubPrivate Sub Command3_Click()n =

11、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) / 2End SubPrivate Sub Command4_Click()n = File1.ListIndex n = (n + 1) Mod File1.ListCount) File1.ListIndex

12、 = n Image1.Picture = LoadPicture(File1.Path & & File1.List(n)Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2End SubPrivate Sub Command5_Click()Image1.Visible = FalseDrive1.Visible = TrueDir1.Visible = TrueFile1.Visible = TrueEnd SubPrivate Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate S

13、ub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Image1.Picture = LoadPicture(File1.Path & & File1.FileName)Drive1.Visible = FalseDir1.Visible = FalseFile1.Visible = FalseImage1.Visible = TrueImage1.Top = 50Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2End Sub Private Sub Form_Load()Image1.Visible = FalseDrive1.Visible = FalseDir1.Visible = FalseFile1.Visible = FalseFile1.Pattern = *.jpg;*.gif ;*.bmpEnd SubPrivate Sub Form_Resize()Command1.Top = Form1.ScaleHeight - 800Command2.Top = Form1.ScaleHeight - 800Command3.Top = Form1.