Pourquoi PSET est-il si lent ?Résolu

Question

Bonjour, 
Je voudrais modifier une picturebox avec PSET, voici mon code : les variables R, G et B contiennent les valeurs de la couleur à peindre
Photo2.DrawMode = vbCopyPenPhoto2.ScaleWidth = Photo2.Width / 15 ' pour travailler en pixelsPhoto2.ScaleHeight = Photo2.Height / 15 ' pour travailler en pixelsFor x = 0 To Photo2.ScaleWidth    For y = 0 To Photo2.ScaleHeight       Photo2.PSet (x, y), RGB(R, G, B)       DoEvents    Next y    DoEventsNext xLe problème est que c'est vraiment très lent, plusieurs minutes pour une image de 800 x 600 pixels !
Une idée pour accélérer ?

NHenry · Answer

Déjà, essayes sans les DoEvents.

Sinon, il y a peut être l'API SetPixel.
https://www.tannerhelland.com/41/vb-graphics-programming-2/

Herve_be · Answer

Pas de changement significatif sans les DoEvents Mais bien avec SetPixelV :
pour une image de 800 x 600 pixels : 58 secondes avec Pset, 0,9 seconde avec GDI !
Merci, problème résolu.

Pour info le but était d'étirer l'histogramme d'une photo, voici mon code
White et Black contiennent les références blanche et noire de la photo
le paramètre Refresh = Y permet de montrer la progressionPrivate Sub HistoStretch(Refresh As String)    HistoMax = MyMax(WhiteR, WhiteG, WhiteB)    HistoMin = MyMin(BlackR, BlackG, BlackB)    Alpha = 255 / (HistoMax - HistoMin)    Beta = -HistoMin * Alpha    Photo2.DrawMode = vbCopyPen    TimeStamp = Timer()    For y = 0 To Photo2.ScaleHeight        For x = 0 To Photo2.ScaleWidth            Pixel = GetPixel(Photo2.hdc, x, y)            R = Pixel And &HFF&            G = (Pixel And &HFF00&) \ &H100&            B = (Pixel And &HFF0000) \ &H10000                        R = Alpha * R + Beta            G = Alpha * G + Beta            B = Alpha * B + Beta                    If R >= 0 And G >= 0 And B >= 0 Then                Call SetPixelV(Photo2.hdc, x, y, RGB(R, G, B))            End If        Next x        If Refresh = "Y" Then Photo2.Refresh    Next y    TimeStamp = Timer() - TimeStampEnd Sub

Pourquoi PSET est-il si lent ?

2 réponses

Votre réponse

Discussions similaires