pixels

Réponse acceptée !


hhhp2004

salut,

fais une recherche sur le site sur les api getpixel et setpixel

getpixel renvoie la couleur dun pixel avec les coordonnes (x,y)
setpixel change la couleur dun pixel avec les coordonnes (x,y)

Réponse acceptée !
Aller je t'aide un petit coup :

Alors premierement deux api :
Pour récupérer la couleur :
Declare Function GetPixel Lib "gdi32" Alias "GetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Pour mettre la couleur :
Declare Function SetPixelV Lib "gdi32" Alias "SetPixelV" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long


Donc disons, picture1, picture2 et picture3

Tu fais :
Dim couleur1 as Long
Dim couleur2 as Long
For y = 0 to picture1.scaleheight
   For x = 0 to picture1.scalewidth
      Doevents
      couleur1= GetPixel  ( picture1.hdc, x,y)
      couleur2= GetPixel  ( picture2.hdc, x,y)
      If couleur1 = couleur 2 Then SetPixel ( picture3.hdc, x,y, couleur1)
   Next x
Next y
Savepicture picture3.image, "dossier_et_fichier_d'enregistrement"

Voila, tu as tout, j'ai pas tester le code mais il doit marché, tu as une source qui a quasiment le même code pour comparer deux images, mais pour ton probleme ce code suffit.


Et oui je suis trés mauvais en orthographe, donc excusez moi.