Soyez le premier à donner votre avis sur cette source.
Vue 4 337 fois - Téléchargée 370 fois
'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
C'est tout à fait ce qu'il me fallait.
Top Genial.
Merci!
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.