pset画出的图形怎么保存？

Question

我做了一个小程序，用Pset函数在picturebox画了图形，该怎么保存啊！
谢谢了啊！

Answer 1

SavePicture 语句可以
SavePicture Picture1.Picture App.path & "\test.bmp"

Answer 2

把PictureBox的AutoRedraw设置为True再开始画图
如：Picture1.AutoRedraw=True
这样画完的图才可以用
SavePicture保存
而且保存的不是Picture属性，而是Image属性
如：SavePicture Picture1.Image,"C:\11.bmp"

Answer 3

先要把picture1的 autoredraw 属性置为true

Answer 4

Option ExplicitPrivate Sub Command1_Click()
        SavePicture Me.Image, "c:\chenjl1031.bmp"
End SubPrivate Sub Form_Load()
        Dim i As Integer
        Me.ScaleMode = 3
        Me.AutoRedraw = True
        Me.Line (10, 10)-(100, 100), RGB(0, 0, 255), BF
        For i = 20 To 80
            Me.PSet (i, i), RGB(255, 0, 0)
        Next
End Sub