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

VB课程 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 报告 课程设计题目：图片浏览器 目录 1VB课程设计报告 3一. 内容 财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容 摘要 二．功能描述（含 流程 快递问题件怎么处理流程河南自建厂房流程下载关于规范招聘需求审批流程制作流程表下载邮件下载流程设计 图） 3 2.1 流程图： 3 42.2 图片浏览器描述（1） 42.3 图片浏览器描述（2） 42.4 图片浏览器描述（3） 2.5 图片浏览器描述（4） 4 2.6 图片浏览器描述（5） 4 三．概要设计 4 3.1 电子式图片浏览器 4 四．详细设计 5 4.1盘符，文件夹和文件列 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 的确定 5 4.2图片显示时，盘符，文件夹和文件列表隐藏 5 4.3 图片放大的确定 5 4.4 图片缩小的确定 5 4.5图片转换到上一张的确定 6 4.6图片转换到下一张的确定 6 五．效果及存在问题 6 5.1程序的效果： 6 85.2显示图片的情况： 95.3：图片浏览器扩大的情况： 105.4图片浏览器缩小的情况： 105．5存在的问题 10六．实验 心得 信息技术培训心得 下载关于七一讲话心得体会关于国企改革心得体会关于使用希沃白板的心得体会国培计划培训心得体会 11七．参考文献 11八．图片浏览器程序的代码 一.内容摘要 本程序是在借鉴了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 If n < File1.ListCount Then File1.ListIndex = n Image1.Picture = LoadPicture(File1.Path & "\" & File1.List(n)) End If End Sub Private Sub Command5_Click() Drive1.Visible = True Dir1.Visible = True File1.Visible = True End Sub 五．效果及存在问题 5.1程序的效果： 该程序运行能清楚的显示图片。而且，不仅可以改变图片的大小，且可以切换图片的上下张。此图片浏览器与系统的图片浏览器非常相似，不会显示出系统盘符，文件夹和文件的列表！ 图片浏览器查找图片的运行情况 5.2显示图片的情况： 图片的浏览情况 5.3：图片浏览器扩大的情况： 图片的放大情况 5.4图片浏览器缩小的情况： 图片的缩小情况 5.5存在的问题： 该程序虽然与系统的图片浏览器相似，但是，没有系统图片浏览器那么友好的界面和那么精巧的控件。 六．实验心得 通过几天的课程实验，使我对于VB课程的实验和程序设计有了更深层次的了解，特别是明白了文件操作和图片操作的用法，在老师的指导和帮助以及自己的努力下终于完成了程序设计课题，实现了图片浏览器的操作。 VB的课程设计，对于我们来说是一个锻炼，它提升了我们的编程水平。几天的上机操作，使我们学到了更多的VB知识，而且我们在编程期间，学会了协作，团结，为我们积累了资本。总之，这次课程设计让我受益匪浅，我将会继续学习VB知识，提高水平。 七．参考文献 1.《VB程序设计》 莫德举，夏涛 北京邮电大学出版社 2.《Visual Basic程序设计综合教程》 朱从旭 清华大学出版社 3.《Visual Basic程序设计》 赵万龙 中国铁道出版社 4.《Visual Basic程序设计基础教程》 黄学平 中国科学技术出版社 八．图片浏览器程序的代码 Private Sub Command1_Click() Image1.Stretch = True Image1.Width = Image1.Width * 2 Image1.Height = Image1.Height * 2 Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2 End Sub Private Sub Command2_Click() Image1.Stretch = True Image1.Width = Image1.Width / 2 Image1.Height = Image1.Height / 2 Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2 End Sub Private Sub Command3_Click() n = File1.ListIndex n = ((File1.ListCount + (n - 1)) Mod File1.ListCount) File1.ListIndex = n Image1.Picture = LoadPicture(File1.Path & "\" & File1.List(n)) Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2 End Sub Private Sub Command4_Click() n = File1.ListIndex n = ((n + 1) Mod File1.ListCount) File1.ListIndex = n Image1.Picture = LoadPicture(File1.Path & "\" & File1.List(n)) Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2 End Sub Private Sub Command5_Click() Image1.Visible = False Drive1.Visible = True Dir1.Visible = True File1.Visible = True End Sub 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 Image1.Visible = True Image1.Top = 50 Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2 End Sub Private Sub Form_Load() Image1.Visible = False Drive1.Visible = False Dir1.Visible = False File1.Visible = False File1.Pattern = "*.jpg;*.gif ;*.bmp" End Sub Private Sub Form_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 End Sub 下一张 查找文件 查找文件夹 上一张 查找盘符 缩小 扩大 查找图片 开始 图片 结束 PAGE - 12 -