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

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.