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

Soyez le premier à donner votre avis sur cette source.

Vue 4 168 fois - Téléchargée 368 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

Messages postés
1
Date d'inscription
samedi 24 mars 2007
Statut
Membre
Dernière intervention
1 janvier 2012

merci
Messages postés
152
Date d'inscription
lundi 5 août 2002
Statut
Membre
Dernière intervention
15 juillet 2006

SUPER!!!!
C'est tout à fait ce qu'il me fallait.
Top Genial.
Merci!
Messages postés
98
Date d'inscription
samedi 30 novembre 2002
Statut
Membre
Dernière intervention
10 septembre 2007
1
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.
Messages postés
133
Date d'inscription
dimanche 28 avril 2002
Statut
Membre
Dernière intervention
15 janvier 2009
3
Salut, code "tout con" peut être, mais c'est justement ce que je cherchais, merci. @+
Messages postés
30
Date d'inscription
mardi 13 novembre 2001
Statut
Membre
Dernière intervention
17 novembre 2003

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.