Bonjour,
J'arrive à inverser les couleurs d'un picture Box suite à un printscreen. Avec ce code (trouvé ici d'ailleurs). Le problème est lorsque je fais printer.PaintPicture picture1.picture,0,0 c'est l'original du printscreen qui s'imprime et non avec les couleurs inversées, pourtant je vois bien que les couleurs sont inversées dans mon picture1. Aidez-moi je sais plus...
Sub Invert(picBox As PictureBox)
'Invert the image of a picturebox
Dim newVal As Integer, h As Integer, W As Integer, K As Integer
Dim C As Long
Dim opRed As Long, opBlue As Long, opGreen As Long
picBox.ScaleMode = 3
For h = 0 To picBox.ScaleHeight
For W = 0 To picBox.ScaleWidth
C = GetPixel(picBox.hdc, W, h)
RGBfromLONG C
opRed = 255 - rRed
opGreen = 255 - rGreen
opBlue = 255 - rBlue
C = RGB(opRed, opGreen, opBlue)
SetPixel picBox.hdc, W, h, C
Next W
Next h
End Sub