圖 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
