建立一个图片框picture1,autoredraw=true
画到picture1上,然后savepicture picture1.picture, "c:\a.bmp"

解决方案 »

  1.   

    SavePicture 语句
       从对象或控件(如果有一个与其相关)的 Picture 或 Image 属性中将图形保存到文件中。语法SavePicture picture, stringexpressionSavePicture 语句的语法包含下面部分:参数 描述 
    picture 产生图形文件的 PictureBox 控件或 Image 控件。 
    stringexpression 欲保存的图形文件名。 
    说明无论在设计时还是运行时图形从文件加载到对象的 Picture 属性,而且它是位图、图标、元文件或增强元文件,则图形将以原始文件同样的格式保存。如果它是 GIF 或 JPEG 文件,则将保存为位图文件。Image 属性中的图形总是以位图的格式保存而不管其原始格式。SavePicture 语句示例
    本例使用 SavePicture 语句保存画在 Form 对象的 Picture 属性中的图形。要试用此例,可将以下代码粘贴到 Form 对象的声明部分,然后运行此例,单击 Form 对象。Private Sub Form_Click ()
       ' 声明变量。
       Dim CX, CY, Limit, Radius   as Integer, Msg as String
       ScaleMode = vbPixels   ' 设置比例模型为像素。
       AutoRedraw = True ' 打开 AutoRedraw。
       Width = Height   ' 改变宽度以便和高度匹配。
       CX = ScaleWidth / 2   ' 设置 X 位置。
       CY = ScaleHeight / 2   ' 设置 Y 位置。
       Limit = CX   ' 圆的尺寸限制。
       For Radius = 0 To Limit   ' 设置半径。
          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 Image, "TEST.BMP"   ' 将图片保存到文件。
    End Sub