- Dans le cas d'une pictureBox contenant une image, la solution est simple :
-
- pictureBox.Image.save("c:\fichier.gif", ImageFormat.Gif)
-
- Dans le cas d'une pictureBox contenant un objet Graphics qui subit des modifications (dessins etc.) :
-
- Dim bitMap As New Bitmap(pictureBox1.width, pictureBox1.height)
- Dim g as Graphics = Graphics.FromImage(bitMap)
- Try
- g.Clear(Color.White)
- '
- ' Insérer ici les commandes de dessin sur g
- ' (si dessin effectué avant, passer g en paramètre à la sub ou
- ' utiliser un g de classe)
- '
- bitMap.Save("C:\fichier.gif", ImageFormat.Gif)
- Finally
- g.Dispose
- bitMap.Dispose()
- End Try
Dans le cas d'une pictureBox contenant une image, la solution est simple :
pictureBox.Image.save("c:\fichier.gif", ImageFormat.Gif)
Dans le cas d'une pictureBox contenant un objet Graphics qui subit des modifications (dessins etc.) :
Dim bitMap As New Bitmap(pictureBox1.width, pictureBox1.height)
Dim g as Graphics = Graphics.FromImage(bitMap)
Try
g.Clear(Color.White)
'
' Insérer ici les commandes de dessin sur g
' (si dessin effectué avant, passer g en paramètre à la sub ou
' utiliser un g de classe)
'
bitMap.Save("C:\fichier.gif", ImageFormat.Gif)
Finally
g.Dispose
bitMap.Dispose()
End Try