课程设计图片浏览器

目录

《程序设计语言（VB）》课程设计

一、设计目的

1、进一步掌握程序的三大基本结构；

2、进一步掌握算法设计；

3、进一步理解程序调试；

4、综合利用上述知识，学习设计并编写简单应用程序；

5、培养学生团结协作的能力；

二、环境配置要求

硬件配置：586以上PC兼容机或品牌机，配有彩色显示器、鼠标、键盘，内存不小于64MB，硬盘自由空间不少于200MB。推荐配置为内存128MB或256MB（或以上），硬盘自由空间500MB以上。

操作系统：Windows2000/NT/Xp、VB集成开发环境。

三、设计题目图片浏览器

（一）系统的主要功能

⑴程序启动后，单击“指定文件夹”按钮，弹出“指定文件夹”对话框，从中选择计算机中某个有图片的文件夹。单击“确定”后，程序自动搜索指定文件夹中扩展名为.jpg、.bmp、.ico、.cur和.gif的图片文件，讲图片文件名显示在主窗口左边的列表框中，并将当前的图片文件夹名显示在主窗口的底部。

⑵指定了图片文件夹之后，程序在主窗口右部的显示区显示第一幅图片。这时，使用

鼠标单击列表中的文件名、使用键盘上的方向键、使用工具栏上的“前一幅图片”和

“下一幅图片”按钮都可以显示不同的图片。使用“第一幅图片”和“最后一幅

图片”可以显示列表中的第一副和最后一幅图片。

浏览图片时，窗口左下角显示图片总数以及当前显示图片的序号。

⑶单击工具栏上的“自动播放”按钮，程序自动以每秒一幅的速度以幻灯片形式循环显示所有图片。在自动播放时，鼠标、键盘和工具栏上的其他按钮仍可以正常使用。

自动播放时，“自动播放”按钮变为，单击停止自动播放。单击“退出”按钮关闭本程序。

⑷为了最大限度地使用屏幕的显示能力，要求程序主窗口可以通过拖动边框、单击“最大化”、“最小化”和“还原”按钮来改变其大小。主窗口改变大小时，上面所有的控件都应调整其大小与位置来保证正常的显示效果。

（5）工具栏上的按钮根据程序的运行状态自动变为有效或无效。例如，在程序未指定文件夹时，中间五个按钮全为无效灰色状态，；如果显示的是最后一幅图片，则“下一幅图片”和“最后一幅图片”按钮应为无效。

（二）算法描述

(1)进入主界面单击“打开文件夹”按钮弹出要求指定文件夹的对话窗。

(2)在弹出的对话窗中选中要打开的图片文件，单击确定进入图片浏览，单击取消则返回主窗体。

（3）选中图片后可以进行：第一幅、前一幅、下一幅、最后一幅、自动播放、放大、缩小的操作，进而更好的浏览图片。

（4）单击退出则退出整个运用程序

（三）流程图

各功能模块流程图：

（四）详细设计

主要介绍一些界面设计、控件使用，过程分析界面设计：

如图4-1、4-2、4-3所示均为本程序的控制窗口：

图4-1 运行程序控制面板

此图为运行程序的全屏幕模式：

图4-3 运行程序全屏幕模式控件使用及其属性：

如表2-1、2-2分别为Form1、Form2主要控件的属性值：

表4-1

表2-2

过程分析：

当点击“播放”控件时，按钮图片没有改变为暂停，原因是需要通过“暂停”图标的相对路径。

程序一开始就会显示所在文件夹位置，应为这段代码放在了Form_Load中。

当点击放大时图像框会放大，当点击缩小时图像框会缩小，而图像框里的图片也会相应改变大小。

（五）部分程序代码

5.1 Form1窗口上的代码

·“第一幅图片”按钮的代码如下：

Private Sub Command2_Click()

File1.ListIndex = 0

Image1.Picture = LoadPicture(File1.Path + "\" + File1.List(File1.ListIndex)) ‘单击“第一张”按钮图像框显示文件列表框中的第一张图片

Command4.Enabled = True

Command5.Enabled = True

Command2.Enabled = False ‘当显示第一张图片时“第一幅图片”按钮失效

Command3.Enabled = False ‘当显示第一张图片时“前一幅图片”按钮失效

End Sub

·“前一幅图片”按钮的代码如下：

Private Sub Command3_Click()

m = File1.ListIndex

m = m - 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 = LoadPicture(File1.Path + "\" + File1.List(m))

End If

End If

End Sub

·“下一幅图片”按钮的代码如下：

Private Sub Command4_Click()

n = File1.ListIndex

n = n + 1

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 = LoadPicture(File1.Path + "\" + File1.List(n))

End If

End If