自制图片浏览器说明书

《自制图片浏览器说明书》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、目录1．课题名称及设计要求………………32．窗体和各种控件的布局………………43．主要控件属性的设计………………　54．界面及程序实现的流程图……………65．主要事件的VB代码……………　96．课程设计的体会………………　1110用VB自制图片浏览器一．设计要求：1．通过多种控件(常用和非常用控件)，让用户方便地从xx盘xx文件夹下选择.xxx扩展名的图片文件在图像区域显示；2．由于原图片大小不等，所以在浏览时，可以指定用原图尺寸还是拉伸至图像区域大小；3.有放大和缩小的控件功能。重要提示：1．本课题中用到的非标准控件，用VB菜单的[工程]-[部件

2、]，然后在“控件”选项卡中勾选“□MicrosoftWindowcCommonControl-26.0”，再单击[确定]后，自动添加到VB控件工具栏中。包括：DriveListBox即驱动器列表控件DirListBox即文件夹列表控件FileListBox即文件列表控件2．使用以上三个列表控件，主要要利用它们的属性值，其中：控件名称属性含义属性值举例DriveListBoxDrive1Drive驱动器名称(返回属性)C:DirListBoxDir1Path盘符和文件夹名称(返回属性)C:ProgramFilesFileListBoxFile1Fi

3、leName文件名和扩展名(返回属性)例如Bjtu.bmpPath盘符和文件夹名称(返回属性)Pattern限制被显示的文件类别*.bmp3．注意图像控件(Image1)的两个重要特性：⑴图片装载，如用代码编写，应该是：Image1.Picture=LoadPicture(图像文件全名)其中的图像文件全名指的是包括盘符、文件夹、文件名.扩展名在内的字符型信息⑵图像控件在显示不同大小的图像时，有个控件图像拉伸(所谓拉伸指让图像文件的尺寸匹配一个指定区间的尺寸，例如匹配Image控件外围的框架尺寸)的属性Stretch，当Stretch=False保持原

4、图尺寸的大小Stretch=True拉伸所以在自制图片浏览器时，要用两个单选按纽由用户选择(在Form_Load事件中要设置为不拉伸，即把Image1.Stretch设置为False)[返回]10二．窗体和各种控件的布局此布局有以下控件组成：框架（Frame）、标签(Label)、组合框（Combo）、复选框（Check）、控制按扭（Command）、图像控件（Image）其中框架Frame1的外面是图像框Image1(显示像框用);Frame1的内部是图像框Image2(显示图片用)。[返回]10三．主要控件属性的设置控件名称属性名称属性值备注Dr

5、iver1Drive运行时选择选中的驱动器Dir1Path运行时选择选中的文件夹File1Path运行时传递传递来的路径Filename运行时选择选中的文件名Combo1List*.bmp*.jpg*.gif*.ico*.*Combo2List原图尺寸拉伸Image1Picturexiangkuang.jpgFrame1Width比Image1稍小HeightCommand1Style1-Graphical三个按扭设置方法相同Command2Caption空白Command3PictureFd、Sx、CloseCheck1Caption显示边框[返回

6、]10四．界面及程序实现的流程图1．运行前的界面如下图所示：此图中的所有控件（标签、框架、驱动器列表控件、文件夹列表控件、文件列表控件、图像控件、控制按扭、组合框、复选框）的属性设置按三的要求完成。102．运行后的界面如下图所示：（下两图为运行时的是实现拉伸放大与原图显示的界面）10程序实现的流程图开始从Drive1控件中选择盘符将Drive属性的值传递给Dir1控件从Dir1控件中选择文件夹名将Path属性的值传递给File1控件从File1控件中选择图形文件名将Path属性的值和Filelname属性的值连接成文件全名在Combo1中选择文件类别

7、将Text属性传递给File1控件将文件全名通过Loadpicture方法传递给图象控件Image1的picture属性在Image1控件中按原图片的尺寸大小显示图片要放(缩小)？要拉伸吗？用Frame1的高度和宽度设置Image1的高度和宽度设置Stretch=TrueYESYES用Frame1的高度和宽度设置Image1的高度和宽度设置Stretch=True将Image1的高度和宽度同时扩大（缩小）10%并设置Stretch=True刷新Image1中的图片显示效果结束[返回]10五．主要事件的VB代码组合框1中选择文件类别时的鼠标单击事件：P

8、rivateSubCombo1_Click()File1.Pattern=Combo1.TextEndSub