Posted under Visual Basic
Bu kodlar VB.Net için geçerlidir.
Formumuzda öncelikle bir buton oluşturuyoruz. Bu yazımızda olaylar sadece bu butonun click olayında gerçekleşecek. Sonraki yazılarda ise mouse ve picturebox kullanarak nasıl resim yapılabileceğini anlatacağım.
Formumuzun kodunda button1_click olayının hemen üstünde(windows form designer generated code ‘nin altınba)
bir image değişkeni tanımlıyoruz
private my_image as System.Drawing.Image
daha sonra “Button1_Click” olayına bir Bitmap ve bir Graphic tanımlıyoruz.
Dim my_Bitmap As Bitmap = Nothing
Dim g As Graphics = Nothing
Gerekli tanımlamaları yaptığımıza göre resmimizi oluşturmaya başlayabiliriz. burada önemli olan; kodu, oluşabilecek herhangi bir hataya karşı bir “Try-Catch” bloğu içinde yazmaktır.
try
my_bitmap=new bitmap(800,600) ‘veya istediğiniz ölçüler
g=graphics.fromImage(my_bitmap)
g.FillRectangle(New SolidBrush(Color.White), New Rectangle(0, 0, 800, 600))
Dim rectangle As RectangleF = New RectangleF(100, 100, 250, 350) ‘ bir dikdörtgen tanımlıyoruz
g.FillRectangle(New SolidBrush(Color.Gainsboro), rectangle)
my_bitmap.save(”ilkVbResmim.png” ,system.drawing.imaging.imageformat.png) ‘ tabiki burada bir savefile dialog ile konum ve isim belirleyebilir ve imageformat sınıfından başka bir format da seçebiliriz
messagebox.show(” resminiz ‘ilkVbResmim.png’ olarak kaydedilmiştir”)
my_image=my_bitmap
me.invalidate()
catch
messagebox.show(”resminiz kaydedilemedi”)
finally
if not(g is nothing) then
g.dispose()
end try