Bilddatei erstellen und abspeichern
Funktionsbeispiel
Importierung der Klasse:
System.Drawing.Drawing2D
Grafik zeichnen und als Bilddatei speichern
Private
Sub SaveBitmap()
Dim Path
As
String = "C:Neue_Bitmap.bmp"
Pfad + Name der zu erstellenden Datei
Dim Pic
As
New Bitmap(120, 120)
Größe der zu erstellenden Bilddatei
Dim Grfx
As Graphics
Grfx = Graphics.FromImage(Pic)
Grfx.FillRectangle(New
SolidBrush(Color.White), 0, 0, 120, 120)
Weißen Hintergrund zeichnen
Grfx.DrawRectangle(New
Pen(Color.Green), 30, 30, 40, 40) Viereck
zeichnen
Grfx.Dispose()
Pic.Save(Path)
Bilddatei speichern
Pic.Dispose()
End
Sub