BLACK-FX: INVERT

cs_Anthomicro Messages postés 9433 Date d'inscription mardi 9 octobre 2001 Statut Membre Dernière intervention 13 avril 2007 - 11 mai 2002 à 13:15
jekifvb6 Messages postés 156 Date d'inscription lundi 13 novembre 2000 Statut Membre Dernière intervention 18 septembre 2006 - 2 mai 2005 à 09:38
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/1160-black-fx-invert

jekifvb6 Messages postés 156 Date d'inscription lundi 13 novembre 2000 Statut Membre Dernière intervention 18 septembre 2006
2 mai 2005 à 09:38
Ou pourquoi pas:

Dim p as Long

p = Picture1.Point(X, Y)
p = 255 - p
Picture1.PSet (X,Y), p

pour un seul pixel...

C'est le même résultat.

Enjoy.
cs_Anthomicro Messages postés 9433 Date d'inscription mardi 9 octobre 2001 Statut Membre Dernière intervention 13 avril 2007 8
11 mai 2002 à 13:15
Pourquoi ne pas avoir utilisé l'API invertrect ?
c'est beaucoup plus rapide

Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Declare Function InvertRect Lib "user32" (ByVal hdc As Long, lpRect As RECT) As Long

voilà !
:-)
Rejoignez-nous