Sauvegarder une image
dettouhami
Messages postés
8
Date d'inscription
lundi 26 avril 2004
Statut
Membre
Dernière intervention
21 mai 2004
-
12 mai 2004 à 16:06
cs_labout Messages postés 1356 Date d'inscription samedi 8 décembre 2001 Statut Membre Dernière intervention 23 octobre 2006 - 12 mai 2004 à 16:24
cs_labout Messages postés 1356 Date d'inscription samedi 8 décembre 2001 Statut Membre Dernière intervention 23 octobre 2006 - 12 mai 2004 à 16:24
A voir également:
- Cylimit
- Convolution image - Conseils pratiques -Java
- Une image .tiff repose sur une palette de 256 000 couleurs. - Forum C / C++ / C++.NET
- Inverser les couleurs d'une image ✓ - Forum Visual Basic 6
- Palette couleur ✓ - Forum C++ & C++ .NET
- Une image .tiff repose sur une palette de 256 000 couleurs ✓ - Forum Delphi / Pascal
1 réponse
cs_labout
Messages postés
1356
Date d'inscription
samedi 8 décembre 2001
Statut
Membre
Dernière intervention
23 octobre 2006
8
12 mai 2004 à 16:24
12 mai 2004 à 16:24
labout
Voici un exemple
Private Sub Command1_Click()
' Déclare les variables.
Dim CX, CY, Limit, Radius As Integer, Msg As String
' Définit l'échelle en pixels.
ScaleMode = vbPixels
' Active la propriété AutoRedraw.
AutoRedraw = True
' Modifie la largeur pour qu'elle soit égale à la
' hauteur.
Width = Height
' Définit la position sur l'axe des x
CX = ScaleWidth * 4
' Définit la position sur l'axe des y.
CY = ScaleHeight * 4
' Limite la dimension des cercles.
Limit = CX
' Définit le rayon.
For Radius = 0 To Limit
Picture1.Circle (CX, CY), Radius, _
RGB(Rnd * 255, Rnd * 255, Rnd * 255)
' Cède la main pour d'autres traitements.
DoEvents
Next Radius
Msg = "Cliquez sur OK pour enregistrer l'élément"
Msg = Msg & " graphique de cette feuille dans un"
Msg = Msg & " fichier d'image bitmap."
MsgBox Msg
' Enregistre l'image dans un fichier.
SavePicture Picture1.Image, "TEST.BMP"
End Sub
Voici un exemple
Private Sub Command1_Click()
' Déclare les variables.
Dim CX, CY, Limit, Radius As Integer, Msg As String
' Définit l'échelle en pixels.
ScaleMode = vbPixels
' Active la propriété AutoRedraw.
AutoRedraw = True
' Modifie la largeur pour qu'elle soit égale à la
' hauteur.
Width = Height
' Définit la position sur l'axe des x
CX = ScaleWidth * 4
' Définit la position sur l'axe des y.
CY = ScaleHeight * 4
' Limite la dimension des cercles.
Limit = CX
' Définit le rayon.
For Radius = 0 To Limit
Picture1.Circle (CX, CY), Radius, _
RGB(Rnd * 255, Rnd * 255, Rnd * 255)
' Cède la main pour d'autres traitements.
DoEvents
Next Radius
Msg = "Cliquez sur OK pour enregistrer l'élément"
Msg = Msg & " graphique de cette feuille dans un"
Msg = Msg & " fichier d'image bitmap."
MsgBox Msg
' Enregistre l'image dans un fichier.
SavePicture Picture1.Image, "TEST.BMP"
End Sub
