Depuis le temps que je cherchais comment crée une image à partir d'un Graphics !
Ben, j'ai enfin trouvé !!!
Je dépose donc ma solution, j'espère qu'elle vous sera utile.
Source / Exemple :
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
Conclusion :
Pour tester le code, crée un nouveau projet vide.
Ajouter une class et coller le code dans celle-ci.
Ne pas oublier d'ajouter la référence 'System.Drawing'
Une fois exécuté, une image se crée dans 'C:\45975_Test.bmp'.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.