图片浏览器课程设计报告.docx
图片浏览器设计报告
学院土木工程学院班级测绘C111 学号 117544 姓名戴健健成绩
一、设计思路
1.要达到的目的
①培养学生综合利用VB语言进行程序设计的能力，主要是利用VB的标
准控件进行设计。
②能够打开常见类型的图片，自动进行缩放，适应PictureBox的大小。
③在FileListBox中只列出图片文件。
④使用StatusBar 控件状态条显示图片文件相关信息，包括图片尺寸
(单位：象素)、文件大小和日期等。
⑤使用HscrollBar控件对图片进行缩放。
⑤可以轮流显示FileListBox中列出图片文件。
⑥当图片放大超过窗口大小后，可以提供鼠标移动图片显示。
2.关键问题的解决
①使用Loadpicture方法在图片框里加载符合格式要求的图片。
②使用FileListBox方法来显示图片。
③使用PaintPicture方法和改变滚动条的Value属性，使图片能够缩放。
④使用Timer事件更改FileListBox的ListCount属性，使图片能自动
浏览。
⑤使用MouseMove事件，在图片过大时，通过鼠标移动使图片显示。
二、模块之间的调用关系，或程序流程图
Private Sub Form_Load()
Drive1.Drive = App.Path
Dir1.Path = App.Path
'App 是当前的应用程序对象
File1.Pattern = "*.bmp;*.jpg;*.ico;*.wmf" '在FileListBox中只列出图片文件。
Picture1.AutoSize = True
Picture2.AutoSize = True
'设定自动缩放，适应PictureBox的大小。
'设定StatusBar的数量和属性
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End sub
Private Sub HScroll1_Change()
Picture1.Cls
Max = 200
Min = 1
'设定滚动条的最大、最小值。
Value = 200
smallchang = 1
largechang = 1
'设定Value值的改变量。
Picture1.PaintPicture Picture2.Picture, 0, 0, _
Picture1.Width * HScroll1.Value / 100, _
Picture1.Height * HScroll1.Value / 100, 0, 0, _
Picture2.Width, Picture2.Height
'使用滚动条缩放图片
End Sub
Private Sub Picture1_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
X1 = X
Y1 = Y
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
感谢你的观看 X2 = X
Y2 = Y
X3 = X3 + X2 - X1
Y3 = Y3 + Y2 - Y1
Picture1.Picture = LoadPicture(tempstring)
Picture1.Cls
If HScroll1.Value <> 100 Then
'使用鼠标移动图片
Picture1.PaintPicture Picture2.Picture, X3, Y3, _
Picture1.Width * HScroll1.Value / 100, _
Picture1.Height * HScroll1.Value / 100
'使用PaintPicture方法
Else
Picture1.PaintPicture Picture2.Picture, X3, Y3, _
Picture1.Width, Picture1.Height
End If
End Sub
Private Sub munfileopen_Click()
'菜单栏"打开"
CommonDialog1.ShowOpen
Picture2.Picture = LoadPicture(CommonDialog1.FileName)
Picture1.Cls
Picture1.PaintPicture Picture2.Picture, 0, 0, _
Picture1.Width, Picture1.Height, 0, 0, _
Picture2.Width, Picture2.Height
Picture2.Visible = False
CommonDialog1.Filter = "pictures|(*.bmp)|*.bmp|pictures|(*.jpg)|*.jpg|pictures|(*.gif)|* .gif|pictures|(*.ico)|*.ico"
'设定载入文件的格式
munbigger.Enabled = True
munsmaller.Enabled = True
munback.Enabled = True
mysize = FileLen(CommonDialog1.FileName)
Picture2.ScaleMode = 3
StatusBar1.Panels(1) = "图片尺寸:" & _
Picture2.ScaleWidth & "×" & Picture2.ScaleHeight
StatusBar1.Panels(2) = "文件大小:" & _
Int(mysize / 1024 * 10 + 0.5) / 10 & "KB"
StatusBar1.Panels(3) = "修改日期:" & "2012-6-21 " & "14:00" End Sub
Private Sub munfileexit_Click()
'菜单栏"关闭"
Unload Me
End Sub
Private Sub munbigger_Click()
'菜单栏"放大"
Picture1.Cls
Picture2.Width = Picture2.Width * 0.8
Picture2.Height = Picture2.Height * 0.8
Picture1.PaintPicture Picture2.Picture, 0, 0, _
Picture1.Width, Picture1.Height, 0, 0, _
Picture2.Width, Picture2.Height
End Sub
Private Sub munback_Click()
'菜单栏"还原"
Picture2.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName) Picture1.PaintPicture Picture2.Picture, 0, 0, _
Picture1.Width, Picture1.Height, 0, 0, _
Picture2.Width, Picture2.Height
Picture2.Visible = False
End Sub
四、设计方案的完善及目前存在的问题
1．设计方案要完善的地方
①增加根据图片的长宽比改变PictrueBox的长宽比。
②增加改变窗口大小，窗口上的图片也要做相应的调整。
③完善菜单栏的“打开”功能和鼠标拖动图片功能。
2. 目前存在的问题
①菜单栏的“打开”功能不够完善。
②单击鼠标拖动图片功能不能令人满意。
③文件的信息显示不够全面。
五、本次设计的收获及心得体会
①在打好基础的前提下，努力拓宽自己的知识面。
②增加练习的时间，把基础做扎实。
六、对该题目和VB设计的意见和建议
1. 对该题目的意见和建议
①增加对图片文件的简单的编辑功能。
如缩放、裁减、添加文本框等。
②在浏览功能方面，增加全屏浏览、旋转等功能。
2．对本次设计的意见和建议
希望老师的提示能更多一些，多提供一些有用的控件和控件的详细使用方法。
(vb课程设计)图片浏览器修改
图片浏览器设计报告学院土木工程学院班级土木工程C076 学号074837 姓名郭少华成绩一、设计思路1.要达到的目的①培养学生综合利用VB语言进行程序设计的能力，主要是利用VB的标准控件进行设计。
②能够打开常见类型的图片，自动进行缩放，适应PictureBox的大小。
③在FileListBox中只列出图片文件。
④使用StatusBar 控件状态条显示图片文件相关信息，包括图片尺寸(单位：象素)、文件大小和日期等。
⑤使用HscrollBar控件对图片进行缩放。
⑤可以轮流显示FileListBox中列出图片文件。
⑥当图片放大超过窗口大小后，可以提供鼠标移动图片显示。
2.关键问题的解决①使用Loadpicture方法在图片框里加载符合格式要求的图片。
②使用FileListBox方法来显示图片。
③使用PaintPicture方法和改变滚动条的Value属性，使图片能够缩放。
④使用Timer事件更改FileListBox的ListCount属性，使图片能自动浏览。
⑤使用MouseMove事件，在图片过大时，通过鼠标移动使图片显示。
二、模块之间的调用关系，或程序流程图picture模块hscrollbar模块pictureload三、部分程序关键源代码及注释Private Sub Form_Load()Drive1.Drive = App.PathDir1.Path = App.Path 'App 是当前的应用程序对象File1.Pattern = "*.bmp;*.jpg;*.ico;*.wmf" '在FileListBox中只列出图片文件。
Picture1.AutoSize = TruePicture2.AutoSize = True '设定自动缩放，适应PictureBox的大小。
= 2000= sbrCenter= 1800= sbrCenter= 2400= sbrCenter= 3000= sbrCenter '设定StatusBar的数量和属性End SubPrivate Sub Drive1_Change()On Error Resume NextDir1.RefreshDir1.Path = Drive1.DriveIf Err.Number = 68 ThenErr.ClearMsgBox "先将光盘插入！", , "提示"Exit SubEnd If '设定错误提示End SubPrivate Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub File1_Click()If Right(File1.Path, 1) <> "\" Thentempstring = File1.Path & "\" & File1.FileName '非根目录时，路径中的最后加上一个反斜杠"\"Elsetempstring = File1.Path & "\" & File1.FileNameEnd If '装入选定的文件。
VB课程设计实验报告---图片浏览器
VB课程设计报告课程设计题目：图片浏览器目录VB课程设计报告 ...................................................................................................... - 1 -一.内容摘要 ................................................................................................................ - 3 -二．功能描述（含流程图） (3)2.1 流程图： (3)2.2 图片浏览器描述（1）............................................................................... - 4 -2.3 图片浏览器描述（2）............................................................................... - 4 -2.4 图片浏览器描述（3）............................................................................... - 4 -2.5 图片浏览器描述（4） (4)2.6 图片浏览器描述（5） (4)三．概要设计 (4)3.1 电子式图片浏览器 (4)四．详细设计 (5)4.1盘符，文件夹和文件列表的确定 (5)4.2图片显示时，盘符，文件夹和文件列表隐藏 (5)4.3 图片放大的确定 (5)4.4 图片缩小的确定 (5)4.5图片转换到上一张的确定 (6)4.6图片转换到下一张的确定 (6)五．效果及存在问题 (6)5.1程序的效果： (6)5.2显示图片的情况：....................................................................................... - 9 -5.3：图片浏览器扩大的情况：............................................ 错误!未定义书签。
图片浏览器课程设计报告书
'图片框加载选中的图片
Private Sub Form_Load() MMControl1.Enabled = True MMControl1.FileName = App.Path + "\as.mp3" mand = "Open" mand = "play" End Sub
'定义加载图片的原始高度，宽度
Private Sub clear_Click() I1.Picture = LoadPicture("") End Sub
'清除图片
Private Sub Command1_Click() I1.Stretch = True I1.Width = I1.Width / 1.5 I1.Height = I1.Height / 1.5 End Sub
DirListBox
FileListBox
Image
《软件设计基础（VB）》课程设计报告 ⑷代码实现
form1、首页 作用：“进入应用程序”。
第 6 页，共 14 页
所用控件：2 个 command 1 个 Filelistbox 1 个,Drivelistbox 1 个 Dirlistbox 1
'缩小图片
Private Sub Command2_Click() I1.Width = I1.Width * 1.5 I1.Height = I1.Height * 1.5 End Sub
'放大图片
Private Sub Dir1_Change()
《软件设计基础（VB）》课程设计报告
第 7 页，共 14 页
《软件设计基础（VB）》课程设计报告
Android图片浏览器报告.docx
洛阳理工学院手机软件开发实训报告专业计算机应用技术________________ 班级Z120551 ___________________ 学号Z12055131 _________________ 姓名杨鹏________________________完成日期—2015-01-04 ___________________成绩：指导教师：________________年月日第一章：程序设计的意义与目的1.1设计的意义随着时代的发展，社会的进步，移动开发应用越来越普及，其中An droid 移动开发应用因为方便、价格低廉等优势在市场中占有很大份额。
而图片浏览器作为计算机使用者浏览各种格式图片的载体而存在，作为人们日常生活中的任何格式的图片文件都必须通过图片浏览器才能浏览。
随着各种类型图片浏览器的不断更新换代，其功能也日益强大和完善，逐渐成为计算机使用者生活中不可或缺的一部分。
1.2设计的目的图片浏览器支持流行格式图象，包括：BMP,JPEG,JPEG2000,GIF,PNG,PCX,TIFF,WMF,ICOa ndT界面漂亮，使用特别方便。
晶莹剔透的放大镜可以把图片的每个细节优美的表达出来。
批量图片转换和更名允许您对图片进行大批量的转换，尺寸调整，其它特性还包括全屏幕浏览，拖拉放大，旋转，等等。
图片浏览器一般具有打开图片文件并对图片文件夹中的图片进行顺序浏览的功能。
为方便人们更好地浏览图片，为人们的生活带来便利，特设计实现了一个图片浏览器。
本次图片浏览器的设计实现可以浏览.pn g .jpg 等格式的图片，不仅可以浏览本地文件、SCDCAR和USBHOS存储的图片还可以浏览手机设备里的其他图片，确实为使用者带来了很大的便利。
第二章：程序设计与开发2.1程序简单介绍本次图片浏览器的设计可以读取本地文件、SCDCAF和USBHOS以及手机设备里的其他图片，其中可以对图片进行幻灯片播放、图片缩放、旋转照片（顺时针90度旋转、逆时针90度旋转、180度旋转）、图片详细信息、返回预览和删除图片等功能。
C++课程设计报告--图像浏览器的设计与实现
浙江工商大学计算机与信息工程学院课程设计报告课程名称：面向对象程序设计专业：计算机科学与技术班级：计科0902 ______学号： 0912300219 _姓名：徐雪琳题目：图像浏览器的设计与实现指导教师：刘春晓2011年1月计算机与信息工程学院2009级《面向对象程序设计》课程设计任务书设计说明书一、问题描述图像浏览器的设计与实现：设计一个能实现图像浏览与编辑功能的Java/C++程序，包括如下功能：1）从已有的图像文件列表中选择某一个，即可显示该图像，并可做旋转等变换。
2）在画布区域上可以进行各种规则图形的绘制（如：线段、矩形、多边形、圆等），还可通过鼠标的拖动自由绘图。
3）可以连续播放所选文件夹下的所有图像。
二、需求分析随着数字产品渐进人们的生活，网络通信技术、图像处理技术以及多媒体技术的发展，越来越多的用户希望能够对已有的数字图片进行查看并能够实现简单的操作。
此图片游览器以C++ Windows编程及OpenCV 为基础，在MFC 的单文档上实现，面向对象的设计及其简洁明了易操作的特点实现图片查看的基本功能，从而也就满足了用户对图片查看的基本要求。
（1）MFC：MFC是用来编写Windows应用程序的C++类集，该类集以层次结构组织起来，其中封装了大部分Windows控件，它所包含的功能涉及到整个Windows操作系统。
MFC不仅为用户提供了Windows图形环境下应用程序的框架，而且还提供了创建应用程序的组件。
应用MFC类库和Visual C++提供的高度可视的应用程序开发工具，可使应用程序开发变得更简单，开发周期极大地缩短，提高代码的可靠性和可重用性。
创建一个名为ImageViewer的MFC单文档程序，步骤为首先在新建工程框中选择MFC AppWizard(exe),工程名为ImageViewer，点下一步后选择基于单个文档的程序，其余的基本选择默认，除了最后选择基类是不是默认的CView而选择CScrollView类，因为在显示图片时可能会出现图片大小比视窗大小还要大，这是就要用到滚动条，所以选择了这个基类。
c图片浏览器课程设计
c 图片浏览器课程设计一、课程目标知识目标：1. 学生能理解图片浏览器的功能与作用，掌握其基本操作流程。
2. 学生能了解图片浏览器的界面布局，掌握各功能按钮的作用。
3. 学生能掌握图片的打开、缩放、旋转、保存等基本操作。
技能目标：1. 学生能运用图片浏览器打开不同格式的图片，并进行基本的编辑操作。
2. 学生能运用图片浏览器进行图片的批量处理，提高工作效率。
3. 学生能通过图片浏览器搜索、下载网络图片，丰富自己的图片资源。
情感态度价值观目标：1. 学生培养对计算机软件操作的兴趣，提高信息技术素养。
2. 学生培养良好的网络图片使用习惯，尊重版权，遵循法律法规。
3. 学生通过图片浏览器的使用，学会欣赏美、发现美，提高审美能力。
课程性质：本课程为信息技术课程，注重实践操作，培养学生的动手能力。
学生特点：六年级学生具备一定的计算机操作基础，对新事物充满好奇，喜欢动手操作。
教学要求：结合学生特点，课程设计要注重实践性、趣味性和操作性，使学生在轻松愉快的氛围中掌握图片浏览器的使用技巧。
教学过程中，关注学生个体差异，给予不同层次的学生针对性的指导，确保每个学生都能达到课程目标。
将课程目标分解为具体的学习成果，便于教学设计和评估。
1. 图片浏览器简介：介绍图片浏览器的定义、作用及其在日常生活和学习中的应用场景。
- 教材章节：第一章 计算机软件应用2. 图片浏览器的基本操作：讲解如何打开、关闭、缩放、旋转、保存图片等基本操作。
- 教材章节：第二章 图片浏览器的使用3. 图片浏览器的进阶操作：学习批量处理图片、下载网络图片等高级功能。
- 教材章节：第三章 图片浏览器的进阶技巧4. 图片浏览器实践操作：结合实例，让学生动手操作，巩固所学知识。
- 教材章节：第四章 实践操作5. 图片浏览器的安全与法规：讲解在使用图片浏览器时应遵守的法律法规，提高学生的网络安全意识。
- 教材章节：第五章 网络安全与法规教学安排与进度：第一课时：图片浏览器简介，基本操作（1课时）第二课时：图片浏览器进阶操作，实践操作（2课时）第三课时：图片浏览器安全与法规，总结与拓展（1课时）教学内容注重科学性和系统性，结合教材章节，让学生在掌握图片浏览器基本操作的基础上，进一步提高操作技能，同时培养良好的网络安全意识。
图片浏览器vb课设报告doc
图片浏览器设计报告学院土木工程班级交通运输111 学号111391 姓名刁化尧成绩一、设计思路1.要达到的目的培养学生综合利用VB语言进行程序设计的能力，利用VB的图像控件进行界面设计的能力，用VB的鼠标事件进行控件的拖拽处理以及利用数组进行数据处理的能力。
2.关键问题的解决使用 Loadpicture 方法在图片框里加载符合格式要求的图片。
使用 FileListBox 方法来显示图片。
使用 PaintPicture 方法和改变滚动条的 Value 属性，使图片能够缩放。
使用 Timer 事件更改 FileListBox 的 ListCount 属性，使图片能自动浏览。
使用 MouseMove 事件，在图片过大时，通过鼠标移动使图片显示。
二、模块之间的调用关系，或程序流程图特别注意：根据自己题目的情况修改此图，可以更简单或者更复杂！流程特简单的可以没有这个部分。
三、部分程序关键源代码及注释1、文件夹和文件列表的确定Private Sub Dir1_Click()Form1.Text1.Text = Dir1.PathEnd SubPrivate Sub Drive1_Change()On Error Resume NextDir1.RefreshDir1.Path = Drive1.DriveIf Err.Number = 68 ThenErr.ClearMsgBox "请您先将光盘插入，谢谢。
", , "提示"Exit SubEnd IfForm1.Text1.Text = Drive1.DriveEnd SubPrivate Sub File1_Click()n = File1.Path & "\" & File1.FileName'装入选定的文件。
Picture1.Enabled = TruePicture2.Picture = LoadPicture(n)Picture1.PaintPicture Picture2.Picture _, 0, 0, Picture1.Width, Picture1.Height, _0, 0, Picture2.Width, Picture2.Height'设定图片的初始状态Picture2.Visible = Falsemysize = FileLen(Form2.Dir1.Path & "\" & File1.FileName)Picture2.ScaleMode = 3Text1.Text = File1.Path + "\" + File1'显示图片途径Text2.Text = "共" & File1.ListCount & "张" & "第" & File1.ListIndex + 1 & "张"'显示图片总数和当前图片的序号End Sub2、图片转换到上一张和下一张的确定Private Sub Command3_Click()n = File1.ListIndexn = ((File1.ListCount + (n - 1)) Mod File1.ListCount)File1.ListIndex = nPicture2.Picture = LoadPicture(File1.Path & "\" & File1.List(n))Picture1.Enabled = TruePicture1.PaintPicture Picture2.Picture _, 0, 0, Picture1.Width, Picture1.Height, _0, 0, Picture2.Width, Picture2.Height'设定图片的初始状态Picture2.Visible = Falsemysize = FileLen(Form2.Dir1.Path & "\" & File1.FileName)Picture2.ScaleMode = 3'翻到上一页End SubPrivate Sub Command4_Click()n = File1.ListIndexn = ((File1.ListCount + (n + 1)) Mod File1.ListCount)File1.ListIndex = nPicture2.Picture = LoadPicture(File1.Path & "\" & File1.List(n))Picture1.Enabled = TruePicture2.Picture = LoadPicture(File1.Path & "\" & File1.List(n))Picture1.Enabled = TruePicture1.PaintPicture Picture2.Picture _, 0, 0, Picture1.Width, Picture1.Height, _0, 0, Picture2.Width, Picture2.Height'翻到下一页End Sub3、转换到第一页和最后一页的确定Private Sub Command2_Click()File1.ListIndex = 0Picture2.Picture = LoadPicture(File1.Path & "\" & File1.List(0))Picture1.Enabled = TruePicture1.PaintPicture Picture2.Picture _, 0, 0, Picture1.Width, Picture1.Height, _0, 0, Picture2.Width, Picture2.Height'翻到第一页End SubPrivate Sub Command5_Click()n = File1.ListCountFile1.ListIndex = File1.ListCount - 1Picture2.Picture = LoadPicture(File1.Path & "\" & File1.List(n - 1)) Picture1.Enabled = TruePicture1.PaintPicture Picture2.Picture _, 0, 0, Picture1.Width, Picture1.Height, _0, 0, Picture2.Width, Picture2.Height'翻到最后一页End Sub4、自动浏览的确定Private Sub Command6_Click()If Command6.Caption = "自动浏览" ThenTimer1.Enabled = TrueCommand6.Caption = "停止浏览"ElseTimer1.Enabled = FalseCommand6.Caption = "自动浏览"End If'设定自动浏览End SubPrivate Sub Timer1_Timer()X = File1.ListIndexX = X + 1If X < File1.ListCount ThenFile1.Selected(X) = TrueCall File1_ClickElseFile1.ListIndex = 0End If'设定timer事件来自动浏览图片End Sub5、滚动条的确定Private Sub HScroll1_Change()Picture1.ClsMax = 200Min = 1Value = 200smallchang = 1largechang = 1Picture1.PaintPicture Picture2.Picture, 0, 0, _Picture1.Width * HScroll1.Value / 100, _Picture1.Height * HScroll1.Value / 100, 0, 0, _Picture2.Width, Picture2.Height'使用滚动条缩放图片End Sub6、鼠标拖动图片的确定Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) X1 = XY1 = YEnd SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)X2 = XY2 = YX3 = X3 + X2 - X1Y3 = Y3 + Y2 - Y1Picture1.ClsIf HScroll1.Value <> 100 Then'使用鼠标移动图片Picture1.PaintPicture Picture2.Picture, X3, Y3, _Picture1.Width * HScroll1.Value / 100, _Picture1.Height * HScroll1.Value / 100'使用PaintPicture方法ElsePicture1.PaintPicture Picture2.Picture, X3, Y3, _Picture1.Width, Picture1.HeightEnd IfPicture2.Visible = FalseEnd Sub四、设计方案的完善及目前存在的问题1．设计方案要完善的地方①没有对错误文件的处理②当图片过大时不能全部显示③界面不够美观2. 目前存在的问题①片信息显示不是很完善②鼠标拖动效果不理想③图片不能铺满图片框五、本次设计的收获及心得体会真正了解了vb的含义和用途。
课程设计图片浏览器
目录《程序设计语言（VB）》课程设计一、设计目的1、进一步掌握程序的三大基本结构；2、进一步掌握算法设计；3、进一步理解程序调试；4、综合利用上述知识，学习设计并编写简单应用程序；5、培养学生团结协作的能力；二、环境配置要求硬件配置：586以上PC兼容机或品牌机，配有彩色显示器、鼠标、键盘，内存不小于64MB，硬盘自由空间不少于200MB。
推荐配置为内存128MB或256MB（或以上），硬盘自由空间500MB以上。
操作系统：Windows2000/NT/Xp、VB集成开发环境。
三、设计题目图片浏览器（一）系统的主要功能⑴程序启动后，单击“指定文件夹”按钮，弹出“指定文件夹”对话框，从中选择计算机中某个有图片的文件夹。
单击“确定”后，程序自动搜索指定文件夹中扩展名为.jpg、.bmp、.ico、.cur和.gif的图片文件，讲图片文件名显示在主窗口左边的列表框中，并将当前的图片文件夹名显示在主窗口的底部。
⑵指定了图片文件夹之后，程序在主窗口右部的显示区显示第一幅图片。
这时，使用鼠标单击列表中的文件名、使用键盘上的方向键、使用工具栏上的“前一幅图片”和“下一幅图片”按钮都可以显示不同的图片。
使用“第一幅图片”和“最后一幅图片”可以显示列表中的第一副和最后一幅图片。
浏览图片时，窗口左下角显示图片总数以及当前显示图片的序号。
⑶单击工具栏上的“自动播放”按钮，程序自动以每秒一幅的速度以幻灯片形式循环显示所有图片。
在自动播放时，鼠标、键盘和工具栏上的其他按钮仍可以正常使用。
自动播放时，“自动播放”按钮变为，单击停止自动播放。
单击“退出”按钮关闭本程序。
⑷为了最大限度地使用屏幕的显示能力，要求程序主窗口可以通过拖动边框、单击“最大化”、“最小化”和“还原”按钮来改变其大小。
主窗口改变大小时，上面所有的控件都应调整其大小与位置来保证正常的显示效果。
（5）工具栏上的按钮根据程序的运行状态自动变为有效或无效。
例如，在程序未指定文件夹时，中间五个按钮全为无效灰色状态，；如果显示的是最后一幅图片，则“下一幅图片”和“最后一幅图片”按钮应为无效。
图片浏览器的课程设计报告
电子信息工程专业课程设计题单班级 0882053 学生张彬彬课程名称专业课程设计课题图片浏览器的实现设计要求利用visual C#开发工具实现一图片浏览器。
要求完成以下功能：1、打开多张图片，可以控制前后图片的浏览2、可以设置图片的显示方式：全屏或置顶等3、在运行状态中隐藏界面，显示在托盘程序中课题发给日期 2011-6-10 课程设计完成日期 2011-6-21 指导教师方芳等评语：评分：摘要此次课程设计的课题是图片浏览器，通过Visual Studio软件完成。
拿到课题感觉不是很难，只需要用pictureBox1将图片显示出来。
但当开始编程序的时候，就发现了不少问题。
比如说：如何将图片地址全部扫描进来，并存储、什么是在运行状态中隐藏界面，显示在托盘程序中等等都是课本上没有的或者以前没学过的。
于是我们通过图书馆查阅资料，参考程序并在老师的指导下将课题完成了，实现了图片的上一张下一张浏览、放大、缩小、全屏、等要求的功能，并添加了定时器，能实现简单的循环播放功能。
关键字：图片浏览器、全屏、上一张、下一张目录摘要 (2)第一章流程图及功能描述 (3)第二章概要设计及详细设计 (4)第三章调试及结果分析 (8)第四章总结 (13)第五章参考文献 (14)附录程序代码 (15)第一章流程图及功能描述1.1流程图图片浏览器程序流程图1.2功能描述运行程序后如不查找图片所在文件夹，则不能使用。
查找后，将文件夹内JPG、GIF等格式的图片地址扫描存储在listbox内，通过改变其索引实现上下张浏览等功能，扩大缩小等功能则是通过改变pictureBox1的高宽来实现的。
第二章概要设计及详细设计2.1 概要设计利用visual C#设计一个图片浏览器，能完成浏览的基本功能。
2.2 详细设计a:扫描文件夹图片FolderBrowserDialog folder = new FolderBrowserDialog();if (folder.ShowDialog() == DialogResult.OK){listBox1.Items.Clear();PPath = folder.SelectedPath;DirectoryInfo Dinfo = new DirectoryInfo(PPath);FileSystemInfo[] FSinfo = Dinfo.GetFileSystemInfos();for (int i = 0; i < FSinfo.Length; i++){string FileType =FSinfo[i].ToString().Substring(FSinfo[i].ToString().LastIndexOf(".") + 1, (FSinfo[i].ToString().Length -FSinfo[i].ToString().LastIndexOf(".") - 1));FileType = FileType.ToLower();if (FileType == "jpg" || FileType == "png" || FileType == "bmp" ||FileType == "gif" || FileType == "jpeg"){listBox1.Items.Add(FSinfo[i].ToString());}}b:图片的放大if (pictureBox1.Height <= 800 && pictureBox1.Width <= 1000){pictureBox1.Height = pictureBox1.Height * 2;pictureBox1.Width = pictureBox1.Width * 2;}c:图片的缩小if (pictureBox1.Height >= 40 && pictureBox1.Width >= 60){pictureBox1.Height = pictureBox1.Height / 2;pictureBox1.Width = pictureBox1.Width / 2;}d:图片的上下张浏览try{if (listBox1.SelectedIndex != 0){ button4.Enabled = true;listBox1.SetSelected(listBox1.SelectedIndex - 1, true);}else button1.Enabled = false;}catch { }pictureBox1.Image = Image.FromFile(PPath + "\\" +listBox1.SelectedItem);}//当浏览到最后一张时下一张功能失效try{if (listBox1.SelectedIndex < listBox1.Items.Count - 1) {button1.Enabled = true;listBox1.SetSelected(listBox1.SelectedIndex + 1, true);}else button4.Enabled = false;}catch { }pictureBox1.Image = Image.FromFile(PPath + "\\" +listBox1.SelectedItem);}//当浏览到最后一张时下一张功能失效e:全屏及还原（对API不太了解所以直接将实验室电脑屏幕大小赋给picturebox）if (button6.Text == "全屏"){button6.Text = "还原";pictureBox1.Height = 690;pictureBox1.Width = 1280;}else{button6.Text = "全屏";pictureBox1.Height = 440;pictureBox1.Width = 429;}f:显示在托盘中在窗体中放置notifyIcon控件，导入图标。
资料：vb图片浏览器报告书
河北工业大学计算机软件技术基础（VB ）课 程 设 计 报 告 书学院 土木工程 班级 交通运输051 设计人 吴会博 学号 051318一、 设计题目：图片浏览器程序二、 设计思路：建立两个窗体，在窗体1选择图片，窗体2中显示图片。
在窗体1上建立DirListBox 、 DriveListBox 、 FileListBox 、PictureBox 、commandbutton 等控件。
DriveListBox ， DirListBox ， FileListBox 用于选择图片。
若选择的路径下有适合的图片格式则在FileListBox 中显示出来。
若不合适则不显示。
Commandbutton 用于关闭浏览器。
控件大小随窗体大小可变化。
PictureBox 建在窗体2中用于显示图片。
窗体大小随图片大小变化而变化。
单击窗体1中的图片由Form2.Picture1.Picture = LoadPicture(Form1.File1.FileName)在PictureBox 中显示出来。
三、 过程调用关系： 四、 程序清单： Form1 (文件选择):Option ExplicitDim w As Single '记录原窗体宽度和高度的变量Dim h As SingleDim ww() As SingleDim hh() As SingleDim mleft() As Single '记录原窗体中个控件的宽度，高度，起始坐标点的数组 Dim mtop() As SinglePrivate Sub Command1_Click()End '结束程序End SubPrivate Sub Dir1_Change()File1.Path = Dir1.Path '取得当前文件夹的文件End SubDirListBox FileListBoxPictureBoxDriveListBoxPrivate Sub Drive1_Change()On Error GoTo eva '错误处理！Dir1.Path = Drive1.Drive '取得当前驱动器下的文件夹Exit Subeva: Drive1.Drive = "C" '错误处理跳转！ResumeEnd SubPrivate Sub File1_Click()ChDrive Drive1.Drive '改变当前用户选择目录为工作目录！ChDir Dir1.PathFile1.Pattern = "*.bmp;*.jpg;*.gif"Form2.Picture1.Picture = LoadPicture(Form1.File1.FileName) '显示图象Form2.Width = Form2.Picture1.WidthForm2.Height = Form2.Picture1.Height '窗体大小随图片大小变化End SubPrivate Sub Form_Load()w = Me.Widthh = Me.HeightReDim ww(0 To Count)ReDim hh(0 To Count) '记录原窗体个控件的宽度，高度，起始坐标点ReDim mleft(0 To Count)ReDim mtop(0 To Count)Dim i As SingleFor i = 0 To Count - 1ww(i) = Me.Controls(i).Widthhh(i) = Me.Controls(i).Heightmleft(i) = Me.Controls(i).Leftmtop(i) = Me.Controls(i).TopNext iFile1.Pattern = "*.bmp;*.jpg;*.gif"Form1.Height = Screen.Height '设置窗体高度App.Title = "" '消除在任务管理器里的应用程序显示Move 0, 0 '设置窗体在屏幕左上角Form2.ShowEnd SubPrivate Sub Form_Resize()Dim j As SingleDim k As SingleDim i As Singlej = Me.Width / wk = Me.Height / h '记录调整比例For i = 0 To Me.Count - 1Command1.Width = ww(i) * jCommand1.Height = hh(i) * k * 2Command1.Left = mleft(i) * j + 300Command1.Top = mtop(i) * k + 6000Dir1.Width = ww(i) * j + 600Dir1.Height = hh(i) * k * 10Dir1.Left = mleft(i) * jDir1.Top = mtop(i) * k + 300File1.Width = ww(i) * jFile1.Height = hh(i) * k * 10File1.Left = mleft(i) * j + 2500File1.Top = mtop(i) * k + 300Drive1.Width = ww(i) * j + 600Drive1.Left = mleft(i) * jDrive1.Top = mtop(i) * kNext iEnd SubForm2 (图象显示)：Option ExplicitPrivate Sub Form_Load()With Form2.Width = Screen.Width - Form1.Width.Height = Screen.HeightEnd WithMove Screen.Width - Form2.Width, 0 '设置窗体在右上角Picture1.AutoSize = TrueEnd Sub五、完善方案将图片可以像windows自带的图片浏览器一样可以放大，缩小，水平旋转，垂直旋转等。