自制图片浏览器说明书.doc

目 录1课题名称及设计要求32窗体和各种控件的布局43主要控件属性的设计5 4界面及程序实现的流程图 65主要事件的VB代码 96课程设计的体会 11用VB自制图片浏览器一设计要求：1 通过多种控件(常用和非常用控件)，让用户方便地从xx盘xx文件夹下选择.xxx扩展名的图片文件在图像区域显示；2 由于原图片大小不等，所以在浏览时，可以指定用原图尺寸还是拉伸至图像区域大小；3. 有放大和缩小的控件功能。重要提示：1本课题中用到的非标准控件，用VB菜单的工程-部件，然后在“控件”选项卡中勾选“Microsoft Windowc Common Control-2 6.0”，再单击确定后，自动添加到VB控件工具栏中。包括： DriveListBox即驱动器列表控件 DirListBox即文件夹列表控件 FileListBox即文件列表控件 2使用以上三个列表控件，主要要利用它们的属性值，其中：控件名称属性含义属性值举例DriveListBoxDrive1Drive驱动器名称 (返回属性)C:DirListBoxDir1Path盘符和文件夹名称(返回属性)C:Program FilesFileListBoxFile1FileName文件名和扩展名 (返回属性)例如Bjtu.bmpPath盘符和文件夹名称(返回属性)Pattern限制被显示的文件类别*.bmp3注意图像控件(Image1)的两个重要特性：图片装载，如用代码编写，应该是：Image1.Picture=LoadPicture(图像文件全名)其中的图像文件全名指的是包括盘符、文件夹、文件名.扩展名 在内的字符型信息图像控件在显示不同大小的图像时，有个控件图像拉伸(所谓拉伸指让图像文件的尺寸匹配一个指定区间的尺寸，例如匹配Image控件外围的框架尺寸)的属性Stretch，当Stretch=False 保持原图尺寸的大小Stretch=True 拉伸所以在自制图片浏览器时，要用两个单选按纽由用户选择(在Form_Load事件中要设置为不拉伸，即把Image1.Stretch设置为False) 返回二窗体和各种控件的布局此布局有以下控件组成：框架（Frame）、标签(Label)、组合框（Combo）、复选框（Check）、控制按扭（Command）、图像控件（Image）其中框架Frame1的外面是图像框Image1(显示像框用);Frame1的内部是图像框Image2(显示图片用)。 返回三主要控件属性的设置控件名称属性名称属性值备注Driver1Drive运行时选择选中的驱动器Dir1Path运行时选择选中的文件夹File1Path运行时传递传递来的路径Filename运行时选择选中的文件名Combo1List*.bmp*.jpg*.gif*.ico*.*Combo2List原图尺寸拉伸Image1Picturexiangkuang.jpgFrame1Width 比Image1稍小HeightCommand1Style1-Graphical三个按扭设置方法相同Command2Caption空白Command3PictureFd、Sx、CloseCheck1Caption显示边框 返回四界面及程序实现的流程图1运行前的界面如下图所示：此图中的所有控件（标签、框架、驱动器列表控件、文件夹列表控件、文件列表控件、图像控件、控制按扭、组合框、复选框）的属性设置按三的要求完成。2运行后的界面如下图所示：（下两图为运行时的是实现拉伸放大与原图显示的界面）程序实现的流程图开始从Drive1控件中选择盘符将Drive属性的值传递给Dir1控件从Dir1控件中选择文件夹名将Path属性的值传递给File1控件从File1控件中选择图形文件名将Path属性的值和Filelname属性的值连接成文件全名在Combo1中选择文件类别将Text属性传递给File1控件将文件全名通过Loadpicture方法传递给图象控件Image1的picture属性在Image1控件中按原图片的尺寸大小显示图片 要放(缩小)？要拉伸吗？用Frame1的高度和宽度设置Image1的高度和宽度设置Stretch=TrueYESYES用Frame1的高度和宽度设置Image1的高度和宽度设置Stretch=True将Image1的高度和宽度同时扩大（缩小）10%并设置Stretch=True刷新Image1中的图片显示效果结束返回 五主要事件的VB代码组合框1中选择文件类别时的鼠标单击事件：Private Sub Combo1_Click()File1.Pattern = Combo1.TextEnd Sub组合框2中选择显示样式时的鼠标单击事件：Private Sub Combo2_Click()If Combo2.Text = 原图尺寸 ThenImage1.Stretch = FalseElseImage1.Width = Frame1.Width - 100Image1.Height = Frame1.Height - 100Image1.Stretch = TrueEnd IfEnd Sub按纽2中选择放大功能时的鼠标单击事件：Private Sub Command2_Click()Image1.Width = Image1.Width * 1.1Image1.Height = Image1.Height * 1.1Image1.Stretch = TrueEnd Sub按纽3中选择缩小功能时的鼠标单击事件：Private Sub Command3_Click()Image1.Width = Image1.Width / 1.1Image1.Height = Image1.Height / 1.1Image1.Stretch = TrueEnd Sub按纽4中选择关闭功能时的鼠标单击事件：Private Sub Command4_Click()EndEnd 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) If Check1.Value = 1 ThenImage2.Visible = FalseElseImage2.Visible = TrueEnd IfEnd Sub复选框Check1中选择不显示边框时的鼠标单击事件：Private Sub Check1_Click()If Check1.Value = 1 Then Image2.Visible = FalseElse Image2.Visible = TrueEnd IfEnd Sub返回六课程设计的体会通过本次VB课程设计的实践，本组完成了“用VB自制图片浏览器”课题，通过本课题的学习能掌握根据需要将程序中使用的功能用过程来实现，设置不同控件的属性达到不同的效果。实现图片浏览应注意以下几点：1图形浏览器的关键是记住用户指定的任何位置、任何格式的图形文件全名（盘符:文件夹图形文件名.扩展名），本程序是通过以下步骤实现的：“请选择驱动器”通过“驱动器列表控件”选择所在的盘符传递给文件夹列表控件,例C:；“请选择文件夹”通过“文件夹列表控件”选择文件夹名称，例C:图片浏览器，传递给文件列表控件；“请选择图片文件名”通过“文件列表控件”选择被显示的图形文件名，并通过代码合成文件全名，例如：D:图形文件浏览器bmp&jpgzhufu.Gif从组合框Combo1中选择图形文件类别，例 *.bmp、*.jpg、* .gif、*.ico、*.*等，通过Pattern