VB课程设计实验报告图片浏览器Word格式文档下载.docx
《VB课程设计实验报告图片浏览器Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《VB课程设计实验报告图片浏览器Word格式文档下载.docx（10页珍藏版）》请在冰豆网上搜索。
图片浏览器程序流程图
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
PrivateSubFile1_Click（）
Image1.Picture=LoadPicture（File1.Path&
"
\"
&
File1.FileName）
Drive1.Visible=False
Dir1.Visible=False
File1.Visible=False
4.2图片显示时，盘符，文件夹和文件列表隐藏代码如下：
PrivateSubForm_Load（）
4.3图片放大的确定代码如下：
PrivateSubCommand1_Click（）
Image1.Stretch=True
Image1.Width=Image1.Width*2
Image1.Height=Image1.Height*2
4.4图片缩小的确定代码如下：
PrivateSubCommand2_Click（）
Image1.Width=Image1.Width/2
Image1.Height=Image1.Height/2
4.5图片转换到上一张的确定代码如下：
PrivateSubCommand3_Click（）
n=File1.ListIndex
n=n-1
Ifn>
=0Then
File1.ListIndex=n
Image1.Picture=LoadPicture（File1.Path&
File1.List（n））
EndIf
4.6图片转换到下一张的确定代码如下：
PrivateSubCommand4_Click（）
n=n+1
Ifn<
File1.ListCountThen
PrivateSubCommand5_Click（）
Drive1.Visible=True
Dir1.Visible=True
File1.Visible=True
五．效果及存在问题
5.1程序的效果：
该程序运行能清楚的显示图片。
而且，不仅可以改变图片的大小，且可以切换图片的上下张。
此图片浏览器与系统的图片浏览器非常相似，不会显示出系统盘符，文件夹和文件的列表！
图片浏览器查找图片的运行情况
5.2显示图片的情况：
图片的浏览情况
5.3：
图片浏览器扩大的情况：
图片的放大情况
5.4图片浏览器缩小的情况：
图片的缩小情况
5.5存在的问题：
该程序虽然与系统的图片浏览器相似，但是，没有系统图片浏览器那么友好的界面和那么精巧的控件。
六．实验心得
通过几天的课程实验，使我对于VB课程的实验和程序设计有了更深层次的了解，特别是明白了文件操作和图片操作的用法，在老师的指导和帮助以及自己的努力下终于完成了程序设计课题，实现了图片浏览器的操作。
VB的课程设计，对于我们来说是一个锻炼，它提升了我们的编程水平。
几天的上机操作，使我们学到了更多的VB知识，而且我们在编程期间，学会了协作，团结，为我们积累了资本。
总之，这次课程设计让我受益匪浅，我将会继续学习VB知识，提高水平。
七．参考文献
1.《VB程序设计》莫德举，夏涛北京邮电大学出版社
2.《VisualBasic程序设计综合教程》朱从旭清华大学出版社
3.《VisualBasic程序设计》赵万龙中国铁道出版社
4.《VisualBasic程序设计基础教程》黄学平中国科学技术出版社
八．图片浏览器程序的代码
Image1.Left=（Form1.ScaleWidth-Image1.Width）/2
Image1.Left=（Form1.ScaleWidth-Image1.Width）/2
n=（（File1.ListCount+（n-1））ModFile1.ListCount）
Image1.Left=（Form1.ScaleWidth-Image1.Width）/2
n=（（n+1）ModFile1.ListCount）
Image1.Visible=False
Image1.Visible=True
Image1.Top=50
File1.Pattern="
*.jpg;
*.gif;
*.bmp"
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
升级会员 