VB课程设计实验报告图片浏览器.docx
- 文档编号:13292130
- 上传时间:2023-06-12
- 格式:DOCX
- 页数:11
- 大小:833.46KB
VB课程设计实验报告图片浏览器.docx
《VB课程设计实验报告图片浏览器.docx》由会员分享,可在线阅读,更多相关《VB课程设计实验报告图片浏览器.docx(11页珍藏版)》请在冰点文库上搜索。
VB课程设计实验报告图片浏览器
VB课程设计报告
课程设计题目:
图片浏览器
一.内容摘要
本程序是在借鉴了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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 课程设计 实验 报告 图片 浏览器