Inverser les couleurs d'une image

Contenu du snippet

' Picture1 va recevoir l'image normale
 Picture1.AutoSize = True 
 Picture1.Picture = LoadPicture("C:\tmp.jpg") 
 
 ' replacer, resizer...
 With Picture2 
     .Top = Picture1.Top + Picture1.Height 
     .Left = Picture1.Left 
     .Width = Picture1.Width 
     .Height = Picture1.Height 
     .AutoRedraw = True 
 End With 
 
 ' paint inversé
 Picture2.PaintPicture Picture1, 0, 0, , , , , , , vbSrcInvert

Compatibilité : VB6, VBA

Disponible dans d'autres langages :

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.