发表评论(0)作者：, 平台：, 阅读：16611, 日期：2000-03-12

用Visual Basic 定制BMP文件

吉林 韩冰

在用VB编制绘图程序时，有时需要将窗体或图片框上的绘图结果形成一个定制

的图形文件保存起来，以便以后浏览或修改。这一功能可以用VB本身带有的

SavePicture语句来完成。

SavePicture语句将窗体、图象控件或图片框中的图形图象保存到磁盘上的一

个文件中，这些图象可以是使用画图方法（Line，Circle，Pset）设计出来的，也

可以存储那些通过设置窗体或图片框的图片属性或者通过PaintPicture方法或Load

?Picture函数载入的图象。这些载入的图象可以是BMP、ICO或WMF图形文件。

SavePicture语句的语法格式如下：

SavePicture picture，stringexpression，参数picture为窗体或图片框的

picture或image属性；

参数strngexpression为保存的文件名。

下面举一个具体的程序来说明定制图象文件的过程：

1 创建一个新的项目文件，在Forml中加入一个图象控件Picturel，将

Picture1的AutoRedraw属性设置为True。

2．在Form－Load（）事件中，加入如下代码：

Private Sub Form－Load（）

Dim CX As Integer

Dim CY As Integer

Dim Limit As Integer

Dim Radius As Integer

CX＝1000

CY＝1000

For Radius＝0 To Limit

Picturel．Circle（CX，CY），Radius，RGB（Rnd* 255，Rnd* 255，Rnd*255）

Next Radius

SavePicture Picturel．Image，"c：＼custom．bmp"

End Sub

执行此程序就会把图片框Picturel上的图象保存在C盘根目录下custom．bmp图

象文件中。

最后有两点需要指出：

1．在使用SavePicture语句之前，必须先将窗体或图片框的AutoRedraw属性设

为True，否则保留的将是一张空图。

2．使用Image属性保存的用画图命令（如Line，Cirele，Pset或Print）画出

来的图形总是以BMP文件格式保存。但在程序设计时如果使用窗体或图片框的

Picture属性载入或在程序运行时通过LoadPicture函数载入的图象，使用

SavePicture语句存储时，存储的文件格式同其载入前的文件格式一样（如ICO格式

等）。