图片浏览器课程设计报告
(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 '装入选定的文件。
java方向课程设计报告—瀑布流图片浏览器
目录1. 概述 (2)1.1 设计目标 (2)1.2 开发工具的选择 (2)2 需求分析 (2)2.1 系统需求 (2)2.2 功能需求 (2)2.3 性能需求 (3)2.3.1 硬件环境 (3)2.3.2软件环境 (3)3 系统设计 (3)3.1 设计思想与处理流程 (3)3.2 系统层次模块图 (3)4数据结构设计 (4)4.1. 数据分析 (4)4.2. 数据库设计 (4)4.2.1. 设计原则 (4)4.2.2. 面向对象数据库设计方法 (4)4.2.3 表信息 (4)5 系统模块实现 (5)5.1登录与注册模块 (5)5.2学生信息添加模块 (5)5.3学生信息浏览模块 (6)5.4学生信息修改模块 (7)6 心得体会 (7)7 参考文献 (8)1. 概述1.1 设计目标为方便用户浏览本地图片资源，设计并开发基于android的图片浏览器。
为了寻求更好的使用体验，使用瀑布流的布局，以及异步加载的方式。
系统目标如下：1.1.1实现自动加载本地SD卡的所有图片，并按照文件夹分类1.1.2界面简洁，操作简单1.1.3使用时不占用系统太大内存1.1.4实现瀑布流的图片布局1.1.5点击一张图片时放大图片1.2 开发工具的选择1.2.1 Eclipse + ADT1.2.2 JDK1.2.3 android SDK2 需求分析2.1 系统需求如今android操作系统的手机人手一台，基于android的多媒体应用快速发展，本项目正式在这样的环境下开发，使用更人性化的瀑布流的布局方式展现图片列表，本项目基于浏览图片为目标，不具备图片编辑美化处理2.2 功能需求根据上述的信息管理系统的业务流程、要求以及所要实现的目标，我们可以拟出以下需求目标：（1）图片按文件夹的分类查看（2）图片的异步加载机制，和动态内存回收机制（3）图片的瀑布流布局，更加优雅的显示图片资源2.3 性能需求系统的运行对于运行环境的要求是；2.3.1 硬件环境目前市面上的android操作系统的手机基本满足要求●内存： 200M或以上●硬盘空间：20M或以上●需要插入SD卡2.3.2软件环境●操作系统：Android 4.2.2●开发软件：Eclipse3 系统设计3.1 设计思想与处理流程本系统采用面向对象方法进行分析和设计，使用纯面向对象的java语言作为开发语言，使用Android作为开发平台，能够很好的实现系统的开发及测试。
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的含义和用途。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
图片浏览器课程设计报
告
文件排版存档编号：[UYTR-OUPT28-KBNTL98-UYNN208]
图片浏览器设计报告
学院土木工程学院班级测绘C111 学号 117544 姓名戴健健成绩
一、设计思路
1.要达到的目的
①培养学生综合利用VB语言进行程序设计的能力，主要是利用VB的标准控
件进行设计。
②能够打开常见类型的图片，自动进行缩放，适应PictureBox的大小。
③在FileListBox中只列出图片文件。
④使用StatusBar 控件状态条显示图片文件相关信息，包括图片尺寸(单
位：象素)、文件大小和日期等。
⑤使用HscrollBar控件对图片进行缩放。
⑤可以轮流显示FileListBox中列出图片文件。
⑥当图片放大超过窗口大小后，可以提供鼠标移动图片显示。
2.关键问题的解决
①使用Loadpicture方法在图片框里加载符合格式要求的图片。
②使用FileListBox方法来显示图片。
③使用PaintPicture方法和改变滚动条的Value属性，使图片能够缩放。
④使用Timer事件更改FileListBox的ListCount属性，使图片能自动浏
览。
⑤使用MouseMove事件，在图片过大时，通过鼠标移动使图片显示。
二、模块之间的调用关系，或程序流程图
=
=
'App 是当前的应用程序对象
= "*.bmp;*.jpg;*.ico;*.wmf"
'在FileListBox中只列出图片文件。
= True
= True
'设定自动缩放，适应PictureBox的大小。
'设定StatusBar的数量和属性
End Sub
Private Sub Dir1_Change()
=
End sub
Private Sub HScroll1_Change()
Max = 200
Min = 1
'设定滚动条的最大、最小值。
Value = 200
smallchang = 1
largechang = 1
'设定Value值的改变量。
, 0, 0, _
* / 100, _
* / 100, 0, 0, _
,
'使用滚动条缩放图片
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
= LoadPicture(tempstring)
If <> 100 Then
'使用鼠标移动图片
, X3, Y3, _
* / 100, _
* / 100
'使用PaintPicture方法
Else
, X3, Y3, _
,
End If
End Sub
Private Sub munfileopen_Click()
'菜单栏"打开"
= LoadPicture
, 0, 0, _
, , 0, 0, _
,
= False
=
"pictures|(*.bmp)|*.bmp|pictures|(*.jpg)|*.jpg|pictures|(*.gif)|*.gif| pictures|(*.ico)|*.ico"
'设定载入文件的格式
= True
= True
= True
mysize = FileLen
= 3
(1) = "图片尺寸:" & _
& "×" &
(2) = "文件大小:" & _
Int(mysize / 1024 * 10 + / 10 & "KB"
(3) = "修改日期:" & "2012-6-21 " & "14:00" End Sub
Private Sub munfileexit_Click()
'菜单栏"关闭"
Unload Me
End Sub
Private Sub munbigger_Click()
'菜单栏"放大"
= *
= *
, 0, 0, _
, , 0, 0, _
,
End Sub
Private Sub munback_Click()
'菜单栏"还原"
= LoadPicture & "\" &
, 0, 0, _
, , 0, 0, _
,
= False
End Sub
四、设计方案的完善及目前存在的问题
1．设计方案要完善的地方
①增加根据图片的长宽比改变PictrueBox的长宽比。
②增加改变窗口大小，窗口上的图片也要做相应的调整。
③完善菜单栏的“打开”功能和鼠标拖动图片功能。
2. 目前存在的问题
①菜单栏的“打开”功能不够完善。
②单击鼠标拖动图片功能不能令人满意。
③文件的信息显示不够全面。
五、本次设计的收获及心得体会
①在打好基础的前提下，努力拓宽自己的知识面。
②增加练习的时间，把基础做扎实。
六、对该题目和VB设计的意见和建议
1. 对该题目的意见和建议
①增加对图片文件的简单的编辑功能。
如缩放、裁减、添加文本框等。
②在浏览功能方面，增加全屏浏览、旋转等功能。
2．对本次设计的意见和建议
希望老师的提示能更多一些，多提供一些有用的控件和控件的详细使用方法。