F
Fred
Guest
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
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