İçeriği 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ımlaScaleMode = 3 ' Ölçeği piksel olarak tanımlaAutoRedraw = -1 ' AutoRedraw özelliğini aç.Width = Height ' Yüksekliği genişliğe eşitleCX = ScaleWidth / 2 ' X posizyonunu ayarlaCY = ScaleHeight / 2Limit = CXFor Radius = 0 To LimitCircle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)DoEventsNext RadiusMsg = ' Form üzerindeki görüntüyü kaydetmek için Tamam'a tıklayın.' MsgBox MsgSavePicture Image, ' c:\TEST.BMP' ' Görüntüyü kaydetEnd Sub
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ımlaScaleMode = 3 ' Ölçeği piksel olarak tanımlaAutoRedraw = -1 ' AutoRedraw özelliğini aç.Width = Height ' Yüksekliği genişliğe eşitleCX = ScaleWidth / 2 ' X posizyonunu ayarlaCY = ScaleHeight / 2Limit = CXFor Radius = 0 To LimitCircle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)DoEventsNext RadiusMsg = ' Form üzerindeki görüntüyü kaydetmek için Tamam'a tıklayın.' MsgBox MsgSavePicture Image, ' c:\TEST.BMP' ' Görüntüyü kaydetEnd Sub