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+Acces）》实验报告＊＊＊＊年＊月＊＊日实验题目1选择结构程序设计选课课号2015-2016-2-N081002S00-08034-学院＊＊＊＊＊学院班级＊＊＊＊＊＊＊姓名＊＊＊学号＊＊＊＊＊＊＊＊＊理论课教师李平珍上机指导教师李平珍实验目的及要求：1．掌握条件表达式和分支语句2．正确使用If．．．Then．．．Else和If．．．Then．．．ElseIf等语句3．使用选择性控件实现程序应用编写以下程序段：求一元二次方程ax2+bx+c=0的根设计一个四则运算计算器实验的详细操作步骤、程序代码及运行截图：一．Private Sub Command1_Click()Dim A As Single, B As Single, C As SingleDim R1 As Single, R2 As SingleA = ValB = ValIf B ^ 2 - 4 * A * C < 0 ThenMsgBox "该方程无解."ElseIf B ^ 2 - 4 * A * C = 0 ThenR1 = -B / 2 / AMsgBox "该方程仅有一个根为" & R1 & "."ElseR1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A)R2 = (-B - Sqr(B ^ 2 - 4 * A * C)) / (2 * A) MsgBox "该方程有两个根分别为" & R1 & "和" & R2 & "." End IfEnd Sub二．Private Sub cmdCal-Click()Dim x1 As Single,sign As String,x2 As SingleX1=Val(txtA):sign=txtB:x2=Val(txtC)Case “+”=Str(x1+x2)Case”-“=Str(x1-x2)Case”*”=Str(x1*x2)Case“/”If x2<>0 Then=Str(x1/x2)ElseMsgBox”分母不能为0”End IfCase ElseI=MsgBox(“请重新输入运算符：”vbRetryCancel)If I =vbretry Then =”“ Else EndEnd SelectEnd Sub实验中发现的问题及解决方法：表格之间的距离把握不是很准，通过上方调整距离来实现教师评语成山西财经大学《程序设计（VB+Acces）》实验报告＊＊＊＊年＊月＊＊日Private Sub Form-Click()n=1:pi=0:j=1Do while n<=20Pi=pi+j*1/(2*n-1)j=-jn=n+1Looppi=4*piEnd Sub实验中发现的问题及解决方法：For next语句 if then语句运用不是很熟练教师评语成绩山西财经大学《程序设计（VB+Acces）》实验报告＊＊＊＊年＊月＊＊日实验题目3过程选课课号2015-2016-2-N081002S00-08034-学院＊＊＊＊＊＊＊班级＊＊＊＊＊＊＊＊姓名＊＊＊学号＊＊＊＊理论课教师李平珍上机指导教师李平珍实验目的及要求：1．理解模块和过程的概念和意义，并能够创建和使用模块2．理解传值和引用的概念，并能够正确采用参数传递方式3．理解变量的作用域与生存期，能够正确使用各种变量使用过程求：1！+2！+…+9!,实验的详细操作步骤、程序代码及运行截图：实验中发现的问题及解决方法：Dim 的运用不是很到位，经过学习了解深刻教师评语山西财经大学《程序设计（VB+Acces）》实验报告＊＊＊＊年＊月＊＊日。
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课程设计报告课程设计题目：图片浏览器目录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）》课程设计报告
图片浏览器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实训报告
vb实训报告一、引言VB，即Visual Basic，是一种基于事件驱动的编程语言，由微软公司开发。
通过VB，程序员可以使用图形用户界面（GUI）来创建应用程序。
本报告将详细介绍我在VB实训课程中所学到的知识和经验，以及我的实训项目的设计和实现过程。
二、实训项目概述我的实训项目是一个学生管理系统，旨在帮助学校管理学生的信息和成绩。
通过该系统，学校可以方便地浏览、添加、修改和删除学生的个人信息和成绩记录。
三、系统设计与实现1. 界面设计我采用了经典的菜单栏和工具栏布局，以及直观明了的界面设计。
通过菜单栏和工具栏可以实现对学生信息和成绩的增删改查等基本操作。
2. 数据库设计为了存储学生的信息和成绩，我设计了一个学生数据库。
数据库包括两个表，一个是学生信息表，包含学生ID、姓名、年龄等字段；另一个是成绩表，包含学生ID、科目、分数等字段。
3. 功能实现根据实训要求，我实现了以下功能：- 显示学生列表：从数据库中读取学生信息，并在界面上以表格的形式展示出来，方便用户查看。
- 添加学生：用户可以通过输入学生信息，并点击添加按钮将学生信息保存到数据库中。
- 修改学生信息：用户可以选择某个学生，并对其信息进行修改。
- 删除学生：用户可以选择某个学生，点击删除按钮将其从数据库中删除。
- 成绩输入与查询：用户可以输入学生的科目和分数，并保存到成绩表中。
用户也可以查询某个学生的成绩信息。
四、实训总结通过本次VB实训，我深入了解了VB的基本原理和应用技巧。
我学会了如何设计和实现一个功能完善的学生管理系统，并对数据库操作、界面设计和逻辑编程等方面有了更深入的了解。
在实训过程中，我遇到了一些挑战和困难。
例如，数据库操作时需要注意事务的处理，以保证数据的完整性；界面设计需要符合用户的思维习惯，以提高用户体验。
通过解决这些问题，我不仅提高了自己的技能水平，也对项目开发的重要性有了更深入的认识。
在未来的学习和工作中，我将继续学习和掌握VB以及其他相关技术，不断提高自己的编程能力和项目开发能力。
VB实验报告1-9
实验一：设计简单的VB 应用程序一、实验目的1．掌握Visual Basic 启动和退出的方法。
2．熟悉Visual Basic 的集成开发环境。
3．掌握Visual Basic 程序设计的基本步骤，了解VB 程序的编写、保存和编译的方法过程。
4．初步了解几个常用基本控件控件（标签、命令按钮和文本框）的使用方法。
二、实验类型综合三、实验时间：2013-3-8四、实验任务1、启动Visual Basic ，然后创建一个“标准 EXE ”工程（保存在D 盘以自己学号命名的文件夹中，文件名和窗体名均为SJT ），并了解Visual Basic 集成开发环境下各组成部分及其作用。
2、编一程序，计算任意输入的正整数的平方根。
3、编写一个应用程序，界面如图1-1所示。
窗体中文字“VB 应用程序！”为一标签控件，单击标题为“放大”的命令按钮，则“VB 应用程序！”的字号放大一号，单击“缩小”按钮则反之；同时，窗体中还有4个含某种指向图案的按钮，若单击某个按钮，则使“VB 应用程序！”向该按钮所指向的方向移动50Twip 。
（提示：四种指向的图案可以在Visual Basic 安装目录中的“…graphics\icon\Arrows ”子目录中找到，名称分别为arw07dn.ico 、arw07lt.ico 、arw07rt.ico 和arw07up.ico ）五、实验要求 写出实验报告，内容是：1、第1小题的操作步骤2、第2、3题1).程序的界面设计。
2).程序主要代码。
3).运行结果（输入与输出）。
4).实验总结。
(写上你自己的总结。
可以从以下几个方面来总结：你在编程过程中花时多少？时间是怎么分配的？多少时间在思考问题？遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？)图1-1 实验1-2程序运行实验二：数据的输入和输出一、实验目的1．掌握常量和变量、表达式的基本概念和正确书写格式。
2．掌握基本语句（Print语句、赋值语句、Dim语句等）的使用；3、掌握常用函数的正确使用方法；4、掌握数据的动态输入InputBox和信息提示MsgBox的基本使用方法。
VB实验报告(含答案)
标签
Label3
Caption
浮点数
标签
Label4
Caption
整除数
标签
Label5
Caption
余数除
标签
Command1
Caption
执行除法运算
命令按钮
四．实验思考：
1.温度转换中的Command1命令的单击事件的程序代码是什么？
Private Sub Command1_Click()
5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。
二．实验内容：
1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。
For i = 1 To 10
If max < a(i) Then max = a(i)
If min > a(i) Then min = a(i)
avg = avg + a(i)
Next i
avg = avg / 10
图5-1窗体界面
三．实验结果：对象属性设置
对象
属性
属性值
说明
Label1
Caption
10个100到200之间的整数
标签
Label2
Caption
最大值
标签
Label3
Caption
最小值
标签
Label4
Caption
平均值
标签
Command1
Caption
计算
命令按钮
资料：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并没有想象中那么难。
Visual BasicNET程序设计实验实训指导实验7 浏览图片
2017年8月5日星期六
PictureBox控件
PictureBox 控件用于显示各种格式的图像 ，包括： BMP 、 GIF 、 JPEG 、 PNG、EMF、ICON等格式。 显示图像的方法有两种： （1）设置Image属性。该属性可在运行时或设计时设置。 （2）使用Load()方法（同步）或使用LoadAsync()方法（异步）加载图像。 如果要清除PictureBox控件中的图像，可使用下面语句： PictureBox1.Image = Nothing PictureBox控件的SizeMode属性用于控制图像和控件彼此适合的方式。分为 5种方式，默认方式为Normal。 AutoSize —— 调整控件大小，使其大小与图像大小相同。 CenterImage —— 如果控件比图像大，则图像将居中显示。如果图像比控件 大，则图片将居于控件中心，而外边缘将被剪裁掉。 Normal —— 图像被置于控件的左上角。如果图像比控件大，则该图像将被 剪裁掉。 StretchImage —— 自动缩放图像，使图像适合控件的大小。 Zoom —— 根据控件的大小自动缩放图像，并保持图像的纵横比例不变。
2017年8月5日星期六
Image类
Image类 Image 类 提 供 对 图 像 进 行 操 作 的 方 法 和 属 性 。 如 ， 图 像 的 大 小 （ Size ） 、 宽 度 （Width）、高度（Height）、从文件创建图像（FromFile）、保存图像（Save）等。 下面代码声明变量p是一幅图像，并将图像文件c:\rose.jpg装入到变量p中。 Dim p As Image p = Image.FromFile("c:\rose.jpg") 当要将磁盘的图像文件保存在一个变量中时，不能使用这样的赋值语句： p = "c:\rose.jpg“ 因为"c:\rose.jpg"只是字符串而已，变量p的类型是Image不是String。通常使用Image类 的FromFile()方法将图像文件保存在一个变量中，或用Bitmap类通过现有图像创建新实例。例如， 上面代码可写成： Dim p As Image p = New Bitmap("c:\rose.jpg") 当需要将图像写入磁盘时，可使用Image类的Save()方法。
第二章实验四(续)
第二章实验四（续）--------进入图片浏览器实验任务实验提交形式：将建立的工程文件、两个窗体文件Form1、Form2和自动生成的几个中间文件及本实验中用到的所有图片文件一同放在同一个以自己名字命名的文件夹中并提交上传到多模式教学网。
基本功能：在已经完成的【第二章实验四：图片浏览器】基础上，再添加另外一个窗体，用于设计进入图片浏览器前的提示信息。
三、实验步骤：步骤1）打开VB集成环境，再打开“第二章实验四图片浏览器”的工程文件，并在属性窗口查看并确认窗体名称为Form2。
步骤2）单击菜单命令“工程”|“添加窗体”，打开“添加窗体”对话框，单击“打开”按钮，可添加一个新窗体Form1。
步骤3）在窗体Form1中自行设计用户界面，建立一个计时器和一个标签控件（也可根据自己的设计使用多个标签），并在属性窗口设置标签控件的Caption属性，如“欢迎进入图片浏览器”（要求自行设计标签控件的Caption属性文字内容。
）步骤4）编写Form1中计时器Timer1的Timer事件过程。
要求：运行程序后，自动移动标签（自行设计标签的移动方向，下图供参考）。
计时器Timer1的Timer事件过程可参考第二章-3中【案例七】自动右移标签步骤5）编写窗体Form1的Click事件过程。
要求当单击窗体后，隐藏当前窗体Form1，并自动运行“图片浏览器”窗体Form2。
事件过程如下：Private Sub Form_Click()Form1.HideForm2.ShowEnd Sub步骤6）在右侧的资源管理器中右键单击“工程1(工程1)”，在弹出的下拉菜单中选择“工程1属性(E)...”，打开对话框，单击“启动对象”列表中的Form1，将其设为默认启动，如下图所示。
步骤7）将一个工程文件和两个窗体文件Form1和Form2和所有图片文件一起保存在以自己名字命名的文件夹中。
注意在保存文件过程中自动产生的中间文件也要一起保存和一起提交。
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》课内实验报告
《VB》课内实验报告
学生姓
名:
及学号：
学
院:
班
级:
课程名称：
实验题
目:常用控件的基本操作
指导教师
姓名及职称：
一、实验题目：
常用控件的基本操作
二、实验目的：
1．掌握窗体、文本控件及命令按钮的常用属性、事件和方法
2．掌握框架、选择控件（单选按钮和复选框）、列表框和组合框、滚动条的常用属性、事件和方法。
三、实验内容：
1．设计一个界面如下图所示的程序，要求程序能实现界面所示的编辑操作和字体设计功能。
图2-1
2．设置如下图界面所示的程序，要求程序运行时选中组合框中的某一项，将弹出如下对话框加以说明。
四、实验结果：
实验一
界面
实现操作实验二
五、实验体会或遇到问题：。
(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 '装入选定的文件。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB课程设计报告课程设计题目：图片浏览器目录VB课程设计报告................................................. - 1 - 一.内容摘要..................................................... - 2 - 二．功能描述（含流程图）.. (3)2.1 流程图： (3)2.2 图片浏览器描述（1）..................................... - 3 -2.3 图片浏览器描述（2）..................................... - 3 -2.4 图片浏览器描述（3）..................................... - 3 -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显示图片的情况：......................................... - 7 -5.3：图片浏览器扩大的情况：....................错误！未定义书签。
5.4图片浏览器缩小的情况：................................... - 9 -5．5存在的问题.............................................. - 9 - 六．实验心得.................................................... - 9 - 七．参考文献................................................... - 10 - 八．图片浏览器程序的代码....................................... - 10 -一.内容摘要本程序是在借鉴了WINDOWS系统自带的图片浏览器的基础之上经过VB加工和处理而生成的图片浏览器。
它具有系统图片浏览器的部分基本功能。
而且，和系统中图片浏览器的功能非常相似，使用起来方便灵活，生动直观。
二．功能描述（含流程图）2.1 流程图：图片浏览器程序流程图2.2 图片浏览器描述（1）该图片浏览器由五个控件，有盘符，文件夹和文件列表（没运行时是隐藏的，查找图片之后也是隐藏的），还有一个Image框，布局合理！2.3 图片浏览器描述（2）图片浏览器中的查找图片控件可以查找文件中的图片。
2.4图片浏览器描述（3）该图片浏览器运行之后，盘符，文件夹和文件列表出现，查找到图片之后就会再次隐藏，而图片就会出现。
2.5图片浏览器描述（4）图片浏览器中的扩大和缩小控件按钮可以控制使图片可以放大和缩小。
2.6 图片浏览器描述（5）图片浏览器中的上一张和下一张的控件可以使图片可以上下翻动，与系统中的浏览器无异！三．概要设计3.1 电子式图片浏览器该程序主要由一个图片框来显示系统的图片。
把系统的图片显示在图片上。
随后，电子式图片浏览器完成！四．详细设计4.1盘符，文件夹和文件列表的确定代码如下：Private Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName) Drive1.Visible = FalseDir1.Visible = FalseFile1.Visible = FalseEnd Sub4.2图片显示时，盘符，文件夹和文件列表隐藏代码如下：Private Sub Form_Load()Drive1.Visible = FalseDir1.Visible = FalseFile1.Visible = FalseEnd Sub4.3 图片放大的确定代码如下：Private Sub Command1_Click()Image1.Stretch = TrueImage1.Width = Image1.Width * 2Image1.Height = Image1.Height * 2End Sub4.4 图片缩小的确定代码如下：Private Sub Command2_Click()Image1.Stretch = TrueImage1.Width = Image1.Width / 2Image1.Height = Image1.Height / 2End Sub4.5图片转换到上一张的确定代码如下：Private Sub Command3_Click()n = File1.ListIndexn = n - 1If n >= 0 ThenFile1.ListIndex = nImage1.Picture = LoadPicture(File1.Path & "\" & File1.List(n)) End IfEnd Sub4.6图片转换到下一张的确定代码如下：Private Sub Command4_Click()n = File1.ListIndexn = n + 1If n < File1.ListCount ThenFile1.ListIndex = nImage1.Picture = LoadPicture(File1.Path & "\" & File1.List(n)) End IfEnd SubPrivate Sub Command5_Click()Drive1.Visible = TrueDir1.Visible = TrueFile1.Visible = TrueEnd Sub五．效果及存在问题5.1程序的效果：该程序运行能清楚的显示图片。
而且，不仅可以改变图片的大小，且可以切换图片的上下张。
此图片浏览器与系统的图片浏览器非常相似，不会显示出系统盘符，文件夹和文件的列表！图片浏览器查找图片的运行情况5.2显示图片的情况：图片的浏览情况图片的放大情况图片的缩小情况5.5存在的问题：该程序虽然与系统的图片浏览器相似，但是，没有系统图片浏览器那么友好的界面和那么精巧的控件。
六．实验心得通过几天的课程实验，使我对于VB课程的实验和程序设计有了更深层次的了解，特别是明白了文件操作和图片操作的用法，在老师的指导和帮助以及自己的努力下终于完成了程序设计课题，实现了图片浏览器的操作。
VB的课程设计，对于我们来说是一个锻炼，它提升了我们的编程水平。
几天的上机操作，使我们学到了更多的VB知识，而且我们在编程期间，学会了协作，团结，为我们积累了资本。
总之，这次课程设计让我受益匪浅，我将会继续学习VB知识，提高水平。
七．参考文献1.《VB程序设计》莫德举，夏涛北京邮电大学出版社2.《Visual Basic程序设计综合教程》朱从旭清华大学出版社3.《Visual Basic程序设计》赵万龙中国铁道出版社4.《Visual Basic程序设计基础教程》黄学平中国科学技术出版社八．图片浏览器程序的代码Private Sub Command1_Click()Image1.Stretch = TrueImage1.Width = Image1.Width * 2Image1.Height = Image1.Height * 2Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2End SubPrivate Sub Command2_Click()Image1.Stretch = TrueImage1.Width = Image1.Width / 2Image1.Height = Image1.Height / 2Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2End SubPrivate Sub Command3_Click()n = File1.ListIndexn = ((File1.ListCount + (n - 1)) Mod File1.ListCount)File1.ListIndex = nImage1.Picture = LoadPicture(File1.Path & "\" & File1.List(n))Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2End SubPrivate Sub Command4_Click()n = File1.ListIndexn = ((n + 1) Mod File1.ListCount)File1.ListIndex = nImage1.Picture = LoadPicture(File1.Path & "\" & File1.List(n)) Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2End SubPrivate Sub Command5_Click()Image1.Visible = FalseDrive1.Visible = TrueDir1.Visible = TrueFile1.Visible = TrueEnd SubPrivate Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName) Drive1.Visible = FalseDir1.Visible = FalseFile1.Visible = FalseImage1.Visible = TrueImage1.Top = 50Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2End SubPrivate Sub Form_Load()Image1.Visible = FalseDrive1.Visible = FalseDir1.Visible = FalseFile1.Visible = FalseFile1.Pattern = "*.jpg;*.gif ;*.bmp"End SubPrivate Sub Form_Resize()Command1.Top = Form1.ScaleHeight - 800Command2.Top = Form1.ScaleHeight - 800Command3.Top = Form1.ScaleHeight - 800Command4.Top = Form1.ScaleHeight - 800Command5.Top = Form1.ScaleHeight - 800Command1.Left = Form1.ScaleWidth / 5 * 3 - 1315 Command2.Left = Form1.ScaleWidth / 5 * 4 - 1315 Command3.Left = Form1.ScaleWidth / 5 * 1 - 1315 Command4.Left = Form1.ScaleWidth / 5 * 2 - 1315 Command5.Left = Form1.ScaleWidth / 5 * 5 - 1315 Image1.Top = 50Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2 End Sub。