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
71
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
71
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
Modérateur
Dernière intervention
4 mars 2013
131
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