VB课程设计实验报告---图片浏览器

VB课程设计报告课程设计主题：图像浏览器目录VB课程设计报告11 .内容摘要32 .功能说明(包括流程图) 32.1流程图： 32.2图像浏览器的说明(1)42.3图像浏览器的说明(2)42.4图像浏览器的说明(3)42.5图像浏览器的说明(4)42.6图像浏览器的说明(5)43 .概要设计43.1电子式图像浏览器44 .详细设计54.1确定驱动器盘符、文件夹和文件列表54.2显示图像时，驱动器盘符、文件夹和文件列表处于隐藏状态54.3图像放大的决定54.4图像缩小的决定54.5图像转移到上一个确定64.6图像转移到下一个确定65 .有效果和问题65.1方案的效果： 65.2显示图像时： 85.3 :图像浏览器放大时： 95.4图像浏览器缩小时： 105.5问题106 .实验体会107 .参考文献118 .图像浏览器程序的代码111 .内容摘要本程序是参考WINDOWS系统附带的图像浏览器经过VB加工和处理而生成的图像浏览器。 它包括系统图形浏览器的一些基本功能。 此外，与系统的图像浏览器功能非常相似，具有易于使用的灵活性和直观性。2 .功能说明(包括流程图)2.1流程图：开始查找图像扩大缩小查找文件上一页下一张查找驱动器盘符查找文件夹照片结束图3是图像浏览器程序流程图2.2图像浏览器的说明(1)该图像浏览器包括五个控件、驱动器盘符、文件夹和文件列表(运行时隐藏，即使在查找图像后也隐藏)、Image框，布局非常简单2.3图像浏览器的说明(2)图像浏览器中的“查找图像”控件在文件中查找图像。2.4图像浏览器的说明(3)运行此图像浏览器时，将显示驱动器盘符、文件夹和文件的列表，找到图像后将再次隐藏并显示图像。2.5图像浏览器的说明(4)影像浏览器缩放控制按钮可控制影像的缩放。2.6图像浏览器的说明(5)图像浏览器的上一页和下一页的控件可以使图像上下翻转。 和系统的浏览器一样3 .概要设计3.1电子式图像浏览器该程序主要在图片框中显示系统的图片。 在图像中显示系统的图像。 随后，电子图像浏览器完成4 .详细设计4.1驱动器盘符、文件夹和文件列表的识别码如下所示私有子dir1_ change ()File1.Path=Dir1.Path日本职业足球联赛私有子驱动器1 _ change ()dir1. path=驱动器1 .驱动器日本职业足球联赛私有子文件1 _ click ()image1 .图片=加载图片(文件1 .路径 文件1 .文件名 )驱动器1.visible=falseDir1.Visible=FalseFile1.Visible=False日本职业足球联赛4.2显示图像时，驱动器盘符、文件夹和文件列表的隐藏代码如下所示私有子表单加载()驱动器1.visible=falseDir1.Visible=FalseFile1.Visible=False日本职业足球联赛4.3图像放大的确定代码如下所示私有子命令1 _ click ()Image1.Stretch=TrueImage1.Width=Image1.Width * 2Image1.Height=Image1.Height * 2日本职业足球联赛4.4图像缩小的确定代码如下所示私有子命令2 _ click ()Image1.Stretch=TrueImage1.Width=Image1.Width/2Image1.Height=Image1.Height/2日本职业足球联赛4.5将图像转换为上一个图像的确认代码如下所示私有子命令3 _ click ()n=File1.ListIndexn=n - 1If n=0 ThenFile1.ListIndex=nimage1 .图片=加载图片(文件1 .路径 文件1 .列表(n ) )End If日本职业足球联赛4.6将图像转换为下一个图像的确认代码如下所示私有子命令4 _ click ()n=File1.ListIndexn=n 1If n File1.ListCount ThenFile1.ListIndex=nimage1 .图片=加载图片(文件1 .路径 文件1 .列表(n ) )End If日本职业足球联赛私有子命令5 _ click ()驱动器1.visible=trueDir1.Visible=TrueFile1.Visible=True日本职业足球联赛5 .有效果和问题5.1计划的效果：该程序清晰地显示图片。 而且，不仅能够改变图像的大小，而且能够在图像的上下切换。 此影像浏览器与系统的影像浏览器类似，不会显示系统的统计磁碟、资料夹或档案清单！图像浏览器查找图像的执行情况5.2显示图像时：图像阅览状况5.3 :图像浏览器放大时：放大照片5.4图像浏览器缩小时：图像缩小状况5.5存在的问题：该程序与系统的图像浏览器类似，但没有系统的图像浏览器那么友好的界面和精巧的控制。6 .实验心得通过几天的课程实验，我对VB课程的实验和编程有了更深入的了解，特别是了解了文件操作和照片操作的使用方法，在老师的指导和帮助以及自己的努力下终于完成了编程课题，实现了图像浏览器的操作。VB的课程设计对我们来说是一种训练，提高了编程水平。 在几天的搭乘操作中，我们学习了更多的VB知识，并在编程期间学习了合作、团结，为我们积累了资本。 也就是说，这次的课程设计给我带来了好处，我会继续学习VB知识，提高水平。7 .参考文献1. VB程序设计莫德举，夏涛北京邮电大学出版社2. Visual Basic程序设计综合教程朱自旭清华大学出版社3. Visual Basic程序设计赵万龙中国铁路出版社4. Visual Basic程序设计基础教程黄学平中国科学技术出版社8 .图像浏览器程序的代码私有子命令1 _ click ()Image1.Stretch=TrueImage1.Width=Image1.Width * 2Image1.Height=Image1.Height * 2image1.left=(form1. scale width-image1.width )/2日本职业足球联赛私有子命令2 _ click ()Image1.Stretch=TrueImage1.Width=Image1.Width/2Image1.Height=Image1.Height/2image1.left=(form1. scale width-image1.width )/2日本职业足球联赛私有子命令3 _ click ()n=File1.ListIndexn=(file1. list count (n-1 ) ) mod file1. list count )File1.ListIndex=nimage1 .图片=加载图片(文件1 .路径 文件1 .列表(n ) )image1.left=(form1. scale width-image1.width )/2日本职业足球联赛私有子命令4 _ click ()n=File1.ListIndexn=(n 1) Mod File1.ListCount )File1.ListIndex=nimage1 .图片=加载图片(文件1 .路径 文件1 .列表(n ) )image1.left=(form1. scale width-image1.width )/2日本职业足球联赛私有子命令5 _ click ()Image1.Visible=False驱动器1.visible=trueDir1.Visible=TrueFile1.Visible=True日本职业足球联赛私有子dir1_ change ()File1.Path=Dir1.Path日本职业足球联赛私有子驱动器1 _ change ()dir1. path=驱动器1 .驱动器日本职业足球联赛私有子文件1 _ click ()image1 .图片=加载图片(文件1 .路径 文件1 .文件名 )驱动器1.visible=falseDir1.Visible=FalseFile1.Visible=FalseImage1.Visible=TrueImage1.Top=50image1.left=(form1. scale width-image1.width )/2日本职业足球联赛私有子表单加载()Image1.Visible=False驱动器1.visible=falseDir1.Visible=FalseFile1.Visible=FalseFile1.Pattern=*.jpg； *.gif； *.bmp 日本职业足球联赛私有子表单_ resize ()command1. top=form1. scale height-800command2. top=form1. scale height-800command3. top=form1. scale height-800command4. top=form1. scale height-800command5. top=form1. scale height-800command1. left=form1. scale width/5 *3- 1315command2. left=form1. scale width/5 *4- 1315comma