Imprimer couleur inverse sur image

Question

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

TouTit_ · Answer

:DTouTit

Je ne suis pas sur, mais as-tu enregister ton image avec set Picture1.picture = picture1.image. sinon, il serrait important de l'inscrire avant d'imprimer.

Imprimer couleur inverse sur image

1 réponse

Discussions similaires