自制图片浏览器说明书

目录

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

[返回]