CRÉE UNE IMAGE À PARTIR D'UN GRAPHICS

Option Explicit On
Option Strict On

Imports System.Drawing
Imports System.Drawing.Imaging

Public Class Class1

  Public Shared Sub Main()

    Dim ImageSize As New System.Drawing.Size(200, 200) '// Taille de l'image
    Dim Image As System.Drawing.Image = New System.Drawing.Bitmap(ImageSize.Width, ImageSize.Height) '// Crée l'image
    Dim Graphics As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(Image) '// Extrait le Graphics de l'image

    Graphics.Clear(System.Drawing.Color.DeepSkyBlue) '// Remplie la couleur de fond de l'image

    '// On dessine maintenant ce que l'on veut, ce sera enregistrer dans l'image
    Graphics.FillEllipse(Brushes.LightCyan, New System.Drawing.Rectangle(20, 10, 140, 100))
    Graphics.FillRectangle(New System.Drawing.SolidBrush(System.Drawing.Color.FromArgb(180, System.Drawing.Color.DarkOrange)), New System.Drawing.Rectangle(40, 60, 130, 80))
    Graphics.DrawLine(System.Drawing.Pens.Blue, New System.Drawing.Point(30, 170), New System.Drawing.Point(180, 20))

    '// On enregistre maintenant l'image dans le répertoire de l'application
    Dim ImgFormant As System.Drawing.Imaging.ImageFormat = System.Drawing.Imaging.ImageFormat.Bmp
    Image.Save("C:\\45975_Test.bmp", ImgFormant)

  End Sub

End Class