VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 用Visual Basic保存BMP文件
发表评论(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格式

等)。