【VB开源代码栏目提醒】：网学会员VB开源代码为您提供《程序设计语言VB》课程设计--图片浏览器 - 课程设计参考，解决您在《程序设计语言VB》课程设计--图片浏览器 - 课程设计学习中工作中的难题，参考学习。
目录 《程序设计语言（
VB）》课程设计一、设计目的 1、进一步掌握程序的三大基本结构； 2、进一步掌握算法设计； 3、进一步理解程序调试； 4、综合利用上述知识，学习设计并编写简单应用程序； 5、培养学生团结协作的能力； 1二、环境配置要求 硬件配置：586 以上 PC 兼容机或品牌机，配有彩色显示器、鼠标、键盘，内存不小于64MB，硬盘自由空间不少于 200MB。
推荐配置为内存 128MB 或 256MB（或以上），硬盘自由空间 500MB 以上。
操作系统：Windows2000/NT/Xp、
VB 集成开发环境。
2三、设计题目 图片浏览器（一）
系统的主要功能 ⑴ 程序启动后，单击“指定文件夹”按钮 ，弹出“指定文件夹”对话框，从中选择
计算机中某个有图片的文件夹。
单击“确定”后，程序自动搜索指定文件夹中扩展名为.jpg、.bmp、.ico、.cur 和.gif 的图片文件，讲图片文件名显示在主窗口左边的列表框中，并将当前的图片文件夹名显示在主窗口的底部。
⑵ 指定了图片文件夹之后，程序在主窗口右部的显示区显示第一幅图片。
这时，使用鼠标单击列表中的文件名、使用键盘上的方向键、使用工具栏上的“前一幅图片” 和“下一幅图片”按钮 都可以显示不同的图片。
使用“第一幅图片” 和“最后一幅图片” 可以显示列表中的第一副和最后一幅图片。
浏览图片时，窗口左下角显示图片总数以及当前显示图片的序号。
⑶ 单击工具栏上的“自动播放”按钮 ，程序自动以每秒一幅的速度以幻灯片形式循环显示所有图片。
在自动播放时，鼠标、键盘和工具栏上的其他按钮仍可以正常使用。
“自动播放”按钮变为自动播放时， ，单击停止自动播放。
单击“退出”按钮 关闭本程序。
⑷为了最大限度地使用屏幕的显示能力，要求程序主窗口可以通过拖动边框、单击“最 、大化”“最小化”和“还原”按钮来改变其大小。
主窗口改变大小时，上面所有的控件都应调整其大小与位置来保证正常的显示效果。
（5）工具栏上的按钮根据程序的运行状态自动变为有效或无效。
例如，在程序未指定文件夹时，中间五个按钮全为无效灰色状态，；如果显示的是最后一幅图片，则“下一幅图片”和“最后一幅图片”按钮应为无效。
（二）算法描述 1进入主界面单击“打开文件夹”按钮弹出要求指定文件夹的对话窗。
2在弹出的对话窗中选中要打开的图片文件，单击确定进入图片浏览，单击取消则返回主窗体。
（3）选中图片后可以进行：第一幅、前一幅、下一幅、最后一幅、自动播放、放大、缩小的操作，进而更好的浏览图片。
（4）单击退出则退出整个运用程序 13（三）流程图 开始 指定文件 取消 确定 选中驱动器的文件夹 缩小 第一幅 下一幅 自动播放 前一幅 最后一幅 放大 退出各功能模块流程图： DriveListBox DirListBox FileListBox Image（四）详细设计 主要介绍一些界面设计、控件使用，过程分析界面
设计：如图 4-1、4-2、4-3 所示均为本程序的控制窗口： 13图 4-1 运行程序控制面板 13 图 4-2 运行程序显示面板此图为运行程序的全屏幕模式： 13 图 4-3 运行程序全屏幕模式控件使用及其属性：如表 2-1、2-2 分别为 Form1、Form2 主要控件的属性值：表 4-1 Form1 的属性值表控件名 属性名 属性值Form1 Caption 图片浏览器Label1 Caption 给水排水三班杨竟喜制作Command1 Caption 空串Command2 Caption 空串Command3 Caption 空串Command4 Caption 空串 13Command5 Caption 空串Command6 Caption 空串Command7 Caption 空串Command8 Caption 缩小图片Command9 Caption 放大图片Timer1 Interval 1000Image Strecth trueText1 Text 空串Text2 Text 空串表 2-2 Form2 的属性值表控件名 属性名 属性值Form2 Caption 指定文件夹Command1 Caption 确定Command2 Caption 取消过程分析： 当点击“播放”控件时，按钮图片没有改变为暂停，原因是需要通过“暂停”图标的相对路径。
程序一开始就会显示所在文件夹位置，应为这段
代码放在了 Form_Load 中。
当点击放大时图像框会放大，当点击缩小时图像框会缩小，而图像框里的图片也会相应改变大小。
（五）部分
程序代码5.1Form1 窗口上的
代码 “第一幅图片”按钮的
代码如下：Private Sub Command2_Click File1.ListIndex 0 13 Image1.Picture LoadPictureFile1.Path File1.ListFile1.ListIndex ‘ 单 击“第一张”按钮图像框显示文件
列表框中的第一张图片 Command4.Enabled True Command5.Enabled True Command2.Enabled False ‘当显示第一张图片时“第一幅图片”按钮失效 Command3.Enabled False ‘当显示第一张图片时“前一幅图片”按钮失效End Sub “前一幅图片”按钮的
代码如下：Private Sub Command3_Click m File1.ListIndex mm-1 If m -1 Then Command2.Enabled False Command3.Enabled False Else If m File1.ListCount Then Command3.Enabled True Command2.Enabled True Command4.Enabled True Command5.Enabled True File1.ListIndex m Image1.Picture LoadPictureFile1.Path File1.Listm End If End IfEnd Sub “下一幅图片”按钮的
代码如下：Private Sub Command4_Click n File1.ListIndex nn1 Command2.Enabled True Command3.Enabled True Command4.Enabled True Command5.Enabled True If n File1.ListCount Then Command4.Enabled False Command5.Enabled False Else If n File1.ListCount Then Command4.Enabled True Command5.Enabled True File1.ListIndex n Image1.Picture LoadPictureFile1.Path File1.Listn End If End If 13End Sub “最后一幅图片”按钮的
代码如下：Private Sub Command5_Click File1.ListIndex File1.ListCount - 1 Image1.Picture LoadPictureFile1.Path File1.ListFile1.ListCount - 1 Command4.Enabled False Command5.Enabled FalseEnd Sub “自动播放”按钮的
代码如下：Private Sub Command6_Click Static a If Command6.Enabled True Then aa2 End If If a Mod 3 2 Then Timer1.Enabled True ‘“自动播放按钮”被激活 Command6.Caption 停止播放 Else Timer1.Enabled False ‘“停止自动播放”按钮被激活 Command6.Caption 开始播放 End IfEnd SubPrivate Sub Command7_Click EndEnd Sub “缩小”按钮的
代码如下：Private Sub Command8_Click Image1.Stretch True Image1.Width Image1.Width / 1.5 Image1.Height Image1.Height / 1.5End Sub “放大”按钮的
代码如下：Private Sub Command9_Click Image1.Width Image1.Width 1.5 Image1.Height Image1.Height 1.5End Sub文件列表框单击事件的
代码如下：Private Sub File1_Click n1 ValForm1.File1.ListCount n2 ValForm1.File1.ListIndex 1 Form1.Text1.Text 共 n1 张第 n2 张 ‘在 text1 中显示当前文件中图片的总数和图片处于总数中的位置 Form1.Text2.Text 当前窗体： Form1.File1.Path ‘在 text2 中显示当前图片的路径 13 Image1.Picture LoadPictureFile1.Path File1.FileName ‘在图像框中显示选中的图片End SubForm1 的 load 事件的
代码如下：Private Sub Form_Load Form1.Caption 图片浏览器 Form2.Caption 指定文件夹 Command9.Caption 缩小图片 Command9.Caption 放大图片 Label1.Caption 给水排水三班杨竟喜制作 File1.Pattern .jpg.bmp.ico.gif.cur ‘ 在 文 件 列 表 框 中 显 示 扩 展 名为.jpg、.bmp、.ico、.gif、.cur 格式的图片 Command2.Enabled False ‘在未选择图形文件时“第一张”按钮不可用 Command3.Enabled False ‘在未选择图形文件时“前一张“按钮不可用 Command4.Enabled False ‘在未选择图形文件时“下一张”按钮不可用 Command5.Enabled False ‘在未选择图形文件时“最后一张”按钮不可用 Command6.Enabled False ‘在未选择图形文件时“自动播放”按钮不可用End SubTimer1 事件的
代码如下：Private Sub timer1_timer Timer1.Interval 1000 ‘每隔 1 秒钟中显示一幅图片 m File1.ListIndex If m 0 Then Command4.Enabled True Command5.Enabled True Command2.Enabled False Command3.Enabled False mm1 File1.ListIndex m Else If m File1.ListCount - 1 Then Command4.Enabled False Command5.Enabled False File1.ListIndex 0 Else If m File1.ListCount - 1 Then mm1 File1.ListIndex m Command2.Enabled True Command3.Enabled True End If End If End IfEnd Sub 135.2Form2 的窗口
代码Private Sub Command1_Click Form1.Show Form2.Hide Form1.Command2.Enabled True Form1.Command3.Enabled True Form1.Command4.Enabled True Form1.Command5.Enabled True Form1.Command6.Enabled True n1 ValForm1.File1.ListCount n2 ValForm1.File1.ListIndex 1 Form1.Text1.Text 共 n1 张第 n2 张 Form1.Text2.Text 当前窗体： Form1.File1.PathEnd SubPrivate Sub Command2_Click Form2.HideEnd SubPrivate Sub Dir1_Change Form1.File1.Path Form2.Dir1.Path ‘当目录发生变化时，文件列表框中的文件也相应变化End Sub驱动器的 change 事件的
代码如下：Private Sub Drive1_Change Form2.Dir1.Path Form2.Drive1.Drive ‘当驱动器变化时，目录列表也相应变化End Sub 13四、设计体会 （1）学习心态很重要 1、要积极主动学习，主动查找各种相关资料 2、克服畏难情绪在遇到问题是不退缩，冷静思考克服问题的办法 （2）要有良好的学习习惯 1、认真听课并适当做些笔记课后要认真复习消化所学内容。
从而达到熟练运用
vb软件 2、在日常
学习中养成程序设计的思维方式，在上机前，预先设计好程序并在上机后修正错误 3学习程序设计要注重理解一些重要的概念.
VB 程序设计本身并不复杂主要是由变量函数条件语句循环语句等概念构成.但要能灵活运用这些概念，需要日常不断学习熟练使用技巧，才能在设计程序时减少错误，更有效率 4编写程序注意事项
vb 学习成果主要体现在程序的编写上，这考察到对日常学习积累的知识的运用，对这款
软件的熟悉程度，和应对各种
问题的应变能力思考方式 5阅读借签别人设计的好程序 多看别人设计好的程序
代码包括教材上的例题程序.在读懂别人程序后要想他为什么这么设计能不能将程序修改完成更多的功能 则可以学到别人优秀的东西帮助自己 提高自身水平. 6学会在网上
搜索有关资料，可以把其中精彩的部分加到自己的程序中 7
VB 程序设计学习的重点 1、程序设计课是高强度的脑力劳动不是听会的也不是看会的而是练会的. 2、只有自己动手编写一些程序才会有成就感进而对课程产生兴趣学起来才比较从容.等你在编写大量程序之后我想过二级肯定没问题，不过能不能做到真知灼见运用自如我就不敢说了. 3、动手能力的培养是这门课和以往课程最大的不同之处.重点放在思路算法编程构思和程序实现上.语句只是表达工具要求堂上积极思考尽量当堂学懂并做到灵活应用. 最后感谢周美铃老师的指导！ 13五、参考文献（1） Visual basic 程序设计实验教程【M】 吴昊 杜玲玲（人民邮电出版社。
2011.3）（2） Visual basic 程序设计【M】 熊李艳 周美玲（人民邮电出版社。
2011.3）（3） Visual basic 精彩编程百例 张勇（中国水利水电出版社） 14
相关文章
2013-9-15
