《VB课程设计报告.doc》由会员分享，可在线阅读，更多相关《VB课程设计报告.doc（13页珍藏版）》请在三一文库上搜索。
1、沈 阳 航 空 航 天 大 学 课程设计 学 号 : 班 级 : 姓 名 : 指导教师 : 2012年 3 月 5 日沈阳航空航天大学课程设计任务书学院：机电工程学院 专业：机械设计 班级：04060101学号：2010040601008 题目：图片浏览器一、课程设计时间2012年3月59日（第1周），共计1周，20学时。二、课程设计内容能够对指定文件夹中的图片按照顺序一一浏览。能够浏览的图片格式至少包括.bmp和.jpg两种。三、课程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。 用户界面中的菜单（或命令按钮）至少应包括“定位文件
2、夹”、“上一个图片”、“下一个图片” 、“退出”4项。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成绩六、教师评语目 录需求分析4设计分析4关键技术6总结11完整的源程序12参考文献14需求分析“图片浏览器”这个课程设计模拟各种浏览图片的设备，能够对图片的格式进行限制，还能够实现逐一浏览功能，因此，要先通过路径的引入来使图片导入到列表框中。要求： 窗体中建一个图片框，在此导入图片。 能够实现“上一张”，“下一张”的浏览功能。 够随时显示图
3、片的张数功能，并且能直接查找图片张数。能够随时退出。 浏览到最后一张能够重新浏览，实现循环功能。设计分析（1） 基本原理：实际应用中，驱动器列表框，目录列表框和文件列表框需要同步操作，可以通过Path属性的改变引发Change事件来实现。同时需要图片的载入来完成。 （2） 总体设计：Load载入图片图片Path属性连接（3）详细设计：开始图片的载入格式设置顺序结构Change事件限制图片格式式式图片浏览查找图片 关键技术（3）驱动器列表框，目录列表框和文件列表框需要同步的操作Rivate Sub Dir1_Change() 定位文件夹Dim b As StringFile1Patten = *
4、.bmp;*.jpg 对图片格式进行限制File1.Path = Dir1.Path 使目录改变时文件列表框改变 If i File1.ListCount Then b = Dir1.Path + + File1.List(0) Image1.Picture = LoadPicture(b) 载入图片 Text1.Text = 1 End IfEnd SubPrivate Sub Drive1_Change() Dir1.Path = Drive1.Drive 使驱动器列表框改变时，目录列表框改变End SubPrivate Sub File1_Click() b = Dir1.Path +
5、+ File1.FileName Image1.Picture = LoadPicture(b) 载入图片EndSub 驱动器列表框，目录列表框和文件列表框如下图： 2 实现图片的逐一浏览程序段如下：Dim i As Integer, j As IntegerPrivate Sub Command1_Click() 实现上一张 Dim a%, b As String i = i - 1 a = File1.ListCount - 1 If i a Then i = 0 End If b = Dir1.Path + + File1.List(i) Image1.Picture = LoadPic
6、ture(b) Text1.Text = i + 1End Sub 按键钮图片如图：3 直接查找图片程序段如下：Private Sub Text1_Change() c = Val(Text1) If Text1.Text = Then b = Dir1.Path + + File1.List(0) Image1.Picture = LoadPicture(b) 载入图片 j = MsgBox(请输入大于零的正整数, vbOKCancel + vbQuestion, 重新输入) 不能输入负数。 End If If c = File1.ListCount + 1 Then c = File1.L
7、istCount j = MsgBox(已经超出图片总数, vbOKCancel + vbQuestion, 重新输入) 限制输入图片张数 End If b = Dir1.Path + + File1.List(c - 1) Image1.Picture = LoadPicture(b)End Sub 4 实现退出功能Private Sub Command3_Click() 退出 j = MsgBox(是否真要退出窗体, vbOKCancel + vbQuestion, 退出) If j = 1 Then End End IfEnd Sub总结这次课设我的题目是图片浏览器，通过这次课设让我进一
8、步了解了VB，可以应用Path属性，对文件驱动器列表框，目录列表框和文件列表框进行同步的操作，也对VB中的顺序结构有了更深的认识。 在课设过程中，我遇到了各种困难，例如：对文件驱动器列表框，目录列表框和文件列表框进行同步的操作。通过老师的指点和自己查阅资料，我克服了困难，顺利的完成了任务。 同时我也了解了VB不仅是一种工具，它在生活中各个方面都能发挥巨大的作用，有助于科学的进步，国家的富强。所以，我们要学好VB。完整的源程序Dim i As Integer, j As IntegerPrivate Sub Command1_Click() 实现上一张 Dim a%, b As String i
9、 = i - 1 a = File1.ListCount - 1 If i a Then i = 0 End If b = Dir1.Path + + File1.List(i) Image1.Picture = LoadPicture(b) Text1.Text = i + 1End SubPrivate Sub Command3_Click() 退出 j = MsgBox(是否真要退出窗体, vbOKCancel + vbQuestion, 退出) If j = 1 Then End End IfEnd SubPrivate Sub Dir1_Change() 定位文件夹 Dim b As
10、 String File1Patten = *.bmp;*.jpg 对图片格式进行限制 File1.Path = Dir1.Path 使目录改变时文件列表框改变 If i File1.ListCount Then b = Dir1.Path + + File1.List(0) Image1.Picture = LoadPicture(b) 载入图片 Text1.Text = 1 End IfEnd SubPrivate Sub Drive1_Change() Dir1.Path = Drive1.Drive 使驱动器列表框改变时，目录列表框改变End SubPrivate Sub File1_
11、Click() b = Dir1.Path + + File1.FileName Image1.Picture = LoadPicture(b)End SubPrivate Sub Text1_Change() c = Val(Text1) If Text1.Text = Then b = Dir1.Path + + File1.List(0) Image1.Picture = LoadPicture(b) j = MsgBox(请输入大于零的正整数, vbOKCancel + vbQuestion, 重新输入) End If If c File1.ListCount Then c = File1.ListCount j = MsgBox(已经超出图片总数, vbOKCancel + vbQuestion, 重新输入) End If b = Dir1.Path + + File1.List(c - 1) Image1.Picture = LoadPicture(b)End Sub参考文献1 龚沛曾 杨志强 陆慰民Visual Basic程序设计教程高等教育出版社，2010出版