图 1. 参考画面

图 2. 存档参考

下面是引用 tk7545 于 2010-04-09 23:04 发表的 :
三仙大大
可以存出来,但存出来的图是空白的也.0.
我是用点对点去连线的,之后绘在PICTUER上
结果存出来只有空白@@
程式乱数绘图后存档
参考看看吧
复制程式
Private Sub Form_Load()
Dim i As Integer
Picture1.AutoRedraw = True
For i = 0 To 10
DrawPic
Next
End Sub
Sub DrawPic()
Dim PW, PH
With Picture1
.FillStyle = vbFSSolid
.FillColor = QBColor(Int(Rnd * 15))
PW = .ScaleWidth
PH = .ScaleHeight
End With
Picture1.Circle (Int(Rnd * PW), Int(Rnd * PH)), 250
End Sub
Private Sub Command1_Click()
SavePicture Picture1.Image, "c:\TEST.BMP"
End Sub