Posez votre question Signaler

Enregistrer une image créer avec setpixel [Résolu]

Messages postés
7
Date d'inscription
jeudi 1 avril 2004
Dernière intervention
25 mai 2007
 - - Dernière réponse : chodavins
Messages postés
7
Date d'inscription
jeudi 1 avril 2004
Dernière intervention
25 mai 2007
 - 25 mai 2007 à 12:17
Visual Basic 6 Posez votre question Signaler
bonjour,
j'ai créé une image dans une picturebox avec une succéssion de setpixel, et quand je veux enregistrer cette image avec savepicture j'optiens une image blanche.
comment faire pour enregistrer l'image que j'ai créée?
merci pour votre aide.
Afficher la suite 

Votre réponse

Répondre au sujet

4 réponses

Meilleure réponse
Signaler Commenter la réponse de Renfield
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
 61
3
Merci
tout dépend de ton autoredraw.

ce genre de chose, en somme :

Private Declare Function SetPixelV Lib "gdi32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

Private Sub Command1_Click()
   SavePicture Picture1.Image, "c:\a.bmp"
End Sub<hr />
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
   Picture1.AutoRedraw = True
   SetPixelV Picture1.hdc, x, y, vbRed
   Picture1.Refresh
   Picture1.AutoRedraw = False
End Sub , ----
By Renfield

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 119 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Renfield
Signaler Commenter la réponse de Renfield
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
 61
3
Merci
NB. il faut que le ScaleMode soit à 3 - vbPixels pour que mon code fonctionne

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 119 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Renfield
Signaler Commenter la réponse de cs_DARKSIDIOUS
Messages postés
15838
Date d'inscription
jeudi 8 août 2002
Dernière intervention
4 mars 2013
 112
0
Merci
avant l'enregistrement de ton image :

Set PictureBox.Picture = PictureBox.Image
Commenter la réponse de cs_DARKSIDIOUS
Signaler Commenter la réponse de chodavins
Messages postés
7
Date d'inscription
jeudi 1 avril 2004
Dernière intervention
25 mai 2007
0
Merci
merci beaucoup Renfield, il me manquait les deux instruction .AutoRedraw et la .Refresh.


encore merci.
Commenter la réponse de chodavins

Votre réponse

Répondre au sujet
Posez votre question
S'inscrire maintenant

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.