Question

如何将vb中控件的Picture储存为一个bmp文件？

比如，点击按钮Command1，将Form1的Picture作为一个bmp格式的图画文件储存在App.Path & "\p\try.bmp"。

Answer 1

VB6可使用SavePicture 语句来实现将窗体或PictureBox控件的图像储存为位图。

1. SavePicture 语句，从对象或控件（如果有一个与其相关）的 Picture 或 Image 属性中将图形保存到文件中。

2. 语法：

   

3. 说明

   无论在设计时还是运行时图形从文件加载到对象的 Picture
   属性，而且它是位图、图标、元文件或增强元文件，则图形将以原始文件同样的格式保存。如果它是 GIF 或 JPEG 文件，则将保存为位图文件。

   Image 属性中的图形总是以位图的格式保存而不管其原始格式。

4. 代码示例：

   Private Sub Form_Load()

       Picture1.Print "图片储存"

   End Sub

   
   

   Private Sub picture1_Click()

        ' 声明变量。

       Dim CX, CY, Limit, Radius   As Integer, Msg As String

       ScaleMode = vbPixels   ' 设置比例模型为像素。

       AutoRedraw = True ' 打开 AutoRedraw。

       Picture1.Width = Picture1.Height   ' 改变宽度以便和高度匹配。

       CX = Picture1.ScaleWidth / 2   ' 设置 X 位置。

       CY = Picture1.ScaleHeight / 2   ' 设置 Y 位置。

       Limit = CX   ' 圆的尺寸限制。

       For Radius = 0 To Limit   ' 设置半径。

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

           DoEvents   ' 转移到其它操作。

       Next Radius

       Msg = "Choose OK to save the graphics from this form "

       Msg = Msg & "to a bitmap file."

       MsgBox Msg

       SavePicture Picture1.Image, "TEST.BMP"    ' 将图片保存到文件。

   End Sub