Conversion couleur décimale / héxadécimale / rgb

Soyez le premier à donner votre avis sur cette source.

Vue 4 787 fois - Téléchargée 434 fois

Description

Voilà, un soft tout con qui sert à prendre la couleur d'un pixel d'une image et de retourner sa couleur sous 3 formes: Décimale, héxadécimale et RGB. Je crois que le noir foire un peu... A vous de corriger ça ;)
Je vous conseille de downloader le zip

Source / Exemple :


'Mettez tout ca dans un module:

Public RedHex, GreenHex, BlueHex
Function ConvertToHex(Picture As PictureBox, X, Y)
Dim Red, Green, Blue
ConvertToHex = Picture.Point(X, Y)
ConvertToHex = Hex(ConvertToHex)
Red = Right(ConvertToHex, 2)
Green = Mid(ConvertToHex, 3, 2)
Blue = Left(ConvertToHex, 2)
ConvertToHex = Red & Green & Blue
If ConvertToHex = "00" Then ConvertToHex = "000000"
End Function

Function ConvertToDec(Picture As PictureBox, X, Y)
ConvertToDec = Picture.Point(X, Y)
End Function

Function ConvertToRGB(Picture As PictureBox, X, Y)
Dim Red, Green, Blue
ConvertToRGB = Picture.Point(X, Y)
ConvertToRGB = Hex(ConvertToRGB)
Red = Right(ConvertToRGB, 2)
Green = Mid(ConvertToRGB, 3, 2)
Blue = Left(ConvertToRGB, 2)
ConvertToRGB = Red & Green & Blue
If ConvertToRGB = "00" Then ConvertToRGB = "000000"
RedHex = Val("&H" & Left(ConvertToRGB, 2) & "&")
GreenHex = Val("&H" & Mid(ConvertToRGB, 3, 2) & "&")
BlueHex = Val("&H" & Right(ConvertToRGB, 2) & "&")
ConvertToRGB = RedHex & " " & GreenHex & " " & BlueHex
End Function

Codes Sources

A voir également

Ajouter un commentaire Commentaires
mtk2007 Messages postés 1 Date d'inscription samedi 24 mars 2007 Statut Membre Dernière intervention 1 janvier 2012
1 janv. 2012 à 18:10
merci
cs_fred23 Messages postés 152 Date d'inscription lundi 5 août 2002 Statut Membre Dernière intervention 15 juillet 2006
26 oct. 2004 à 15:01
SUPER!!!!
C'est tout à fait ce qu'il me fallait.
Top Genial.
Merci!
cs_BadNews Messages postés 98 Date d'inscription samedi 30 novembre 2002 Statut Membre Dernière intervention 10 septembre 2007 1
4 juin 2004 à 09:09
Même chose pour moi, c'est exatement ce que je cherchais. En plus il est bien fait, peu commenté mais très simple à comprendre. Merci.
PatDeLaYaute Messages postés 133 Date d'inscription dimanche 28 avril 2002 Statut Membre Dernière intervention 15 janvier 2009 3
11 mai 2002 à 01:17
Salut, code "tout con" peut être, mais c'est justement ce que je cherchais, merci. @+
cs_AnAcOnDa Messages postés 30 Date d'inscription mardi 13 novembre 2001 Statut Membre Dernière intervention 17 novembre 2003
1 mars 2002 à 21:22
mué...bof....

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.