Vb课程设计-图片浏览器课程
VB 图片浏览器
沈阳航空航天大学课程设计任务书学院：空军后备军官学院专业：飞行器制造工程班级：04030103 学号：2010040301102 题目：图片浏览器一、课程设计时间2012年3月12日~18日（第2周），共计1周。
二、课程设计内容能够对指定文件夹中的图片文件(不少于10个)按照顺序一一浏览，最后一个图片的下一个是第一个图片，第一个图片的前一个是最后一个图片，图片格式可以包括.bmp和.jpg两种。
用户界面中的菜单（或命令按钮）至少应包括“定位文件夹”、“上一个图片”、“下一个图片”、“退出”4项。
提示：可使用DriveListBox、DirListBox和FileListBox控件。
三、课程设计要求程序质量：✧贯彻事件驱动的程序设计思想。
✧用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。
✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。
课程设计说明书：✧课设结束后，上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字指导教师：___杨__煦___ 学生签名：________五、成绩六、教师评语目录一、需求分析 (4)二、设计分析 (4)三、关键技术 (6)四、总结 (6)五、完整的源程序 (15)六、参考文献 (19)一、需求分析图片浏览器，本程序主要要求实现能够按照顺序一一浏览指定文件夹内的图片文件（不少于10张），我自己添加了缩放视图、幻灯片浏览、全屏视图等修饰功能。
经过仔细研究分析，我决定将该图片浏览器设计为由八个控件和一系列菜单组成，有DriveListBox盘符，DirListBox文件夹和FireListBox文件列表（这三个没运行时是隐藏的，查找图片之后也是隐藏的），一个Image控件用来显示图片，一个Timer控件用于幻灯片浏览时控制浏览速度，VScroll控制缩放大小，另外就是两个Command命令按钮（窗体加载时隐藏，加入图片之后显示）。
VB图片浏览器
VB图片浏览器今天，我们将创建一个能够浏览图片内容的应用程序。
当选中所要显示的图片文件名时，应用程序就会显示出图片的内容。
运行结果如图所示。
运行结果技术要点●过滤图片文件●文件管理控件的使用(Drive,List,File控件)●滚动条的使用●缩放图片实现步骤■新建项目打开Visual ，选择“新建项目”，在项目类型窗口中选择“Visual Basic项目”，在模板窗口中选择“Windows应用程序”，在名称域中输入“PicViewer”，然后选择保存路径。
单击“确认”。
■添加控件向当前窗体上添加一个DriveListBox控件，一个DirListBox控件，一个FileListBox控件，用来确定图形文件的位置。
另外添加两个Picture控件，用于控制图形的显示。
另外是一个CheckBox用于控制是否按照控件大小缩放图形，一个Button按钮用来退出程序。
还需要添加一个HscrollBar控件和一个VscrollBar控件，当图片不缩放时，且图片大小超出显示区域时，则HscrollBar控件和VscrollBar控件可用。
■设置属性切换到“属性栏”，对控件进行属性设置，详细情况见表。
控件属性值■添加代码'是否缩放图形Private Sub Check1_CheckStateChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Check1.CheckStateChangedIf Check1.CheckState Then'如果是，则需要重新设置Image控件的大小，否则不能正确显示Image1.Left = 0Image1.Top = 0Image1.Height = picview.Height - 10Image1.Width = picview.Width - 10'设置缩放属性为真Image1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImageShowPic()ElseImage1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.NormalShowPic()End IfEnd Sub'退出应用程序Private Sub Button1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button1.ClickMe.Close()End Sub'当目录改变时，文件显示也作相应的改变Private Sub Dir1_Change(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Dir1.ChangeFile1.Path = Dir1.Path'如果有图片的话，则显示第一个图片If File1.FileName = "" ThenExit SubElsepicview.BackgroundImage = System.Drawing.Image.FromFile("") End IfEnd Sub'当驱动器改变时，目录作相应的改变Private Sub Drive1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Drive1.SelectedIndexChangedDir1.Path = Drive1.DriveEnd Sub'单击文件时，显示图片Private Sub File1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles File1.SelectedIndexChangedShowPic()End SubSub ShowPic()'如果没有图片，则退出If File1.FileName = "" ThenExit SubEnd IfImage1.Image = System.Drawing.Image.FromFile(File1.Path & "\" & File1.FileName)'将图片的高和宽与picview的高和宽进行比较，如果都小于，则不显示滚动条If Image1.Width > picview.Width Then'如果宽大于picview的宽，则显示水平滚动条Image1.Left = 0hsc.Visible = Truehsc.Value = 0hsc.Maximum = Image1.Width - picview.Width + rgeChange - 1hsc.SmallChange = Image1.Width \ 20rgeChange = Image1.Width \ 10ElseImage1.Left = (picview.Width - Image1.Width) \ 2hsc.Visible = FalseEnd If'如果高大于picview的高，则显示垂直滚动条If VB6.PixelsToTwipsY(Image1.Height) > VB6.PixelsToTwipsY(picview.Height) ThenImage1.Top = VB6.TwipsToPixelsY(0)vsc.Visible = Truevsc.Value = 0vsc.Maximum = Image1.Height - picview.Height + rgeChange - 1vsc.SmallChange = Image1.Height \ 20rgeChange = Image1.Height \ 10ElseImage1.Top = (picview.Height - Image1.Height) \ 2vsc.Visible = FalseEnd IfEnd Sub'横向移动滚动条Private Sub hsc_Scroll(ByVal eventSender As System.Object, ByVal eventArgs AsSystem.Windows.Forms.ScrollEventArgs) Handles hsc.ScrollSelect Case eventArgs.TypeCase System.Windows.Forms.ScrollEventType.EndScrollImage1.Left = eventArgs.NewValueEnd SelectEnd Sub'纵向移动滚动条Private Sub vsc_Scroll(ByVal eventSender As System.Object, ByVal eventArgs AsSystem.Windows.Forms.ScrollEventArgs) Handles vsc.ScrollSelect Case eventArgs.TypeCase System.Windows.Forms.ScrollEventType.EndScrollImage1.Top = eventArgs.NewValueEnd SelectEnd Sub■运行程序单击菜单“调试|启动”或单击图标运行程序。
(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制作图片浏览器
教学目标
1．知识目标：掌握VB控件——驱动器列表DriveListBox、目录列表DirListBox、文件列表FileListBox；窗体的Resize事件；窗体间的信息传递；
2．能力、情感目标：
通过完成图片浏览器的制作，培养学生的分析问题能力、应用VB解决问题能力和程序调试能力。
引出今天的题目：制作我的图片浏览器（DIY）
二．新课
展示课堂总任务
观察
思考
用查找工具找出本地硬盘的所有图片文件（*.BMP;*.JPG;*.GIF）。
用教学用例（图片浏览器）浏览、查看图片文件。
展示总任务：用VB制作一个自己的图片浏览器。
（停止广播）
让学生通过查找图片文件掌握文件通配符的使用。（复习巩固）
软件不出错
功能完整
功能强大
代码清晰易读
答题思路清晰
20分
10分
10分
30分
10分
10分
10分
给出教学案例，分析程序功能
演示教师事先完成的示例
任务分析
思考
回答提问
完成最简单的图片浏览器：
（给定盘符路径文件名，打开该图片文件进行浏览）
观察控件：
驱动器列表DriveListBox
目录列表DirListBox
文件列表FileListBox
思考：
如何利用三控件去打开任意一个文件？
如何在文件列表中只显示图片文件？
回答
（窗体的关联技术）
（广播）
讲解关键技术：
浏览图片
问题：如何在窗体中浏览图片？
如何实现动态显示不同图片?
Image1 = LoadPicture3;文件名
vb课程设计浏览器
**课程设计IE浏览器课程设计报告单位 ** 分院(系) 专业**学号 **学生姓名 **指导教师 **完成日期 *年 *月*日摘要随着网络的不断发展，网页浏览器作为上网的所必需的软件之一，已经得到了广泛地应用。
在IE独霸一方的背景下，国内外各式各样的浏览器软件都如雨后春笋般孕育而生。
网页浏览器的开发与应用更是成为了计算机领域近年来的一大热点。
本文围绕着浏览器的编程与开发，讲述了在Visual Basic 6.0中进行浏览器开发的一些技术和笔者的自己的心得，着重讲解了毕业设计中所实现的一个浏览器程序。
在对浏览器的阐述中，又是以Visual Basic 6.0中含有的WebBrowser控件为核心，以程序原代码的模块分类为线索，对FrmBrowser窗体、FrmOpen窗体、FrmOptions窗体三大主要窗体文件以及本浏览器的两大特色功能—多页面显示和捕捉弹出式窗口进行了详细的介绍。
最后并把本次实现的作品与当今流行的Internet Explorer、Opera、傲游和腾讯TT浏览器相比较，做出了本次毕业设计的总结。
意在让广大读者了解浏览器开发的一系列过程，并为自己今后在计算机方面的发展道路上打下坚实的基础。
关键词：1、浏览器2、可视化程序设计3、窗体4、事件；目录1.选题的意义 (3)2．预定功能 (4)3．系统设计 (5)3.1界面设计 (5)3.2运行界面与主要功能说明 (10)4．总结 (14)4.1总结 (14)参考文献 (15)第一章选题的意义希望通过制作简易IE浏览器来掌握VB有关内容的使用方法！随着时代的发展，计算机已经不是前些年仅仅是少数人才可以运用/使用的局面，取而代之的是许许多多的家庭有了计算机，几乎所有的学校也开设了计算机课程，所以面对熟悉而又陌生的工具——计算机，教学必须开设本次课程设计，以满足学生对运用计算机的能力！这次课程设计分了许多题目，本设计是软件类——利用Microsoft Visual Basic开发ＩＥ浏览器。
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：图片浏览器扩大的情况：............................................ 错误!未定义书签。
VB实验4
北京电子科技学院（BESTI）实验报告课程：可视化程序设计班级：姓名：学号：成绩：指导教师：徐日实验日期：2014.05.13 实验密级：预习程度：实验时间：15:30~18:00 仪器组次：F21 必修/选修：选修实验序号： 4实验名称：多媒体程序设计实验目的与要求：目的：1、掌握多媒体编程，会多媒体典型控件的编程应用；2、培养运用编程解决问题的能力，提高计算机编程能力；3、引导和培养具有认真严谨的实验态度和勇于实践的学习精神。
实验仪器：名称型号数量微机ASUS 1一、实验内容：题一：图片浏览器1、题目：2、编程设计思想：按照老师给定提示在窗体中添加控件，添加两个Button控件实现浏览和退出。
使用三个label控件分别显示提示语，使用说明和文件路径。
设置Button1的click事件，利用try-catch-end-try语句寻找图片，先用if-then-end-if语句判断打开的文件夹中是否有图片，如果没有图片并弹出提示框提醒用户该文件夹中没有图片文件。
设置picturebox1的鼠标点击事件，判断用户按了哪个鼠标按钮，如果是左键，则n 加1，否则n减1，然后调用过程showimage显示第n幅图像；设置form1的keydown事件，判断用户按了哪个键盘按钮，如果是空格键（Backspac）或向上翻页键（PageUp），则n加1，否则n减1，然后调用过程showimage显示第n幅图像；附设一个picturebox1的mousehover事件，使用tooltip1组件，当用户将指针悬停在图片上时显示图片浏览操作说明。
3、界面设计概要：如下图所示，该实验的窗体的控制菜单栏分为图标，标题“图片浏览器”，最小化按钮，最大化按钮和关闭按钮；窗体工作区包含背景图片与提示用户“浏览”、“退出”按钮，浏览规则显示框与显示图片的picturebox控件。
4、程序源代码：Public Class Form1Dim n As IntegerDim fname() As StringDim fimage() As StringPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickFolderBrowserDialog1.Description = "请选择一个文件夹"FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.DesktopLabel2.Visible = FalseTryIf FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Thenfname =System.IO.Directory.GetFiles(FolderBrowserDialog1.SelectedPath)Label1.Text = fname(0)PictureBox1.Image = Image.FromFile(fname(0))PictureBox1.Visible = TrueEnd IfCatch ex As ExceptionLabel2.Visible = TrueMsgBox("对不起，在文件夹" & fname(n) & "中找不到图片！", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation + MsgBoxStyle.DefaultButton1, "操作提示") '调用Msgbox函数弹出提示框Label1.Text = "单击浏览按钮选择图片"End TryEnd SubPrivate Sub ShowImage()Tryn = IIf(n < 0, UBound(fname), n)n = IIf(n > UBound(fname), 0, n)Label1.Text = fname(n)PictureBox1.Image = Image.FromFile(fname(n))Catch ex As ExceptionEnd TryEnd SubPrivate Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClickn += IIf(e.Button = Windows.Forms.MouseButtons.Left, -1, 1)ShowImage()End SubPrivate Sub Form1_KeyDown(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.KeyEventArgs) Handles Me.KeyDownn += IIf(e.KeyCode = Keys.Back Or e.KeyCode = Keys.PageUp, -1, 1)ShowImage()End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim a As Stringa = MsgBox("您真要退出么？", vbExclamation + vbYesNo + vbDefaultButton2, "退出确认")If a = vbYes ThenEndEnd IfEnd SubPrivate Sub PictureBox1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseHoverToolTip1.SetToolTip(Me.PictureBox1, "单击左键浏览下一张，右键上一张" & vbCrLf & "Backspace或者Page up向前翻页，其他键向下翻页" & vbCrLf & "按下空格键打开浏览") '用户将指针悬停在图片上时显示图片浏览操作说明End SubEnd Class5、个性化设计：1、通过修改form1的属性Icon，插入标志性图标：2、修改form1的属性backgroundImage，加入背景图；3、修改label1、label2、label3的BackColor属性为Transparent，使程序界面更加自然；4、用户将指针悬停在图片上时显示图片浏览操作说明；5、当窗体尺寸变化或者窗体最大化是，图片会随窗体大小的调整而放大、缩小。
图片浏览器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的含义和用途。
VB2010入门教程1：创建图片查看器
教程 1：创建图片查看器Visual Studio 2010在本教程中，您将生成一个从文件加载图片并将其显示在窗口中的程序。
您将学习如何拖动控件（如窗体上的按钮和图片框）、设置控件属性，以及如何使用容器来平滑地调整窗体的大小。
您还将开始编写代码。
您将学习如何：∙创建新项目。
∙测试（调试）应用程序。
∙向窗体中添加基本控件（如复选框和按钮）。
∙使用布局在窗体上定位控件。
∙向窗体中添加“打开文件”和“颜色”对话框。
∙使用 IntelliSense 和代码段编写代码。
∙编写事件处理程序方法。
当您完成时，程序将类似下图所示。
在本教程中创建的图片相关主题步骤 1：创建 Windows 窗体应用程序项目Visual Studio 2010创建图片查看器的第一步是创建 Windows 窗体应用程序项目。
创建 Windows 窗体应用程序项目1.在“文件”菜单上，单击“新建项目”。
2.如果没有使用 Visual Studio 学习版，您需要先选择一种语言。
从“安装的模板”列表中选择“C#”或“Visual Basic”。
3.单击“Windows 窗体应用程序”图标，输入“PictureViewer”作为名称，然后单击“确定”。
Visual Studio 将自动为您创建解决方案。
4.在“文件”菜单上，单击“全部保存”；或者在工具栏上单击“全部保存”按钮，此按钮如下所示。
“全部保存”工具栏按钮6.确认选中“创建解决方案的目录”复选框。
对此进行解释。
9.下图显示 IDE 窗口应具有的外观。
10.IDE 窗口11.12.如果您的屏幕与上面的图片不太一样，请在“窗口”菜单上，单击“重置窗口布局”。
如果缺少任何窗口，请在“视图”菜单上，单击“属性窗口”或“解决方案资源管理器”。
如果有多余的窗口打开，请单击右上角的“关闭”(x) 按钮。
13.查看图片。
从左上角开始沿逆时针方向，图片将依次显示：o主窗口您可在此处执行大部分的工作。
VB6.0程序设计教案_7.1
7.1 制作图片浏览器一、复习1、滚动条的常用属性和常用事件；2、计时器控件的常用属性和常用事件。
二、本节重点1、掌握驱动器列表框控件(DriveListBox)的常用属性和事件；2、掌握目录列表框控件(DirListBox)的常用属性和事件；3、掌握文件列表框控件(FileListBox)的常用属性和事件。
导入：用Visual Basic开发应用程序时，经常需要访问或显示有关驱动器、文件夹及文件的信息。
本节课我们来通过制作小程序，学习如何利用文件控件和相关语句来实现文件访问和管理。
三、内容学习文件系统控件包括驱动器列表框控件(DriveListBox)、目录列表框控件(Dir ListBox)和文件列表框控件(DriveListBox),表中"所属控件"一栏中Drive表示驱动器列表框控件, Dir表示目录列表框控件, File表示文件列表框控件，文件系统控件常用属性如下：1、驱动器列表框控件驱动器列表框控件，通常只显示当前驱动器名称，单击向下箭头，就会下拉出当前系统拥有的所有磁盘驱动器，供用户选择。
驱动器列表框控件的常用属性如下：1）Drive：返回或设置运行时选择的驱动器。
该属性设计时不可用。
Drive 属性的默认值为当前驱动器。
使用格式：对象.Drive [= <字符串表达式>]例如：Drive1.drive=“D:”2）List(运行态属性)：包含有效的驱动连接列表。
3）ListCount(运行态属性)：：连接的驱动器个数。
4）ListIndex(运行态属性)：表示在运行时创建该控件时的当前驱动器的索引。
驱动器列表框控件的常用事件如下：Change事件，该事件当改变所选择的驱动器时，即选择一个新的驱动器或通过代码改变Drive属性的设置时发生。
Private Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd Sub2、目录列表框控件目录列表框控件在运行时显示目录和路径,这个控件可以用于显示分层的目录列表。
课程设计图片浏览器
目录《程序设计语言（VB）》课程设计一、设计目的1、进一步掌握程序的三大基本结构；2、进一步掌握算法设计；3、进一步理解程序调试；4、综合利用上述知识，学习设计并编写简单应用程序；5、培养学生团结协作的能力；二、环境配置要求硬件配置：586以上PC兼容机或品牌机，配有彩色显示器、鼠标、键盘，内存不小于64MB，硬盘自由空间不少于200MB。
推荐配置为内存128MB或256MB（或以上），硬盘自由空间500MB以上。
操作系统：Windows2000/NT/Xp、VB集成开发环境。
三、设计题目图片浏览器（一）系统的主要功能⑴程序启动后，单击“指定文件夹”按钮，弹出“指定文件夹”对话框，从中选择计算机中某个有图片的文件夹。
单击“确定”后，程序自动搜索指定文件夹中扩展名为.jpg、.bmp、.ico、.cur和.gif的图片文件，讲图片文件名显示在主窗口左边的列表框中，并将当前的图片文件夹名显示在主窗口的底部。
⑵指定了图片文件夹之后，程序在主窗口右部的显示区显示第一幅图片。
这时，使用鼠标单击列表中的文件名、使用键盘上的方向键、使用工具栏上的“前一幅图片”和“下一幅图片”按钮都可以显示不同的图片。
使用“第一幅图片”和“最后一幅图片”可以显示列表中的第一副和最后一幅图片。
浏览图片时，窗口左下角显示图片总数以及当前显示图片的序号。
⑶单击工具栏上的“自动播放”按钮，程序自动以每秒一幅的速度以幻灯片形式循环显示所有图片。
在自动播放时，鼠标、键盘和工具栏上的其他按钮仍可以正常使用。
自动播放时，“自动播放”按钮变为，单击停止自动播放。
单击“退出”按钮关闭本程序。
⑷为了最大限度地使用屏幕的显示能力，要求程序主窗口可以通过拖动边框、单击“最大化”、“最小化”和“还原”按钮来改变其大小。
主窗口改变大小时，上面所有的控件都应调整其大小与位置来保证正常的显示效果。
（5）工具栏上的按钮根据程序的运行状态自动变为有效或无效。
例如，在程序未指定文件夹时，中间五个按钮全为无效灰色状态，；如果显示的是最后一幅图片，则“下一幅图片”和“最后一幅图片”按钮应为无效。
资料：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自带的图片浏览器一样可以放大，缩小，水平旋转，垂直旋转等。
VB图片浏览器课程设计
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 的使用方法。
在VB上实现图片浏览实验
一、实验目的
1.学习并掌握Visual Basic，了解建立和运行一个简单的Visual Basic应用程序
的过程。
2.用Visual Basic制作简单的图片浏览器。
二、实验内容
用Visual Basic制作图片浏览器
1.选择下面的控件：
Dir1—目录列表控件，Drive1—驱动器列表控件File1—文件列表控件
Image1—图像控件
2.设置窗口的caption属性为“图片浏览器”，设置image的stretch属性为
True，即所装入的图形能够缩放能够适应图像框大小
3.对相应的控件编写代码
4.执行，选择图片浏览
三、实验运行结果
图片浏览：
四、实验总结
在这之前我们没有练习过在Visual Basic环境下编译程序，对这些还是相当
陌生的。
Visual Basic中采用控件的形式将函数连接起来，而不是VC用函数调用。
总的来说Visual Basic使程序更加简练。
在Visual Basic中运行之后的界面还很美观。
其实对于我们来说从没有接触过的知识不代表我们没有能力去掌握它，通过在图书馆查阅资料，向老师请教，或者在网上搜集资料和同学们互相探讨，最后肯定会有一定的了解，我们不能知难而退，况且在接触过后，发现Visual Basic并没有想象中那么难。
VB第5章 图片浏览器
任务5.4 学习DirectoryInfo类
DirectoryInfo类用来描述一个具体的目录。它与Directory类的 功能相似，但是通过DirectoryInfo类，我们可以更加方便快捷地获取 目录的信息，比如获取目录的名称、获取目录的路径等。与Directory 类不同，DirectoryInfo类是实例类，使用时必须先实例化。实例化格 式为： Dim 对象名 As New DirectoryInfo(实例化目录名称)
任务5.2 学习控件
5.2.2 TreeView控件
2.TreeView控件的常用方法 (1) ExpandAll()方法 ExpandAll()方法可以将TreeView控件中所有结点展开。 (2) CollapseAll()方法 CollapseAll()方法可以将TreeView控件中所有结点折叠。
例如，将列表框ListBox1中选择的数据项设置为第2项（索引为1 ）2）的代It码em为s属：性集合的常用方法 ListBox1.SelectedIndex=1
任务5.2 学习控件
5.2.1 ListBox（列表框）控件
2.ListBox控件的常用事件 (1)SelectedIndexChanged事件
T返re回eV一ie个w控St件ri中ng的类驱型动的器数，组将，该数驱组动中器存下储所着有子子目目录录的都名当称做。其子结点 显示出来。程序效果如图5.6所示。
任务5.3 学习Directory类
《VB面向对象的程序设计》校本课程设计
《VB面向对象的程序设计》校本课程设计一、校本课程：VB面向对象的程序设计教学材料：创编课程类型：讲授型、实验探究型、活动交流型。
授课时间：一学年。
授课对象：高一年级中程序设计的爱好者。
二、校本课程的具体内容：知识与技能：认识VB对象的属性与方法，理解事件、事件过程和事件驱动的概念，了解VB的可视化编程。
过程与方法：熟悉VB界面，制作简单的程序界面，能够通过属性窗口更改对象属性，认识事件和事件过程的概念并制作出一个小程序。
情感态度与价值观：通过实践演示并由学生自己动手操作编辑简单实用小程序，引发学生学习计算机程序的兴趣，从而形成积极主动学习使用计算机解决问题的习惯。
校本课程目录：第一课：我的第一个VB程序第二课编写程序代码第三课：认识各国国旗第四课：做个简单的文本编辑器第五课：“你猜对了吗？”----分支结构的程序设计第六课：让飞机飞起来----循环结构的程序设计第七课：编译软件三、校本课程实施方法和形式：实施方法：教案讲授，学生讨论分析综合实践。
实施形式：教师设计、组织主持，学生设计、集体实践四、校本课程教学评价：部分学生评价：VB程序设计是一个比较抽象的概念，不易理解，但在老师的举一反三的例证和深入浅出的讲解之下，能最大层度的激发我们的兴趣，调动我们学习参与的积极性。
在整个课程中，我们不但能了解了VB的一些最基本的功能，也能简单的编辑一些实用的小程序。
我想，这也为我们以后进一步的学习打下良好的基础。
教师教学自我评价：本校本课程是VB面向对象的程序部分，根据我校学生的自身特点，在教材自身的知识基础上加入了一些常规对话框的制作，如自然数相加自然数的制作，文本框的设计等等，充实了教材的内容，满足了学生的求知欲和好奇心，学生基本能全程参与，积极动手。
经过一学年的学习，学生基本能了解的程序设计的对象的概念，设计并制作一些简单的实用的对象，如仿制操作系统中的文本框，制作文件的保存对话框等等，基本达到了开设这门课的目的。
Vb课程设计-图片浏览器课程
图片浏览器设计报告一、设计思路1.要达到的目的①培养学生综合利用VB语言进行程序设计的能力，主要是利用VB的标准控件进行设计。
②能够打开常见类型的图片，自动进行缩放，适应PictureBox的大小。
③在FileListBox中只列出图片文件。
④使用StatusBar 控件状态条显示图片文件相关信息，包括图片尺寸(单位：象素)、文件大小和日期等。
⑤使用HscrollBar控件对图片进行缩放。
⑤可以轮流显示FileListBox中列出图片文件。
⑥当图片放大超过窗口大小后，可以提供鼠标移动图片显示。
2.关键问题的解决①使用Loadpicture方法在图片框里加载符合格式要求的图片。
②使用FileListBox方法来显示图片。
③使用PaintPicture方法和改变滚动条的Value属性，使图片能够缩放。
④使用Timer事件更改FileListBox的ListCount属性，使图片能自动浏览。
⑤使用MouseMove事件，在图片过大时，通过鼠标移动使图片显示。
二、模块之间的调用关系，或程序流程图三、部分程序关键源代码及注释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 = sbrCenter StatusBar1.Panels.Item(2).MinWidth = 1800StatusBar1.Panels.Item(2).Alignment = sbrCenter StatusBar1.Panels.Item(3).MinWidth = 2400StatusBar1.Panels.Item(3).Alignment = sbrCenter StatusBar1.Panels.Item(4).MinWidth = 3000StatusBar1.Panels.Item(4).Alignment = sbrCenter '设定StatusBar的数量和属性End SubPrivate Sub Dir1_Change()File1.Path = Dir1.PathEnd subPrivate Sub HScroll1_Change()Picture1.ClsMax = 200Min = 1'设定滚动条的最大、最小值。
(vb课程设计)图片浏览器修改后的.doc
图片浏览器设计报告学院土木工程学院班级土木工程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 '装入选定的文件。
vb做一个简单的图片浏览器谁有代码 (1)
VB做一个简单的图片浏览器，谁有代码？怎么用VB做一个图片浏览器？要求做到可以打开图片文件，可以浏览下一张图片，上一张图片，可以放大和缩小图片，最难的是做简略图。
哪个高手有相关代码啊！？有多少发多少啊！谢谢了。
我是VB新手啊！不太会，呵呵。
大家多多帮助啊！最佳答案我只会做到下面的代码了.其中:Dir1-目录列表控件Drive1-驱动器列表控件File1-文件列表控件Image1-图像控件Text1-文本框控件Option1-单选控件(Caption为"通过单击浏览")Option2-单选控件(Caption为"通过双击浏览")Private Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()On Error GoTo DriErrDir1.Path = Drive1.DriveExit SubDriErr:If Err.Number = 68 ThenIf MsgBox("请问要重试还是取消?", vbRetryCancel + vbCritical, "硬盘不存在或光驱没有插入磁盘!") = vbRetry ThenResume 0ElseDrive1.Drive = "C:"Resume NextEnd IfEnd IfEnd SubPrivate Sub File1_Click()If Option2.Value = True Then Exit SubDim picFile As StringIf Right(Dir1.Path, 1) = "\" ThenpicFile = Dir1.Path + File1.FileName ElsepicFile = Dir1.Path + "\" + File1.FileName End IfImage1.Picture = LoadPicture(picFile)Text1.Text = picFileEnd SubPrivate Sub File1_DblClick()If Option1.Value = True Then Exit SubDim picFile As StringIf Right(Dir1.Path, 1) = "\" ThenpicFile = Dir1.Path + File1.FileName ElsepicFile = Dir1.Path + "\" + File1.FileName End IfImage1.Picture = LoadPicture(picFile)Text1.Text = picFileEnd Sub。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
图片浏览器设计报告一、设计思路1.要达到的目的①培养学生综合利用VB语言进行程序设计的能力，主要是利用VB的标准控件进行设计。
②能够打开常见类型的图片，自动进行缩放，适应PictureBox的大小。
③在FileListBox中只列出图片文件。
④使用StatusBar 控件状态条显示图片文件相关信息，包括图片尺寸(单位：象素)、文件大小和日期等。
⑤使用HscrollBar控件对图片进行缩放。
⑤可以轮流显示FileListBox中列出图片文件。
⑥当图片放大超过窗口大小后，可以提供鼠标移动图片显示。
2.关键问题的解决①使用Loadpicture方法在图片框里加载符合格式要求的图片。
②使用FileListBox方法来显示图片。
③使用PaintPicture方法和改变滚动条的Value属性，使图片能够缩放。
④使用Timer事件更改FileListBox的ListCount属性，使图片能自动浏览。
⑤使用MouseMove事件，在图片过大时，通过鼠标移动使图片显示。
二、模块之间的调用关系，或程序流程图三、部分程序关键源代码及注释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 = sbrCenter StatusBar1.Panels.Item(2).MinWidth = 1800StatusBar1.Panels.Item(2).Alignment = sbrCenter StatusBar1.Panels.Item(3).MinWidth = 2400StatusBar1.Panels.Item(3).Alignment = sbrCenter StatusBar1.Panels.Item(4).MinWidth = 3000StatusBar1.Panels.Item(4).Alignment = sbrCenter '设定StatusBar的数量和属性End SubPrivate Sub Dir1_Change()File1.Path = Dir1.PathEnd subPrivate Sub HScroll1_Change()Picture1.ClsMax = 200Min = 1'设定滚动条的最大、最小值。
Value = 200smallchang = 1largechang = 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 SubPrivate 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.Picture = LoadPicture(tempstring)Picture1.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 IfEnd SubPrivate Sub munfileopen_Click()'菜单栏"打开"CommonDialog1.ShowOpenPicture2.Picture = LoadPicture(CommonDialog1.FileName)Picture1.ClsPicture1.PaintPicture Picture2.Picture, 0, 0, _Picture1.Width, Picture1.Height, 0, 0, _Picture2.Width, Picture2.HeightPicture2.Visible = FalseCommonDialog1.Filter = "pictures|(*.bmp)|*.bmp|pictures|(*.jpg)|*.jpg|pictures|(*.gif)|*.gif|pictures|(*.ico)|*.ico"'设定载入文件的格式munbigger.Enabled = Truemunsmaller.Enabled = Truemunback.Enabled = Truemysize = FileLen(CommonDialog1.FileName)Picture2.ScaleMode = 3StatusBar1.Panels(1) = "图片尺寸:" & _Picture2.ScaleWidth & "×" & Picture2.ScaleHeightStatusBar1.Panels(2) = "文件大小:" & _Int(mysize / 1024 * 10 + 0.5) / 10 & "KB"StatusBar1.Panels(3) = "修改日期:" & "2012-6-21 " & "14:00"End SubPrivate Sub munfileexit_Click()'菜单栏"关闭"Unload MeEnd SubPrivate Sub munbigger_Click()'菜单栏"放大"Picture1.ClsPicture2.Width = Picture2.Width * 0.8Picture2.Height = Picture2.Height * 0.8Picture1.PaintPicture Picture2.Picture, 0, 0, _Picture1.Width, Picture1.Height, 0, 0, _Picture2.Width, Picture2.HeightEnd SubPrivate 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.HeightPicture2.Visible = FalseEnd Sub四、设计方案的完善及目前存在的问题1．设计方案要完善的地方①增加根据图片的长宽比改变PictrueBox的长宽比。
②增加改变窗口大小，窗口上的图片也要做相应的调整。
③完善菜单栏的“打开”功能和鼠标拖动图片功能。
2. 目前存在的问题①菜单栏的“打开”功能不够完善。
②单击鼠标拖动图片功能不能令人满意。
③文件的信息显示不够全面。
五、本次设计的收获及心得体会①在打好基础的前提下，努力拓宽自己的知识面。
②增加练习的时间，把基础做扎实。
六、对该题目和VB设计的意见和建议1. 对该题目的意见和建议①增加对图片文件的简单的编辑功能。
如缩放、裁减、添加文本框等。
②在浏览功能方面，增加全屏浏览、旋转等功能。
2．对本次设计的意见和建议希望老师的提示能更多一些，多提供一些有用的控件和控件的详细使用方法。