图片浏览器.docx
《图片浏览器.docx》由会员分享，可在线阅读，更多相关《图片浏览器.docx（10页珍藏版）》请在冰豆网上搜索。
图片浏览器
沈阳航空航天大学
课程设计
学号2009040302079
班级94030203
姓名高升
指导教师王晓岩
2011年3月15日
沈阳航空航天大学
课程设计任务书
学院：
航空宇航工程专业：
飞行器制造工程班级：
94030203
学号：
2009040302079题目：
图片浏览器
一、课程设计时间
2011年3月7~11日（第1周），共计1周，20学时。
二、课程设计内容
能够对指定文件夹中的图片按照顺序一一浏览。
能够浏览的图片格式至少包括.bmp和.jpg两种。
三、课程设计要求
程序质量：
✧贯彻事件驱动的程序设计思想。
✧用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。
✧用户界面中的菜单（或命令按钮）至少应包括“定位文件夹”、“上一个图片”、“下一个图片”、“退出”4项。
✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。
课程设计说明书：
✧课程结束后，上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师：
________学生签名：
________
五、成绩
六、教师评语
目录
需求分析4
设计分析4
技术要点7
主要界面截图9
总结10
完整的源程序11
参考文献14
需求分析
所做图片浏览器要有顺序浏览的功能，能够定位文件，为方便用户查看文件，还需添加图片放大缩小功能。
要使浏览器界面简洁，用菜单编辑器使控件整齐划一。
要有退出功能。
具体设计任务为：
（1）定位文件，当点击文件时，显示图片，然后使驱动列表隐藏。
（2）放大与缩小，文件可以随意放大，可以随意缩小。
（3）上一张与下一张，使文件可以顺序浏览，点击图片时，显示下一张图片。
（4）退出，有退出对话框。
设计分析
（1）概述：
本程序是在借鉴了WINDOWS系统自带的图片浏览器的基础之上经过VB加工和处理而生成的图片浏览器。
它具有系统图片浏览器的部分基本功能。
而且，和系统中图片浏览器的功能非常相似，使用起来方便灵活，生动直观。
（2）总体设计：
（3）详细设计：
程序框图
技术要点
该图片浏览器有一个菜单，有盘符，文件夹和文件列表，还有一个Image框，布局合理！
图片浏览器中的定位文件菜单可以查找文件中的图片。
图片浏览器运行之后，盘符，文件夹和文件列表驱动器就会出现，查找到图片之后就会再次隐藏，而图片就会出现。
点击下一张，则运用Listindex和ListCount使文件循环打开。
当浏览至最后一张时，使n=0将n赋值给Image1.ListIndex，从而于第一张图片开始。
点击上一张时，同样道理使n=Image1.ListCount，从最后一张图片重新浏览。
PrivateSubshangyi_Click（）
n=File1.ListIndex
n=n-1
Ifn<0Then
n=n+File1.ListCount
File1.ListIndex=n
Image1.Picture=LoadPicture（File1.Path&"\"&File1.FileName）
Else
File1.ListIndex=n
Image1.Picture=LoadPicture（File1.Path&"\"&File1.List（n））
EndIf
EndSub
PrivateSubxiayi_Click（）
n=File1.ListIndex
n=n+1
Ifn>=File1.ListCountThen
n=0
File1.ListIndex=n
Image1.Picture=LoadPicture（File1.Path&"\"&File1.List（n））
Else
File1.ListIndex=n
Image1.Picture=LoadPicture（File1.Path&"\"&File1.FileName）
EndIf
EndSub
盘符，文件夹和文件列表的确定：
代码如下
PrivateSubDrive1_Change（）
Dir1.Path=Drive1.Drive
EndSub
PrivateSubDir1_Change（）
File1.Path=Dir1.Path
EndSub
PrivateSubFile1_Click（）
Image1.Picture=LoadPicture（File1.Path&"\"&File1.FileName）
EndSub
图片显示时，盘符，文件夹和文件列表隐藏，代码如下
Drive1.Visible=False
Dir1.Visible=False
File1.Visible=False
图片放大的确定，代码如下
PrivateSubfang_Click（）
Image1.Stretch=True
Image1.Width=Image1.Width*1.2
Image1.Height=Image1.Height*1.2
Image1.Left=（Form1.ScaleWidth-Image1.Width）/2
EndSub
图片缩小的确定，代码如下
PrivateSubsuo_Click（）
Image1.Stretch=True
Image1.Width=Image1.Width/1.2
Image1.Height=Image1.Height/1.2
Image1.Left=（Form1.ScaleWidth-Image1.Width）/2
EndSub
图片可以无限制的方的和缩小，是图片浏览器的可操作性大大增加，而且，在图片显示时，磁盘驱动器，文件列表和文件列表的隐藏使浏览器优视程度增加，达到使浏览者舒心愉快的目的。
该程序虽然与系统的图片浏览器相似，但是，没有系统浏览器那么友好的界面和那么精巧的控件。
主要界面截图
总结
通过几天的课程实验，使我对于VB课程的实验和课程设计有了更深层次的了解，特别是明白了文件查看和图片操作的用法。
在老师的指导帮助下和自己的努力工作下，终于完成了程序设计课题，实现了图片浏览器的操作。
VB的课程设计，对于我们来说是一次历练，它提升了我们的编程水平。
几天的上机操作，使我们掌握了更多的VB知识，而且我们在编程期间，学会了协作，团结，为我们积累了资本。
总之，这次课程设计使我受益匪浅，我将会继续学习VB知识，提高水平。
完整的源程序
PrivateSubDrive1_Change（）
Dir1.Path=Drive1.Drive
EndSub
PrivateSubDir1_Change（）
File1.Path=Dir1.Path
EndSub
PrivateSubFile1_Click（）
Image1.Picture=LoadPicture（File1.Path&"\"&File1.FileName）
Drive1.Visible=False
Dir1.Visible=False
File1.Visible=False
Label1.Visible=False
Label2.Visible=False
Label3.Visible=False
EndSub
PrivateSubForm_Load（）
File1.Pattern="*.bmp;*.ico;*.cur;*.gif;*.jpg"
EndSub
PrivateSubImage1_Click（）
Drive1.Visible=False
Dir1.Visible=False
File1.Visible=False
Label1.Visible=False
Label2.Visible=False
Label3.Visible=False
n=File1.ListIndex
n=n+1
Ifn>=File1.ListCountThen
n=0
File1.ListIndex=n
Image1.Picture=LoadPicture（File1.Path&"\"&File1.List（n））
Else
File1.ListIndex=n
Image1.Picture=LoadPicture（File1.Path&"\"&File1.FileName）
EndIf
EndSub
PrivateSubfang_Click（）
Image1.Stretch=True
Image1.Width=Image1.Width*1.2
Image1.Height=Image1.Height*1.2
Image1.Left=（Form1.ScaleWidth-Image1.Width）/2
EndSub
PrivateSubsuo_Click（）
Image1.Stretch=True
Image1.Width=Image1.Width/1.2
Image1.Height=Image1.Height/1.2
Image1.Left=（Form1.ScaleWidth-Image1.Width）/2
EndSub
PrivateSubshangyi_Click（）
n=File1.ListIndex
n=n-1
Ifn<0Then
n=n+File1.ListCount
File1.ListIndex=n
Image1.Picture=LoadPicture（File1.Path&"\"&File1.FileName）
Else
File1.ListIndex=n
Image1.Picture=LoadPicture（File1.Path&"\"&File1.List（n））
EndIf
EndSub
PrivateSubxiayi_Click（）
n=File1.ListIndex
n=n+1
Ifn>=File1.ListCountThen
n=0
File1.ListIndex=n
Image1.Picture=LoadPicture（File1.Path&"\"&File1.List（n））
Else
File1.ListIndex=n
Image1.Picture=LoadPicture（File1.Path&"\"&File1.FileName）
EndIf
EndSub
PrivateSubdingwei_Click（）
Image1.Visible=True
Drive1.Visible=True
Dir1.Visible=True
File1.Visible=True
Label1.Visible=True
Label2.Visible=True
Label3.Visible=True
EndSub
PrivateSubtuichu_Click（）
DimexAsString
ex=MsgBox（"您真的要退出图片浏览？
",vbYesNo+vbQuestion+vbDefaultButton1）
Ifex=vbYesThen
End
EndIf
EndSub
参考文献
[1]刘瑞新．《VisualBasic程序设计教程》．北京：
机械工业出版社，2003
[2]龚沛曾《VisualBasic程序设计教程》高等教育出版社2007
[3]朱从旭《VisualBasic程序设计综合教程》清华大学出版社
升级会员 