目录
1．课题名称及设计要求 (3)
2．窗体和各种控件的布局 (4)
3．主要控件属性的设计 (5)
4．界面及程序实现的流程图 (6)
5．主要事件的VB代码 (9)
6．课程设计的体会 (11)
用VB自制图片浏览器
一．设计要求：
1．通过多种控件(常用和非常用控件)，让用户方便地从xx盘\xx文件夹下选择.xxx扩展名的图片文件在图像区域显示；
2．由于原图片大小不等，所以在浏览时，可以指定用原图尺寸还是拉伸至图像区域大小；
3. 有放大和缩小的控件功能。

重要提示：
1．本课题中用到的非标准控件，用VB菜单的[工程]-[部件]，然后在“控件”选项卡中勾选“□Microsoft Windowc Common Control-2 6.0”，再单击[确定]后，自动添加到VB控件工具栏中。

包括：
DriveListBox即驱动器列表控件
DirListBox 即文件夹列表控件
FileListBox 即文件列表控件
3．注意图像控件(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(显示图片用)。

[返回]
三．主要控件属性的设置
[返回]
四．界面及程序实现的流程图
1．运行前的界面如下图所示：
此图中的所有控件（标签、框架、驱动器列表控件、文件夹列表控件、文件列表控件、图像控件、控制按扭、组合框、复选框）的属性设置按三的要求完成。

2．运行后的界面如下图所示：
（下两图为运行时的是实现拉伸放大与原图显示的界面）
程序实现的流程图
五．主要事件的VB代码
组合框1中选择文件类别时的鼠标单击事件：Private Sub Combo1_Click()
File1.Pattern = Combo1.Text
End Sub
组合框2中选择显示样式时的鼠标单击事件：Private Sub Combo2_Click()
If Combo2.Text = "原图尺寸" Then
Image1.Stretch = False
Else
Image1.Width = Frame1.Width - 100 Image1.Height = Frame1.Height - 100 Image1.Stretch = True
End If
End Sub
按纽2中选择[放大]功能时的鼠标单击事件：Private Sub Command2_Click()
Image1.Width = Image1.Width * 1.1 Image1.Height = Image1.Height * 1.1 Image1.Stretch = True
End Sub
按纽3中选择[缩小]功能时的鼠标单击事件：Private Sub Command3_Click()
Image1.Width = Image1.Width / 1.1 Image1.Height = Image1.Height / 1.1 Image1.Stretch = True
End Sub
按纽4中选择[关闭]功能时的鼠标单击事件：Private Sub Command4_Click()
End
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Image1.Picture = LoadPicture(File1.Path + "\" + File1.FileName)
If Check1.Value = 1 Then
Image2.Visible = False
Else
Image2.Visible = True
End If
End Sub
复选框Check1中选择不显示边框时的鼠标单击事件：
Private Sub Check1_Click()
If Check1.Value = 1 Then
Image2.Visible = False
Else
Image2.Visible = True
End If
End Sub
[返回]
六．课程设计的体会
通过本次VB课程设计的实践，本组完成了“用VB自制图片浏览器”课题，通过本课题的学习能掌握根据需要将程序中使用的功能用过程来实现，设置不同控件的属性达到不同的效果。

实现图片浏览应注意以下几点：
1．图形浏览器的关键是记住用户指定的任何位置、任何格式的图形文件全名（盘符:\文件夹\图形文件名.扩展名），本程序是通过以下步骤实现的：
①“请选择驱动器”通过“驱动器列表控件”选择所在的盘符传递给文件夹列表控件,例C:\；
②“请选择文件夹”通过“文件夹列表控件”选择文件夹名称，例C:\图片浏览器，传递给文件列表控件；
③“请选择图片文件名”通过“文件列表控件”选择被显示的图形文件名，并通过代码合成文件全名，例如：
D:\图形文件浏览器\bmp&jpg\zhufu.Gif
④从组合框Combo1中选择图形文件类别，例 *.bmp、*.jpg、* .gif、*.ico、*.*等，通过Pattern属性传递到文件列表控件中，目的是缩小文件名的搜索范围。

2．图像控件在显示不同大小的图像时，图像的拉伸、保持原图尺寸大小以及放大（缩小）功能是用以下原理实现的：
例如：保持原图尺寸，用
Stretch=False
又如拉伸或放大（缩小），用
重新指定图像框Image2 的宽度（Width）和高度(Height);
再重新设置Stretch=True
[返回]。