VB教程：图片框（PictureBox）

文章作者 100test 发表时间 2007:03:10 18:29:33
来源 100Test.Com百考试题网

11、图片框（Picture Box）

作用：添加图形的容器。

在面向对象程序设计过程中，每一个对象的添加都必须有对应的载体或容器。在前面介绍的窗体、框架控件和图片框控件都可以作为容器来添加其他控件，与窗体和框架控件相比，图片框控件用作容器时，具有更多的图形功能。

Picture Box控件支持下列5种图形格式：

• Bitmap位图：它将图像定义为点(像素)的图案。位图的文件扩展名是.bmp或.dib。

• Icon图标：这是一种特殊类型的位图。图标的最大尺寸为32像素x 32像家，但在windows 98下，图标也可为16x16像素大小。图标的文件扩展名为.ico。

• Metafile图元文件：这是将图形定义为编码的线段和图形。普通图元文件扩展名为．wmf。

• JPEG：Internet上一种流行的压缩位图格式，支持8位和24位颜色。

• GIF；Internet上一种流行的压缩位图文件格式，它可支持多达256种颜色。

（1）图片框的特殊属性

Align属性——返回或设置一个值，确定对象是否可在窗体上以任意大小、在任意位置上显示，或是显示在窗体的顶端、底端、左边或右边，而且自动改变大小以适应窗体的宽度。

语法结构：

object.Align [ = number ]

Align 属性的设置值及其说明

设置	数字	说明
VbAlignNone	0	无，可以在设计时或在程序中确定大小和位置
VBAlignTop	1	顶部，对象显示在窗体的顶部，其宽度等于窗体的ScaleWidth属性设置值
VbAlignBotton	2	底部，对象显示在窗体的底部，其宽度等于窗体的ScaleWidth属性设置值
VbAlignLeft	3	左边，对象在窗体左面，其宽度等于窗体的ScaleWidth属性设置值
vbAlignRight	4	右边，对象在窗体右面，其宽度为窗体的ScaleWidth属性设置值

注意：

• 利用Align属性可以很快地在窗体的顶部或底部创建工具栏或状态栏。

• 当Align属性值设置为1或2时，用户改变窗体的大小，控件会自动地改变大小以适合窗体的尺寸。

Appearance 属性——用于设置窗体上PictureBox控件在设计时的绘图风格。它有两个设置值：

0——平面绘制控件和没有可视化效果的窗体

1——带有三维效果的绘制控件

AutoRedraw 属性——用于设置控件使图形持久地输出，即是否具有自动重绘功能。

语法结构：

object.AutoRedraw [ = Boolean ]

Ture——有自动重绘的效果，图形和文本输出到屏幕的同时存储在内存的图像中

False——无自动重绘的效果，且将图形或文本只写到屏幕上

例1：见教材P147。

界面：

代码：

Private Sub Form_Click()

Dim x, y As Integer
Dim r As Integer
Picture1.AutoRedraw = True
x = Picture1.ScaleWidth / 2
y = Picture1.ScaleHeight / 2
For r = 0 To Picture1.ScaleWidth / 2
Picture1.Circle (x, y), r, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next r
Picture1.AutoRedraw = False

End Sub

[程序演示] [程序下载]

关于随即函数Rnd 一般格式：Rnd（x） 其中：x可以是任意数值，一般取正数1。随机函数也可以写成Rnd。 功能：产生大于0而小于1的随机数。 要真正产生不同的随机熟，必须使用播种语句Randomize [Timer]。

AutoSize 属性——该属性用于设置控件是否具有自动改变大小的功能，以适应图象文件的尺寸，显示图象文件的内容。

语法结构：

object.AutoSize [ =Boolean ]

ture——自动改变控件大小以适应显示全部内容

False——保持控件大小不变，超出控件区域部分的内容被裁剪掉

Image ——该属性用于返回持久图形的句柄，该句柄由Microsoft Windows 运行环境提供。

语法结构：

object.Image

例2：随机画同心圆，并把绘制的图形保存到指定的位图文件中。见教材P150。

界面：

AutoRedraw属性设置为True。

代码：

Private Sub Form_Load()

Picture1.Picture = LoadPicture("") 清空控件上的图形

End Sub

---

Private Sub Form_Click()

Dim x, y, r As Integer
x = Picture1.ScaleWidth / 2
y = Picture1.ScaleHeight / 2 设置圆心坐标X、Y的位置
For r = 0 To Picture1.ScaleWidth / 2
Picture1.Circle (x, y), r, RGB(Rnd * 255, Rnd * 255, Rnd * 255) 画圆
Next r