Ya pas grand monde qui save comment faire ça faque voici les code:
CommonDialog1.Filter = "JPEG (*.jpg)|*.jpg" 'Type de fichier CommonDialog1.ShowSave 'Afficher la fenetre Save as... a$ = CommonDialog1.FileName 'Mettre la sauvegarde en 'variable
If a$ <> "" Then 'Si le vous avez entrez un nom alors... SavePicture Picture1.Image, a$ 'Enregistrez l'image de la 'picture1 Else 'Sinon... 'rien End If 'terminer le si.....
|
P.S.: Ajoutez: "Picture1.autoredraw = true" dans Form_load()!