图片浏览器Word下载.docx
《图片浏览器Word下载.docx》由会员分享,可在线阅读,更多相关《图片浏览器Word下载.docx(10页珍藏版)》请在冰豆网上搜索。
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.List(n))
EndIf
EndSub
PrivateSubxiayi_Click()
n=n+1
Ifn>
=File1.ListCountThen
n=0
盘符,文件夹和文件列表的确定:
代码如下
PrivateSubDrive1_Change()
Dir1.Path=Drive1.Drive
PrivateSubDir1_Change()
File1.Path=Dir1.Path
PrivateSubFile1_Click()
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
图片缩小的确定,代码如下
PrivateSubsuo_Click()
Image1.Width=Image1.Width/1.2
Image1.Height=Image1.Height/1.2
图片可以无限制的方的和缩小,是图片浏览器的可操作性大大增加,而且,在图片显示时,磁盘驱动器,文件列表和文件列表的隐藏使浏览器优视程度增加,达到使浏览者舒心愉快的目的。
该程序虽然与系统的图片浏览器相似,但是,没有系统浏览器那么友好的界面和那么精巧的控件。
主要界面截图
总结
通过几天的课程实验,使我对于VB课程的实验和课程设计有了更深层次的了解,特别是明白了文件查看和图片操作的用法。
在老师的指导帮助下和自己的努力工作下,终于完成了程序设计课题,实现了图片浏览器的操作。
VB的课程设计,对于我们来说是一次历练,它提升了我们的编程水平。
几天的上机操作,使我们掌握了更多的VB知识,而且我们在编程期间,学会了协作,团结,为我们积累了资本。
总之,这次课程设计使我受益匪浅,我将会继续学习VB知识,提高水平。
完整的源程序
Label1.Visible=False
Label2.Visible=False
Label3.Visible=False
PrivateSubForm_Load()
File1.Pattern="
*.bmp;
*.ico;
*.cur;
*.gif;
*.jpg"
PrivateSubImage1_Click()
PrivateSubdingwei_Click()
Image1.Visible=True
Drive1.Visible=True
Dir1.Visible=True
File1.Visible=True
Label1.Visible=True
Label2.Visible=True
Label3.Visible=True
PrivateSubtuichu_Click()
DimexAsString
ex=MsgBox("
您真的要退出图片浏览?
"
vbYesNo+vbQuestion+vbDefaultButton1)
Ifex=vbYesThen
End
参考文献
[1]刘瑞新.《VisualBasic程序设计教程》.北京:
机械工业出版社,2003
[2]龚沛曾《VisualBasic程序设计教程》高等教育出版社2007
[3]朱从旭《VisualBasic程序设计综合教程》清华大学出版社