İÇERİĞİ BMP OLARAK KAYDETMEK
Resim içeren herhangi bir form veya kontoldeki resmi nasıl BMP olarak kaydedeceğinizi gösteriyoruz. Örnek programımız öncelikle form üzerinde renkli daireler çiziyor daha sonra da form içeriğini C: sürücüsünde TEST.BMP olarak kaydediyor. Tüm bu işlemleri gerçekleştirmek için form üzerine bir kez tıklamanız yeterli.
Private Sub Form_Click()
Dim CX, CY, Limit, Msg, Radius ' Değişkenleri tanımla
ScaleMode = 3 ' Ölçeği piksel olarak tanımla
AutoRedraw = -1 ' AutoRedraw özelliğini aç.
Width = Height ' Yüksekliği genişliğe eşitle
CX = ScaleWidth / 2 ' X posizyonunu ayarla
CY = ScaleHeight / 2
Limit = CX
For Radius = 0 To Limit
Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
DoEvents
Next Radius
Msg = ' Form üzerindeki görüntüyü kaydetmek için Tamam'a tıklayın.'
MsgBox Msg
SavePicture Image, ' c:\TEST.BMP' ' Görüntüyü kaydet
End Sub