Accueil > > > NEGATIF
 NEGATIF
 Information sur la source
 Description
Cette fonction permet d'obtenir le négatif d'une couleur, ce qui est parfois utile lorsque le fond d'une boite est d'une certaine couleur et que vous souhaitez quand même lire le texte qui se trouve à l'intérieur.
 Source
- Public Function Negatif(Couleur As Long, Optional limite As Integer = 50) As Long
- Dim Rouge, Vert, Bleu As Integer
- Dim StrCouleur As String
-
- StrCouleur = Right("000000" & Hex(Couleur), 6)
- Rouge = CInt("&H" & Mid(StrCouleur, 5, 2))
- Vert = CInt("&H" & Mid(StrCouleur, 3, 2))
- Bleu = CInt("&H" & Mid(StrCouleur, 1, 2))
- If (Abs(127 - Rouge) + Abs(127 - Vert) + Abs(127 - Bleu)) > limite Then
- Negatif = RGB(255 - Rouge, 255 - Vert, 255 - Bleu)
- Else
- Negatif = IIf((384 - Rouge - Vert - Bleu) < 0, &HFFFFFF, &H0)
- End If
- End Function
Public Function Negatif(Couleur As Long, Optional limite As Integer = 50) As Long
Dim Rouge, Vert, Bleu As Integer
Dim StrCouleur As String
StrCouleur = Right("000000" & Hex(Couleur), 6)
Rouge = CInt("&H" & Mid(StrCouleur, 5, 2))
Vert = CInt("&H" & Mid(StrCouleur, 3, 2))
Bleu = CInt("&H" & Mid(StrCouleur, 1, 2))
If (Abs(127 - Rouge) + Abs(127 - Vert) + Abs(127 - Bleu)) > limite Then
Negatif = RGB(255 - Rouge, 255 - Vert, 255 - Bleu)
Else
Negatif = IIf((384 - Rouge - Vert - Bleu) < 0, &HFFFFFF, &H0)
End If
End Function
 Conclusion
Cette fonction est basé sur le principe de la décomposition de l'image vers les 3 couleurs Rouge/Vert/Bleu et de prendre les valeurs complémentaires par rapport à 255. Le seul problème est lorsque la couleur tend vers le gris "parfait", c'est à dire 50% de noir et 50% de blanc, on ne voit plus rien ... dans ce cas, c'est la couleur noir ou blanc qui sera choisie (en prenant en compte l'écart le plus important). C'est pour cela qu'il y a la notion de limite (j'ai testé, un ecart minimum de 50 parait acceptable)
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
Comment rendre une couleur invisible ? [ par Ludo ]
J'ai crée une feuille avec un borderstyle none.J'ai ajouté en fond une image avec la couleur verte pour les zones transparentes. J'ai essayé BitBilt e
Conversion image couleur en noir et blanc [ par merlin ]
Je cherche a convertir l'image d'un picturebox en couleurs vers une image monochrome, pour ensuite la mettre dans le clipboard (prend moins de place).
Couleur de transparence ? [ par Pessimsit ]
(VB5) J'ai vu qu'il y avait une MaskColor pour les command (en type graphical) .. je cherche une fonction équivalente pour les images :par exemple met
Etat: change de couleur suivant la valeur du champ [ par looping ]
Dans un état sous VB, je voudrais pouvoir faire un test de valeur d'un champ de ma base de donnée et changer la couleur d'affichage en fonction de cel
Comment changer la couleur du texte des menus ? [ par GEDDi ]
Comment changer la couleur du texte des menus ?La couleur du texte des menu de la Form est toujours en Noir et je ne sais pas comment on pourrait affe
Comment changer la couleur d'une Progressbar? [ par rudy ]
Salut nixJ'ai que 13 ans mais je me démerde pas mal en programmation (heureusement que tu es la pour m'aider...)je télécharge ta compil tous les mois
Comment changer la couleur d'une Progressbar? [ par rudy ]
Salut nixJ'ai que 13 ans mais je me démerde pas mal en programmation (heureusement que tu es la pour m'aider...)je télécharge ta compil tous les mois
changer la couleur de fond du bureau [ par painkiller ]
boujour :o)je recherche une api (ou autre chose) capable de modifier la couleur de fond du bureau de de windowsmerci
Rempli une zonne d'une couleur [ par David ]
Salut,Je recherche un bout de programme me permettant de remplir une image ou picturebox par une autre couleur EX Si un carre est de couleur rouge le
mettre de la couleur dans une textbox [ par Yoda ]
Angers le 29/09/00Je voudrai savoir si on peut faire "avancer" la couleur dans le fond d'une textbox. Que la couleur du fond avance de gauche à droite
|
Derniers Blogs
 XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|