第37章（第1 / 3页）

执行此程序就会把图片框Picture1上的图象保存在C:盘根目录下custom.bmp图象文件中。

最后有两点需要指出：

DimCYAsInteger

DimLimitAsInteger

DimRadiusAsInteger

CX＝1000

CY＝1000

这一功能可以用VB本身带有的SavePicture语句来完成。

SavePicture语句将窗体、图象控件或图片框中的图形图象保存到磁盘上的一个文件中，这些图象可以是使用画图方法(Line，Circle，Pset)产生出来的，也可以存储那些通过设置窗体或图片框的图片属性或者通过PaintPicture方法或LoadPicture函数载入的图象。这些载入的图象可以是BMP、ICO或WMF图形文件。

SavePicture语句的语法格式如下：

SavePicturepicture，stringexpression

参数picture为窗体或图片框的picture或image属性；参数strngexpression为保存的文件名。

ForRadius＝0ToLimit

Picturel.Circle(CX,CY),Radius,RGB(Rnd*255,Rnd*255,Rnd*255)

NextRadius

SavePicturePicturel.Image,"c:\custom.bmp"

EndSub

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

1、创建一个新的项目文件，在Forml中加入一个图象控件Picture1，将Picture1的AutoRedraw属性设置为True;

2、在Form_Load()事件中，加入如下代码:

PrivateSubForm－Load()

DimCXAsInteger