图片浏览器课程设计报告.docx

图片浏览器设计报告学院土木工程学院班级土木工程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课程设计报告 ...................................................................................................... - 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）》课程设计报告

洛阳理工学院手机软件开发实训报告专业计算机应用技术________________ 班级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度旋转）、图片详细信息、返回预览和删除图片等功能。

浙江工商大学计算机与信息工程学院课程设计报告课程名称：面向对象程序设计专业：计算机科学与技术班级：计科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 图片浏览器课程设计一、课程目标知识目标：1. 学生能理解图片浏览器的功能与作用，掌握其基本操作流程。

2. 学生能了解图片浏览器的界面布局，掌握各功能按钮的作用。

3. 学生能掌握图片的打开、缩放、旋转、保存等基本操作。

技能目标：1. 学生能运用图片浏览器打开不同格式的图片，并进行基本的编辑操作。

2. 学生能运用图片浏览器进行图片的批量处理，提高工作效率。

3. 学生能通过图片浏览器搜索、下载网络图片，丰富自己的图片资源。

情感态度价值观目标：1. 学生培养对计算机软件操作的兴趣，提高信息技术素养。

2. 学生培养良好的网络图片使用习惯，尊重版权，遵循法律法规。

3. 学生通过图片浏览器的使用，学会欣赏美、发现美，提高审美能力。

课程性质：本课程为信息技术课程，注重实践操作，培养学生的动手能力。

学生特点：六年级学生具备一定的计算机操作基础，对新事物充满好奇，喜欢动手操作。

教学要求：结合学生特点，课程设计要注重实践性、趣味性和操作性，使学生在轻松愉快的氛围中掌握图片浏览器的使用技巧。

教学过程中，关注学生个体差异，给予不同层次的学生针对性的指导，确保每个学生都能达到课程目标。

将课程目标分解为具体的学习成果，便于教学设计和评估。

1. 图片浏览器简介：介绍图片浏览器的定义、作用及其在日常生活和学习中的应用场景。

- 教材章节：第一章 计算机软件应用2. 图片浏览器的基本操作：讲解如何打开、关闭、缩放、旋转、保存图片等基本操作。

- 教材章节：第二章 图片浏览器的使用3. 图片浏览器的进阶操作：学习批量处理图片、下载网络图片等高级功能。

- 教材章节：第三章 图片浏览器的进阶技巧4. 图片浏览器实践操作：结合实例，让学生动手操作，巩固所学知识。

- 教材章节：第四章 实践操作5. 图片浏览器的安全与法规：讲解在使用图片浏览器时应遵守的法律法规，提高学生的网络安全意识。

- 教材章节：第五章 网络安全与法规教学安排与进度：第一课时：图片浏览器简介，基本操作（1课时）第二课时：图片浏览器进阶操作，实践操作（2课时）第三课时：图片浏览器安全与法规，总结与拓展（1课时）教学内容注重科学性和系统性，结合教材章节，让学生在掌握图片浏览器基本操作的基础上，进一步提高操作技能，同时培养良好的网络安全意识。

图片浏览器设计报告学院土木工程班级交通运输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 ）课 程 设 计 报 告 书学院 土木工程 班级 交通运输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自带的图片浏览器一样可以放大，缩小，水平旋转，垂直旋转等。

c 图像浏览器课程设计一、课程目标知识目标：1. 学生能够理解并掌握图像浏览器的基本概念和功能；2. 学生能够了解图像浏览器的界面布局，识别并描述各功能按钮的作用；3. 学生能够掌握如何打开、浏览、保存和关闭图像文件。

技能目标：1. 学生能够熟练运用图像浏览器进行图片的查看和管理；2. 学生能够学会使用图像浏览器中的基本工具，如放大、缩小、旋转等；3. 学生能够掌握如何对图片进行简单的编辑操作，如裁剪、调整亮度等。

情感态度价值观目标：1. 培养学生对图像艺术的欣赏能力，激发他们对图像创作的兴趣；2. 培养学生善于观察、发现生活中的美，提高他们的审美素养；3. 培养学生团队协作意识，学会在合作中分享、交流、互相学习。

分析课程性质、学生特点和教学要求：本课程为信息技术课程，旨在帮助学生掌握图像浏览器的使用方法，提高他们在日常生活中处理图像信息的能力。

针对初中年级学生的特点，课程设计注重实践操作，鼓励学生动手实践、主动探索。

教学要求以学生为主体，关注个体差异，确保每个学生都能在课程中取得进步。

二、教学内容1. 图像浏览器概述- 图像浏览器的定义与作用- 常见图像浏览器的介绍2. 图像浏览器的界面与功能- 界面布局与功能按钮识别- 常用功能的操作方法：打开、浏览、保存、关闭图像文件3. 图像浏览器的操作技巧- 图片的查看与管理- 基本工具的使用：放大、缩小、旋转、裁剪、调整亮度等4. 图像浏览器的实践应用- 欣赏与分析经典图像作品- 图像作品的处理与创作教学大纲：第一课时：图像浏览器概述与界面功能认识- 引导学生了解图像浏览器的基本概念和作用- 介绍常见图像浏览器的界面布局，引导学生识别功能按钮第二课时：图像浏览器的操作方法- 教授如何打开、浏览、保存和关闭图像文件- 指导学生掌握基本工具的使用方法第三课时：图像浏览器的实践应用- 欣赏与分析经典图像作品，提高学生的审美能力- 引导学生进行图像处理与创作，培养学生的实际操作能力教学内容与课本关联性：本教学内容紧密结合课本中关于图像浏览器的基础知识，注重实践操作，旨在帮助学生更好地理解和运用所学知识。

洛阳理工学院手机软件开发实训报告专业计算机应用技术班级 Z120551学号 Z12055139姓完成日期 2014-1-6一、简介本款图片浏览器软件基于Android系统平台研发的，设计有透明度、缩放、旋转和选择图片等功能，其中设计涉及8个button按钮，可以实现图片的查看和基本的操作功能，框架结构ImageView有两个子类ImageButton 和QuickContactBadge, ImageButton还有一个子类是 ZoomButton。

二、程序模块划分1.XML文件属性调整边界, 保持长宽比 :android:adjustViewBounds, setAdjustViewBoun ds(boolean), 是否调整自己的边界, 用来保持图片的长宽比例, 该属性与 andr oid:maxHeight 和 android:maxWidth 属性一起使用才有效果, 单独使用没有效果; 设置最大宽, 高 :android:maxWidth(android:maxHeight),setMaxWidth(i nt)[setMaxHeight(int)], 该属性需要与android:adjustViewBounds属性一起使用,单独使用无效果;设置图片固定大小, 同时保持长宽比 : a. 设置android:adjustViewBound s 为 true; b. 设置最大宽度, 高度; c. 设置android:layout_width 与 andro id:layout_height 值为 warp_content; 裁剪保留空白 :android:cropToPaddin g, setCropToPadding(boolean), 是否裁剪, 用来保留ImageView的padding, 该属性与android:scrollY 属性一起使用的时候才有用, 单独使用没有效果; 即在滚动的时候, 滚动到边界, 边界的padding空白是否显示;填充方式 :android:scaleType, setScaleType(ImageView.ScaleType), 设置图片缩放类型以适配ImageView大小, 即填充方式;可能的取值 : matrix, fitXY, fitStart, fitCenter, fitEnd, center, centerCrop, centerInside;matrix : 方法中的常量值为 ImageView.ScaleType.MATRIX, 使用矩阵来进行绘图;fitXY : 方法中的常量值为 ImageView.ScaleType.FIT_XY, 在x y 两个方向上缩放, 使图片完全填充整个ImageView 不按照长宽比例缩放;fitStart : 方法中的常量值为 ImageView.ScaleType.FIT_START, 保持长宽比缩放, 直到该图片完全显示在ImageView中, 缩放完成之后该图片在左上角;fitCenter : 方法中的常量值为 ImageView.ScaleType.FIT_CENTER, 保持长宽比缩放, 直到该图片完全显示在ImageView中, 缩放完成之后该图片位于中央;fitEnd : 方法中的常量值为 ImageView.ScaleType.FIT_END, 保持长宽比缩放, 直到该图片完全显示在ImageView中, 缩放完成之后该图片位于右下角;center : 方法中的常量值为 ImageView.ScaleType.CENTER, 将图片放在ImageView的中央, 不进行缩放;centerCrop : 方法中的常量值为 ImageView.ScaleType.CENTER_CROP, 保持长宽比缩放, 使图片完全覆盖ImageView;centerInside : 方法中的常量值为 ImageView.ScaleType.CENTER_INSIDE, 保持长宽比缩放, 是的ImageView完全显示图片;（1）程序运行的AndroidManifest描述：【AndroidManifest.xml】<?xml version="1.0"encoding="utf-8"?><manifest xmlns:android="schemas.android./apk/res/android"package=".lyc.pic"android:versionCode="1"android:versionName="1.0"><application android:icon="drawable/icon"android:label="string/app_name"><activity android:name=".MianActivity"android:label="string/app_name"><intent-filter><action android:name="android.intent.action.MAIN"/><categoryandroid:name="UNCHER"/></intent-filter></activity><uses-sdk android:minSdkVersion="8"/></application></manifest>（2）程序界面布局XML文件 : 【activity_main.xml】<LinearLayout xmlns:android="schemas.android./apk/res/android"xmlns:tools="schemas.android./tools"android:layout_width="match_parent"android:layout_height="match_parent"android:background="drawable/bg_im"android:orientation="vertical"><LinearLayoutandroid:orientation="horizontal"android:layout_height="wrap_content"android:layout_width="fill_parent"android:padding="5dp"android:gravity="center"><Buttonandroid:id="+id/alpha_plus"android:layout_height="fill_parent" android:layout_width="fill_parent" android:layout_weight="1"android:text="透明度+"android:background="drawable/bg_bt" android:onClick="onClick"/><Buttonandroid:id="+id/alpha_minus"android:layout_height="fill_parent" android:layout_width="fill_parent" android:layout_weight="1"android:text="透明度-"android:background="drawable/bg_bt"android:onClick="onClick"/><Buttonandroid:id="+id/prev_page"android:layout_height="fill_parent" android:layout_width="fill_parent" android:layout_weight="1"android:text="上一"android:background="drawable/bg_bt" android:onClick="onClick"/><Buttonandroid:id="+id/next_page"android:layout_height="fill_parent" android:layout_width="fill_parent" android:layout_weight="1"android:text="下一"android:background="drawable/bg_bt" android:onClick="onClick"/></LinearLayout><LinearLayoutandroid:orientation="horizontal"android:layout_height="wrap_content"android:layout_width="fill_parent"android:padding="5dp"android:gravity="center"><Buttonandroid:id="+id/big"android:layout_height="fill_parent" android:layout_width="fill_parent" android:layout_weight="1"android:text="放大"android:background="drawable/bg_bt" android:onClick="onClick"/><Buttonandroid:id="+id/small"android:layout_height="fill_parent" android:layout_width="fill_parent" android:layout_weight="1"android:text="缩小"android:background="drawable/bg_bt" android:onClick="onClick"/><Buttonandroid:id="+id/turn_left"android:layout_height="fill_parent" android:layout_width="fill_parent"android:layout_weight="1"android:text="左转"android:background="drawable/bg_bt"android:onClick="onClick"/><Buttonandroid:id="+id/turn_right"android:layout_height="fill_parent"android:layout_width="fill_parent"android:layout_weight="1"android:text="右转"android:background="drawable/bg_bt"android:onClick="onClick"/></LinearLayout><ImageViewandroid:id="+id/image_all"android:layout_width="fill_parent"android:layout_height="fill_parent"android:scaleType="fitCenter"android:src="drawable/mary1"/></LinearLayout>2.ImageView常用方法设置位图 : setImageBitmap(bitmap), 为ImageView设置Bitmap位图显示;设置Drawable : setImageDrawable(drawable), 为ImageView设置Drawable显示;设置资源 : setImageResource(int), 为ImageView设置资源图片;设置路径 : setImageUri(uri), 为ImageView设置图片路径, 显示该路径的图片;3. 图片浏览器操作介绍（1）. 实现左右循环切换图片图片数组 : 将图片放在数组中, ImageView显示数组中的图片;当前显示图片下标索引 : 设置一个int值, 用来表示当前显示图片数组中的图片, 这个值不是int下标, 这个值设置很大设置成Integer.MAXVALUE / 2, 该值与图片数组的长度进行取模运算结果就是当前显示的图片数组下标值;翻页操作 : 上一页操作就将当前显示索引自减1, 然后模上图片数组大小; 下一页就将当前索引自增1, 然后模上图片数组大小;代码如下 :/设置一个很大的值, 保证前后翻页不会出现异常currentImage = Integer.MAX_VALUE / 2;//为了保证图片能够循环, 这里模运算是关键, 显示图片的下标始终是长度的模image_all.setImageResource(images[ ++currentImage % images.length ]); image_all.setImageResource(images[ --currentImage % images.length ]);（2）. 透明度改变设置当前透明度 : 设置一个当前透明度值, 初始值为255, 255是不透明, 0为完全透明;透明度改变 : 当点击透明度增加按钮的时候, 透明度自增20, 如果结果透明度大于255, 那么改透明度强制设置为255; 当点击透明度见效按钮的时候, 透明度自减20, 当透明度小于0的时候, 透明度强制设置为0;代码如下 ://透明度初始值alpha = 255;//透明度增加alpha += 20;if(alpha >= 255)alpha = 255;image_all.setAlpha(alpha);//透明度减小alpha -= 20;if(alpha <= 0)alpha = 0;image_all.setAlpha(alpha);（3）. 图片的放大缩小获取View组件宽高 : 在Activity普通方法中无法获取到view组件的准确值, 如果想要获取view组件的宽高, 可以在 onWindowFocusChanged()方法中获取;计算每次自增自减的单位值 : 当按下缩放按钮的时候, 就对ImageView的宽高值进行自增自减单位值操作;为ImageView设置宽高 : 即设置LayoutParams, 注意是yo utParams对象;代码如下 :获取宽高 :Overridepublic void onWindowFocusChanged(boolean hasFocus) {// TODO Auto-generated method stubsuper.onWindowFocusChanged(hasFocus);//获取ImageView组件的宽高imageWidth = image_all.getWidth();imageHeight = image_all.getHeight();//计算每次自增自减的值addWidth = imageWidth / 5;addHeight = imageHeight / 5;}缩放图片操作 :case R.id.big: //放大图片imageWidth += addWidth;imageHeight += addHeight;image_all.setLayoutParams(new youtParams(imageWidth , imageHeight));break;case R.id.small: //缩小图片imageWidth -= addWidth;imageHeight -= addHeight;if(imageWidth <= 0 || imageHeight <=0){imageWidth += addWidth;imageHeight += addHeight;}image_all.setLayoutParams(new youtParams(imageWidth , imageHeight));break;（4）. 旋转图片操作设置Matrix对象 : 该对象用来存放图像的旋转角度;设置旋转角度 : matrix.setRotate(), 即可设置旋转角度;创建Bitmap : 创建一个位图, 注意将设置了旋转角度的 matrix 设置上去; 源码如下 :matrix = new Matrix();//向左旋转进行的操作anglel += 45;matrix.setRotate(anglel);Bitmap bitmap = ((BitmapDrawable) getResources().getDrawable(images[cu rrentImage % images.length])).getBitmap();bitmap = Bitmap.createBitmap(bitmap, 0, 0, bitmap.getWidth(),bitmap.ge tHeight(), matrix, true);image_all.setImageBitmap(bitmap);//向右旋转进行的操作anglel -= 45;matrix.setRotate(anglel);Bitmap bitmap1 = ((BitmapDrawable) getResources().getDrawable(images[c urrentImage % images.length])).getBitmap();bitmap1 = Bitmap.createBitmap(bitmap1, 0, 0, bitmap1.getWidth(),bitmap 1.getHeight(), matrix, true);image_all.setImageBitmap(bitmap1);运行结果：心得体会：通过本次生产实习受益匪浅，知道了一个项目的完成步骤和模块的划分，在本次生产实习中遇到的困难是有以下几点：（1）对android软件开发知识掌握的不够，把代码敲出来功能实现了但是还是不知道怎样实现的；（2）对开发软件的过程不是很熟悉一个功能实现了不知道下一步要干什么；（3）对eclipse的调试方法知道的不是很多，所以遇到问题自己却束手无策只能求助，最终在网络和好友的帮助下实现了老师要求的功能。

VB图片浏览器课程设计一、课程目标知识目标：1. 让学生掌握VB编程环境中图片浏览器的制作原理，理解相关函数和控件的使用方法。

2. 使学生了解计算机图片处理的基本知识，如图片格式、像素等概念。

技能目标：1. 培养学生运用VB编程解决实际问题的能力，能够独立设计并实现图片浏览器的基本功能。

2. 提高学生分析问题和解决问题的能力，使其在遇到类似问题时能够迅速找到解决方案。

情感态度价值观目标：1. 激发学生对计算机编程的兴趣和热情，培养良好的学习习惯和团队协作精神。

2. 引导学生认识到编程在生活中的实际应用，提高创新意识和实践能力。

分析课程性质、学生特点和教学要求：1. 课程性质：本课程为信息技术课程，以实践操作为主，注重培养学生的实际编程能力。

2. 学生特点：学生处于初中阶段，对计算机编程有一定的基础，但实践经验不足。

3. 教学要求：结合学生实际情况，以实际操作为主线，注重启发式教学，引导学生主动探究和解决问题。

将目标分解为具体的学习成果：1. 学生能够独立编写出具备基本功能的VB图片浏览器程序。

2. 学生能够运用所学知识，解决图片浏览器在实际应用中遇到的问题。

3. 学生在课程学习中，表现出积极的学习态度和良好的团队协作精神。

二、教学内容1. VB编程基础知识回顾：变量、循环、条件语句等。

2. 图片浏览器功能需求分析：展示图片、切换图片、放大缩小等。

3. VB中与图片处理相关的控件和函数：PictureBox控件、ImageList控件、LoadPicture函数等。

4. 图片浏览器界面设计：界面布局、控件布局和美化。

5. 代码编写与调试：实现图片浏览器的各项功能，并进行调试和优化。

6. 实践项目：分组进行图片浏览器项目实践，培养学生的团队协作和实际编程能力。

教学大纲安排：第一课时：回顾VB编程基础知识，分析图片浏览器功能需求。

第二课时：学习与图片处理相关的控件和函数，介绍PictureBox和ImageList 的使用方法。

课程设计报告课程名称：网络编程技术课程设计设计题目：图片浏览器目录1 需求分析 (2)1.1 课程设计题目 (2)1.2 课程设计要求及功能 (2)1.3 课程设计思想 (2)1.4 软硬件运行环境及开发工具 (2)1.5 功能设计 (2)2 总体设计 (2)2.1 概要设计 (2)2.2程序执行流程图 (3)3 设计内容 (4)3.1 功能的代码 (4)3.2 效果展示 (7)4 调试及操作说明 (8)5 课程设计总结与体会 (8)6 致谢 (9)7 参考文献 (9)图片浏览器——文件下一张模块1 需求分析1.1 课程设计题目图片浏览器课程设计1.2 课程设计要求及功能本次课程设计主要任务是由我们小组所有人员一起工作利用java语言，编写一个图片浏览器的软件，根据老师的要求我们是每个人负责一个模块，但是最后的组装是由组长来完成的。

该图片浏览器所具有的功能有：打开图片、上一张、下一张、放大图片、缩小图片、关闭程序、帮助与支持等基本功能。

1.3 课程设计思想本软件主要使用图形用户界面，JA V A的输入输出流，以及鼠标监听等事件监听器等技术。

在具体实现方面大体上将程序分为事件监听类ViewerFrame，程序入口类main，，事件监听处理类ViewerAction，程序功能实现类ViewerService，文件过滤处理类ViewerFileChooser；通过整合是个各类连接起来形成一个统一的整体进而封装成一个整体，形成一个软件可以方便用户的使用。

本软件类似于现在市面上流行的图片浏览软件但是没有流行的软件那么多功能，但是它使用起来比较简单方便。

1.4 软硬件运行环境及开发工具开发环境：Windows XP下安装了JDK JRE6.0软件；开发工具：Eclipse3.5；1.5 功能设计本图片浏览器主要功能如下：打开：从指定目录中导入选中的图片；上一张：导入当前图片所在存储位置的上一张图片；下一张：导入当前图片所在存储位置的下一张图片；放大：放大显示当前图片；缩小：缩小显示当前图片；退出：退出软件。

《浏览图片》优秀教案范文一、教学目标：知识与技能：1. 让学生掌握使用图片浏览器的的基本操作方法。

2. 培养学生运用信息技术进行探究和解决问题的能力。

过程与方法：1. 培养学生运用信息技术进行探究和解决问题的能力。

2. 培养学生与人合作、交流的能力。

情感态度与价值观：1. 培养学生对信息技术的兴趣和热情。

2. 培养学生尊重他人劳动成果，遵循网络礼仪的意识。

二、教学内容：教学重点：1. 图片浏览器的安装与使用。

2. 图片的简单处理方法。

教学难点：1. 图片浏览器的使用。

2. 图片的处理技巧。

三、教学过程：1. 导入：教师通过向学生展示一些美丽的图片，引起学生的兴趣，进而引出本节课的主题——浏览图片。

2. 讲解：教师讲解图片浏览器的安装与使用方法，包括如何、安装、启动和退出图片浏览器。

3. 演示：教师通过演示的方式，向学生展示如何使用图片浏览器浏览图片，如何进行图片的放大、缩小、旋转等操作。

4. 练习：学生根据教师的讲解和演示，自主进行练习，尝试使用图片浏览器浏览图片，并进行简单的图片处理操作。

5. 总结：教师对学生的练习情况进行总结，指出学生的优点和不足，并对图片浏览器的使用方法进行归纳和总结。

四、教学评价：1. 学生能熟练地使用图片浏览器浏览图片。

2. 学生能进行简单的图片处理操作。

3. 学生能遵循网络礼仪，尊重他人劳动成果。

五、教学资源：1. 图片浏览器软件。

2. 图片素材。

3. 教学PPT。

4. 网络资源。

六、教学步骤：1. 安装图片浏览器：教师指导学生如何从官方网站图片浏览器软件。

教师演示如何安装图片浏览器，包括同意用户协议、选择安装路径等步骤。

学生自行安装，教师巡回指导。

2. 启动与退出图片浏览器：教师演示如何启动图片浏览器，介绍浏览器界面及各功能按钮的作用。

教师演示如何正确退出图片浏览器，强调保存工作的重要性。

学生跟随操作，教师个别辅导。

3. 浏览图片：教师指导学生如何通过文件打开、收藏夹等方式浏览图片。

黔南师院计科系实验报告《易木图片浏览器》——《Java程序设计》课程设计报告系别: 计算机科学系班级： B11计科班学生姓名：林元兵学生学号： 1108075150指导教师：罗刚设计日期： 2013 年 6月一、课程设计目的：1、复习、巩固Java语言的基础知识，进一步加深对Java的理解和掌握；2、将学习Java中的抽象概念与实际动手编程相结合，锻炼学生的分析解决实际问题的能力，培养正确的编程习惯和能力；3、培养学生自主学习能力、创新意识和创新能力。

二、课程设计要求：1、首先要对课程设计题目进行前期分析，规划好所要制作的类、需要实现的功能、需要编写哪些类来实现、类和类之间有什么关系（请对这部分内容进行简单叙述、可以使用UML图）；2、完成的程序要进行相应的的测试，功能要完整，设计要合理，对测试出现的问题进行适当处理，使程序能正确运行；3、设计报告的写法要求：对本次设计/编程的大体思路进行文字描述，并摘抄关键语句；使用GUI编程的，将主要代表界面进行截图放于文档中，没有使用GUI编程的请画出类图，流程图等说明；对本次Java的学习和课程设计进行总结。

4、提交方式：设计报告文档电子版和源程序，统一交到班长或者学习委员处。

5、提交时间： 6月28日。

目录一、项目运行系统要求二、项目功能分析三、项目文件（类）说明3.1、PictureView类3.2、PictureViewWin类3.2.1、PictureViewWin（）方法3.2.2、createTop()方法3.2.3、createCenter()方法3.24、createBottom()方法3.24、reSiziPicture()方法3.2.5、actionPerformed()方法3.3.6、run()方法3.3、ReName(内部类)3.4、musicPlay类3.4.1、musicPlay（）方法3.4.2、actionPerformed（）方法3.5、SettingWin类3.6、Help类四、项目演示五、总结一、项目运行系统要求在运行该程序前，必须先安装JDK，在源文件的的根目录下有jdk-6u16-windows-i586.exe文件，该文件为jdk1.6版本，安装好该文件后即可运行该程序。

图片浏览器设计报告学院土木工程学院班级土木工程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的大小。

StatusBar1.Panels.AddStatusBar1.Panels.AddStatusBar1.Panels.AddStatusBar1.Panels.Item(1).MinWidth = 2000StatusBar1.Panels.Item(1).Alignment = sbrCenterStatusBar1.Panels.Item(2).MinWidth = 1800StatusBar1.Panels.Item(2).Alignment = sbrCenterStatusBar1.Panels.Item(3).MinWidth = 2400StatusBar1.Panels.Item(3).Alignment = sbrCenterStatusBar1.Panels.Item(4).MinWidth = 3000StatusBar1.Panels.Item(4).Alignment = 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 '装入选定的文件。