enregistrer une image créer avec setpixelRésolu

Question

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.

Renfield · Accepted Answer

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

cs_DARKSIDIOUS · Answer

avant l'enregistrement de ton image :

Set PictureBox.Picture = PictureBox.Image

Renfield · Answer

NB. il faut que le ScaleMode soit à 3 - vbPixels pour que mon code fonctionne

Renfield
Admin CodeS-SourceS- MVP Visual Basic

chodavins · Answer

merci beaucoup Renfield, il me manquait les deux instruction .AutoRedraw et la .Refresh.


encore merci.

Enregistrer une image créer avec setpixel

4 réponses

Votre réponse