VB课程设计实验报告---图片浏览器
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
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