Aide sur API

[Fred]

Slt quelqu'un peux me dire pourquoi cette fonction ne marche pas ?
Soit 2 images sur une feuille Image1 et Image2 de 16*16 pixels chacune, cette fonction est censée copier tous les pixels de l'image 1 dans l'image 2

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

Sub copipix()
For x = 0 To 15
For y = 0 To 15
Call SetPixel(Image1.hdc, x, y, GetPixel(Image2.hdc, x, y))
Next
Next
End Sub

Sub lancer()
Call copipix
End Sub

 

[Ti]

Salut Fred, je vois que tu tiens le bon bout, on y est presque !

 

[Ti]

dans tes fonctions, que représente hdc ?
Image1, c'est un objet shape ? dans ce cas, la syntaxe image1.hdc ne pourra que renvoyer une erreur.