VB课程设计报告.pptxVIP

沈 阳 航 空 航 天 大 学课 程 设 计学号 :班级 :姓 名 :指导教师 :2012 年 3 月 5 日1沈 阳 航 空 航 天 大 学 设 计 用 纸沈阳航空航天大学 课 程 设 计 任 务 书 学院：机电工程学院 专业：机械设计 班级号：2010040601008 题目：图片浏览器一、课程设计时间2012 年 3 月 5~9 日（第 1 周），共计 1 周，20 学时。二、课程设计内容能够对指定文件夹中的图片按照顺序一一浏览。 能够浏览的图片格式至少包括.bmp 和.jpg 两种。三、课程设计要求 程序质量：贯彻事件驱动的程序设计思想。用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。用户界面中的菜单（或命令按钮）至少应包括“定位文件夹”、“上一个图片”、 “下一个图片” 、“退出”4 项。代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书：课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提 供的模板。四、指导教师和学生签字指导教师： 学生签名： 五、成绩六、教师评语 第页，共14页沈 阳 航 空 航 天 大 学 设 计 用 纸目录需求分析...............................................................................4设计分析...............................................................................4关键技术...............................................................................6总结.....................................................................................11完整的源程序.....................................................................12参考文献.............................................................................14 第页，共14页沈 阳 航 空 航 天 大 学 设 计 用 纸需求分析“图片浏览器”这个课程设计模拟各种浏览图片的设 备，能够对图片的格式进行限制，还能够实现逐一浏览功 能，因此，要先通过路径的引入来使图片导入到列表框中。 要求：①窗体中建一个图片框，在此导入图片。 ②能够实现“上一张”，“下一张”的浏览功能。 ③够随时显示图片的张数功能，并且能直接查找图 片张数。能够随时退出。 ④浏览到最后一张能够重新浏览，实现循环功能。设计分析基本原理：实际应用中，驱动器列表框，目录列 表框和文件列表框需要同步操作，可以通过 Path 属性的改变引发 Change 事件来实现。同时需要 图片的载入来完成。总体设计： 第页，共14页沈 阳 航 空 航 天 大 学 设 计 用 纸Load 载入 图片Path 属性连接图片（3）详细设计：开始图片的载入格式设置顺序结构Change 事件限制图片格式图片浏览查找图片 第页，共14页沈 阳 航 空 航 天 大 学 设 计 用 纸关键技术（3）驱动器列表框，目录列表框和文件列表框需要同步的操 作Rivate Sub Dir1_Change() 定位文件夹 Dim b As StringFile1Patten = *.bmp;*.jpg 对图片格式进行限制 File1.Path = Dir1.Path 使目录改变时文件列表框改变If i File1.ListCount Thenb = Dir1.Path + \ + File1.List(0) Image1.Picture = LoadPicture(b) 载入图片Text1.Text = 1End If End SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.Drive 使驱动器列表框改变时，目 录列表框改变End Sub 第页，共14页沈 阳 航 空 航 天 大 学 设 计 用 纸Private Sub File1_Click()b = Dir1.Path + \ + File1.FileName Image1.Picture = LoadPicture(b) 载入图片EndSub驱动器列表框，目录列表框和文件列表框如下图：2 实现图片的逐一浏览程序段如下：Dim i As Integ