Enregistrer une image créer avec setpixel

Résolu
chodavins Messages postés 7 Date d'inscription jeudi 1 avril 2004 Statut Membre Dernière intervention 25 mai 2007 - 25 mai 2007 à 03:14
chodavins Messages postés 7 Date d'inscription jeudi 1 avril 2004 Statut Membre Dernière intervention 25 mai 2007 - 25 mai 2007 à 12:17
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.

4 réponses

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 75
25 mai 2007 à 08:39
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
3
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 75
25 mai 2007 à 08:42
NB. il faut que le ScaleMode soit à 3 - vbPixels pour que mon code fonctionne

Renfield
Admin CodeS-SourceS- MVP Visual Basic
3
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 129
25 mai 2007 à 06:55
avant l'enregistrement de ton image :

Set PictureBox.Picture = PictureBox.Image
0
chodavins Messages postés 7 Date d'inscription jeudi 1 avril 2004 Statut Membre Dernière intervention 25 mai 2007
25 mai 2007 à 12:17
merci beaucoup Renfield, il me manquait les deux instruction .AutoRedraw et la .Refresh.


encore merci.
0
Rejoignez-nous