![]() |
![]() |
![]() |
编程问答2 | ![]() |
![]() |
![]() |
您的位置:主页>> 编 程(二)>> 编程问答(2) | ![]() |
![]() |
101,Q:用 Visual Basic 保存 BMP 文件:
A: 在用VB编制绘图程序时,有时需要将窗体或图片框上的绘图结果形成一个定制的图形文件保存起来,以便以后浏览或修改。这一功能可以用 VB 本身带有的 SavePicture 语句来完成。 SavePicture语句将窗体、图象控件或图片框中的图形图象保存到磁盘上的一个文件中,这些图象可以是使用画图方法(Line,Circle,Pset)产生出来的,也可以存储那些通过设置窗体或图片框的图片属性或者通过PaintPicture 方法或 Load Picture 函数载入的图象。这些载入的图象可以是 BMP、ICO 或 WMF 图形文件。 SavePicture 语句的语法格式如下: SavePicture picture,stringexpression 参数 picture 为窗体或图片框的 picture 或 image 属性;参数 strngexpression 为保存的文件名。 下面举一个具体的程序来说明定制图象文件的过程: 1、创建一个新的项目文件,在 Forml 中加入一个图象控件 Picture1,将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 执行此程序就会把图片框 Picture1 上的图象保存在 C: 盘根目录下 custom.bmp 图象文件中。 最后有两点需要指出: 1、在使用 SavePicture 语句之前,必须先将窗体或图片框的 AutoRedraw 属性设为 True,否则保留的将是一张空图; 2、使用 Image 属性保存的用画图命令(如 Line,Cirele,Pset 或 Print)画出来的图形总是以 BMP 文件格式保存。但在程序设计时如果使用窗体或图片框的 Picture 属性载入或在程序运行时通过 LoadPicture 函数载入的图象,使用 SavePicture 语句存储时,存储的文件格式同其载入前的文件格式一样(如 ICO 格式等)。 |
![]() |
![]() |
![]() |
![]() |
Copyright(C) By ZhangQing 张庆 |
站长邮箱:zhangking@263.net Bp:029-95808 呼 822686 |