《课程设计图片浏览器》由会员分享，可在线阅读，更多相关《课程设计图片浏览器（15页珍藏版）》请在金锄头文库上搜索。
1、 1目录1程序设计语言（VB） 课程设计一、设计目的1、进一步掌握程序的三大基本结构；2、进一步掌握算法设计；3、进一步理解程序调试；4、综合利用上述知识，学习设计并编写简单应用程序；5、培养学生团结协作的能力；2二、环境配置要求硬件配置：586 以上 PC 兼容机或品牌机，配有彩色显示器、鼠标、键盘，内存不小于64MB，硬盘自由空间不少于 200MB。推荐配置为内存 128MB 或 256MB（或以上） ，硬盘自由空间 500MB 以上。操作系统：Windows2000/NT/Xp、VB 集成开发环境。13三、设计题目 图片浏览器（一）系统的主要功能 程序启动后，单击 “指定文件夹”按钮 ，
2、弹出“指定文件夹”对话框，从中选择计算机中某个有图片的文件夹。单击“确定”后，程序自动搜索指定文件夹中扩展名为.jpg、.bmp、.ico 、.cur 和.gif 的图片文件，讲图片文件名显示在主窗口左边的列表框中，并将当前的图片文件夹名显示在主窗口的底部。 指定了图片文件夹之后，程序在主窗口右部的显示区显示第一幅图片。这时，使用鼠标单击列表中的文件名、使用键盘上的方向键、使用工具栏上的“前一幅图片”和“下一幅图片”按钮 都可以显示不同的图片。使用“第一幅图片” 和“最后一幅图片” 可以显示列表中的第一副和最后一幅图片。浏览图片时，窗口左下角显示图片总数以及当前显示图片的序号。 单击工具栏上的
3、“自动播放”按钮 ，程序自动以每秒一幅的速度以幻灯片形式循环显示所有图片。在自动播放时，鼠标、键盘和工具栏上的其他按钮仍可以正常使用。自动播放时， “自动播放”按钮变为 ，单击停止自动播放。单击“退出”按钮关闭本程序。为了最大限度地使用屏幕的显示能力，要求程序主窗口可以通过拖动边框、单击“最大化” 、 “最小化”和“还原”按钮来改变其大小。主窗口改变大小时，上面所有的控件都应调整其大小与位置来保证正常的显示效果。（5）工具栏上的按钮根据程序的运行状态自动变为有效或无效。例如，在程序未指定文件夹时，中间五个按钮全为无效灰色状态， ；如果显示的是最后一幅图片，则“下一幅图片”和“最后一幅图片”按钮
4、应为无效。（二）算法描述(1)进入主界面单击“打开文件夹”按钮弹出要求指定文件夹的对话窗。(2)在弹出的对话窗中选中要打开的图片文件，单击确定进入图片浏览，单击取消则返回主窗体。（3）选中图片后可以进行：第一幅、前一幅、下一幅、最后一幅、自动播放、放大、缩小的操作，进而更好的浏览图片。（4）单击退出则退出整个运用程序13（三）流程图开始指定文件夹选中驱动器的文件夹自动播放缩小 第一幅 下一幅 前一幅 最后一幅 放大退出确定取消各功能模块流程图：DriveListBox DirListBox FileListBox Image（四）详细设计主要介绍一些界面设计、控件使用，过程分析界面设计：如图
5、4-1、4-2 、4-3 所示均为本程序的控制窗口：13图 4-1 运行程序控制面板13图 4-2 运行程序显示面板此图为运行程序的全屏幕模式：13图 4-3 运行程序全屏幕模式控件使用及其属性：如表 2-1、2-2 分别为 Form1、 Form2 主要控件的属性值：表 4-1Form1 的属性值表控件名 属性名 属性值Form1 Caption 图片浏览器Label1 Caption 给水排水三班杨竟喜制作Command1 Caption 空串Command2 Caption 空串Command3 Caption 空串Command4 Caption 空串13Command5 Captio
6、n 空串Command6 Caption 空串Command7 Caption 空串Command8 Caption 缩小图片Command9 Caption 放大图片Timer1 Interval 1000Image Strecth trueText1 Text 空串Text2 Text 空串表 2-2Form2 的属性值表控件名 属性名 属性值Form2 Caption 指定文件夹Command1 Caption 确定Command2 Caption 取消过程分析：当点击“播放”控件时，按钮图片没有改变为暂停，原因是需要通过“暂停”图标的相对路径。程序一开始就会显示所在文件夹位置，应为这段
7、代码放在了 Form_Load 中。当点击放大时图像框会放大，当点击缩小时图像框会缩小，而图像框里的图片也会相应改变大小。（五）部分程序代码 5.1 Form1 窗口上的代码“第一幅图片”按钮的代码如下：Private Sub Command2_Click()File1.ListIndex = 013Image1.Picture = LoadPicture(File1.Path + + File1.List(File1.ListIndex) 单击“第一张”按钮图像框显示文件列表框中的第一张图片Command4.Enabled = TrueCommand5.Enabled = TrueComma
8、nd2.Enabled = False 当显示第一张图片时“第一幅图片”按钮失效Command3.Enabled = False 当显示第一张图片时“前一幅图片”按钮失效End Sub “前一幅图片”按钮的代码如下：Private Sub Command3_Click()m = File1.ListIndexm = m - 1If m = -1 ThenCommand2.Enabled = FalseCommand3.Enabled = FalseElseIf m File1.ListCount ThenCommand3.Enabled = TrueCommand2.Enabled = Tru
9、eCommand4.Enabled = TrueCommand5.Enabled = TrueFile1.ListIndex = mImage1.Picture = LoadPicture(File1.Path + + File1.List(m)End IfEnd IfEnd Sub“下一幅图片”按钮的代码如下：Private Sub Command4_Click()n = File1.ListIndexn = n + 1Command2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled =
10、 TrueIf n = File1.ListCount ThenCommand4.Enabled = FalseCommand5.Enabled = FalseElseIf n File1.ListCount ThenCommand4.Enabled = TrueCommand5.Enabled = TrueFile1.ListIndex = nImage1.Picture = LoadPicture(File1.Path + + File1.List(n)End IfEnd If13End Sub“最后一幅图片”按钮的代码如下：Private Sub Command5_Click()File
11、1.ListIndex = File1.ListCount - 1Image1.Picture = LoadPicture(File1.Path + + File1.List(File1.ListCount - 1)Command4.Enabled = FalseCommand5.Enabled = FalseEnd Sub“自动播放”按钮的代码如下：Private Sub Command6_Click()Static aIf Command6.Enabled = True Thena = a + 2End IfIf a Mod 3 = 2 ThenTimer1.Enabled = True
12、“自动播放按钮”被激活Command6.Caption = 停止播放ElseTimer1.Enabled = False “停止自动播放”按钮被激活Command6.Caption = 开始播放End IfEnd SubPrivate Sub Command7_Click()EndEnd Sub“缩小”按钮的代码如下：Private Sub Command8_Click()Image1.Stretch = TrueImage1.Width = Image1.Width / 1.5Image1.Height = Image1.Height / 1.5End Sub“放大”按钮的代码如下：Priv
13、ate Sub Command9_Click()Image1.Width = Image1.Width * 1.5Image1.Height = Image1.Height * 1.5End Sub文件列表框单击事件的代码如下：Private Sub File1_Click()n1 = Val(Form1.File1.ListCount)n2 = Val(Form1.File1.ListIndex + 1)Form1.Text1.Text = 共 & n1 & 张,第 & n2 & 张 在 text1 中显示当前文件中图片的总数和图片处于总数中的位置Form1.Text2.Text = 当前窗
14、体： & Form1.File1.Path 在 text2 中显示当前图片的路径13Image1.Picture = LoadPicture(File1.Path + + File1.FileName) 在图像框中显示选中的图片End SubForm1 的 load 事件的代码如下：Private Sub Form_Load()Form1.Caption = 图片浏览器 Form2.Caption = 指定文件夹 Command9.Caption = 缩小图片Command9.Caption = 放大图片Label1.Caption = 给水排水三班杨竟喜制作File1.Pattern = *
15、.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 S
16、ubTimer1 事件的代码如下：Private Sub timer1_timer()Timer1.Interval = 1000 每隔 1 秒钟中显示一幅图片m = File1.ListIndexIf m = 0 ThenCommand4.Enabled = TrueCommand5.Enabled = TrueCommand2.Enabled = FalseCommand3.Enabled = Falsem = m + 1File1.ListIndex = mElseIf m = File1.ListCount - 1 ThenCommand4.Enabled = FalseCommand5.Enabled = FalseFile1.ListIndex = 0ElseIf m File1.Lis
