● 在VB中保存BMP文件 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: Junhot (倚浩), 信区: Visual
标  题: 在VB中保存BMP文件
发信站: 荔园晨风BBS站 (Thu Jun  7 08:18:35 2001), 转信

                               保存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格式等）。

--
                         战意渐去，红尘琐事不关己，归隐故里。

※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.28.211]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店