Hexa / decimal / vb hexa / rvb - toutes les conversions de type de couleurs dans un module

Soyez le premier à donner votre avis sur cette source.

Vue 29 293 fois - Téléchargée 1 481 fois

Description

Ca faisait 2 jours que je cherchait un moyen simple de convertir les couleurs de VB en hexadecimal (HTML) , ou le contraire ect... , j'ai trouvé des bouts de réponses dans les sources et le forum , mais rien de bien complet...
Alors je me suis motivé !
Avec ce module , on peut convertir :
Decimal vers Hexadecimal,Hexadecimal VB,RVB
RVB vers Decimale , Hexadecimal , Hexadecimal VB
Hexadecimal vers Decimal,Hexadecimal VB, RVB
Hexadecimal VB vers Decimal, RVB, Hexadecimal.
Et ca tres simplement ! (aucun code necessaire)

Source / Exemple :


Option Explicit

' ##################
' #                #
' #     Danyz      #
' #                #
' #  Octobre 2004  #
' #                #
' ##################

Public Rouge As Byte, Vert As Byte, Bleu As Byte

Public Type CouleursRVB
   Rouge As Byte
   Vert As Byte
   Bleu As Byte
End Type
'

Public Function DecimalToRvb(ValDecimal As Long) As CouleursRVB

' Convertit une couleur Decimale (VB) en couleur RVB
' Exemple : 14698369 = Rouge(129), Vert(71), Bleu(224)

DecimalToRvb.Rouge = ValDecimal Mod 256
DecimalToRvb.Vert = (ValDecimal \ 256) Mod 256
DecimalToRvb.Bleu = (ValDecimal \ 256 ^ 2) Mod 256

End Function
Public Function DecimalToHexa(ValDecimal As Long) As String

' Convertit une couleur Decimale (VB) en couleur Hexadecimale(HTML)
' Exemple : 14698369 = #8147E0

Rouge = ValDecimal Mod 256
Vert = (ValDecimal \ 256) Mod 256
Bleu = (ValDecimal \ 256 ^ 2) Mod 256

DecimalToHexa = RvbToHexa(Rouge, Vert, Bleu)

End Function
Public Function DecimalToVBHexa(ValDecimal As Long) As String

' Convertit une couleur Decimale (VB) en couleur Hexadecimale VB
' Exemple : 14698369 = &HE04781

Rouge = ValDecimal Mod 256
Vert = (ValDecimal \ 256) Mod 256
Bleu = (ValDecimal \ 256 ^ 2) Mod 256

DecimalToVBHexa = RvbToVBHexa(Rouge, Vert, Bleu)

End Function

Public Function RvbToDecimal(Rouge As Byte, Vert As Byte, Bleu As Byte) As Long

' Convertir une couleur RVB vers une couleur Decimale
' Exemple : Rouge(129), Vert(71), Bleu(224) = 14698369

RvbToDecimal = Rouge + (Vert * 256) + (Bleu * 65536)

End Function

Public Function RvbToHexa(Rouge As Byte, Vert As Byte, Bleu As Byte) As String

' Convertir une couleur RVB vers une couleur Hexadecimale (HTML)
' Exemple : Rouge(129), Vert(71), Bleu(224) = #8147E0

RvbToHexa = "#"  ' ou "" si on veut un affichage du genre 5D478B au lieu de #5D478B

RvbToHexa = IIf(Len(Hex$(Rouge)) = 1, RvbToHexa & "0" & Hex$(Rouge), RvbToHexa & Hex$(Rouge))
RvbToHexa = IIf(Len(Hex$(Vert)) = 1, RvbToHexa & "0" & Hex$(Vert), RvbToHexa & Hex$(Vert))
RvbToHexa = IIf(Len(Hex$(Bleu)) = 1, RvbToHexa & "0" & Hex$(Bleu), RvbToHexa & Hex$(Bleu))

End Function
Public Function RvbToVBHexa(Rouge As Byte, Vert As Byte, Bleu As Byte) As String

' Convertir une couleur RVB vers une couleur Hexadecimale VB
' Exemple : Rouge(129), Vert(71), Bleu(224)  =  &HE04781

RvbToVBHexa = "&H"

RvbToVBHexa = IIf(Len(Hex$(Bleu)) = 1, RvbToVBHexa & "0" & Hex$(Bleu), RvbToVBHexa & Hex$(Bleu))
RvbToVBHexa = IIf(Len(Hex$(Vert)) = 1, RvbToVBHexa & "0" & Hex$(Vert), RvbToVBHexa & Hex$(Vert))
RvbToVBHexa = IIf(Len(Hex$(Rouge)) = 1, RvbToVBHexa & "0" & Hex$(Rouge), RvbToVBHexa & Hex$(Rouge))

End Function
Public Function HexaToDecimal(ValeurHexa As String) As Long

' Convertir une couleur Hexadecimale VB en couleur Decimale VB
' Exemple : #8147E0 = 14698369

Dim V1 As String, V2 As String, V3 As String

If Left(ValeurHexa, 1) = "#" Then ValeurHexa = Right(ValeurHexa, Len(ValeurHexa) - 1)
        ' Verifie si le premier caractère est
        ' un # et le supprime si oui

V1 = "&H" & Left(ValeurHexa, 2) & "&"
V2 = "&H" & Mid(ValeurHexa, 3, 2) & "&"
V3 = "&H" & Right(ValeurHexa, 2) & "&"

HexaToDecimal = Val(V1) + (Val(V2) * 256) + (Val(V3) * 65536)

End Function
Public Function HexaToRVB(ValeurHexa As String) As CouleursRVB

' Convertir une couleur Hexadecimale VB en couleur RVB
' Exemple : #8147E0 = Rouge(129), Vert(71), Bleu(224)

If Left(ValeurHexa, 1) = "#" Then ValeurHexa = Right(ValeurHexa, Len(ValeurHexa) - 1)
        ' Verifie si le premier caractère est
        ' un # et le supprime si oui
        
HexaToRVB.Rouge = Val("&H" & Left(ValeurHexa, 2) & "&")
HexaToRVB.Vert = Val("&H" & Mid(ValeurHexa, 3, 2) & "&")
HexaToRVB.Bleu = Val("&H" & Right(ValeurHexa, 2) & "&")

End Function

Public Function HexaToVBHexa(ValeurHexa As String) As String

' Convertir une couleur Hexadecimale (HTML) vers une couleur Hexadecimale VB
' Exemple : #915BCC = &HCC5B91

If Left(ValeurHexa, 1) = "#" Then ValeurHexa = Right(ValeurHexa, 6)
        ' Verifie si le premier caractère est
        ' un # et le supprime si oui

HexaToVBHexa = "&H" & Right(ValeurHexa, 2) & Mid(ValeurHexa, 3, 2) & Left(ValeurHexa, 2)
        
End Function
Public Function VBHexaToDecimal(ValeurVBHexa As String) As Long

' Convertir une couleur Hexadecimale VB vers une couleur Decimale VB
' Exemple : &HE04781 = 14698369

Dim V1 As String, V2 As String, V3 As String

If Left(ValeurVBHexa, 4) = "&H00" Then ValeurVBHexa = "&H" & Right(ValeurVBHexa, Len(ValeurVBHexa) - 4)
If Right(ValeurVBHexa, 1) = "&" Then ValeurVBHexa = Left(ValeurVBHexa, Len(ValeurVBHexa) - 1)
        ' Verifie le format :
        ' si c'est &H00E04781& on convertit en &HE04781
        
V1 = "&H" & Right(ValeurVBHexa, 2) & "&"
V2 = "&H" & Mid(ValeurVBHexa, 5, 2) & "&"
V3 = "&H" & Mid(ValeurVBHexa, 3, 2) & "&"

VBHexaToDecimal = Val(V1) + (Val(V2) * 256) + (Val(V3) * 65536)

End Function
Public Function VBHexaToRVB(ValeurVBHexa As String) As CouleursRVB

' Convertir une couleur Hexadecimale VB vers une couleur RVB
' Exemple : &HE04781 = Rouge(129), Vert(71), Bleu(224)

If Left(ValeurVBHexa, 4) = "&H00" Then ValeurVBHexa = "&H" & Right(ValeurVBHexa, Len(ValeurVBHexa) - 4)
If Right(ValeurVBHexa, 1) = "&" Then ValeurVBHexa = Left(ValeurVBHexa, Len(ValeurVBHexa) - 1)
        ' Verifie le format :
        ' si c'est &H00E04781& on convertit en &HE04781

VBHexaToRVB.Rouge = Val("&H" & Right(ValeurVBHexa, 2) & "&")
VBHexaToRVB.Vert = Val("&H" & Mid(ValeurVBHexa, 5, 2) & "&")
VBHexaToRVB.Bleu = Val("&H" & Mid(ValeurVBHexa, 3, 2) & "&")

End Function
Public Function VBHexaToHexa(ValeurVBHexa As String) As String

' Convertir une couleur Hexadecimale VB vers une couleur Hexadecimale (HTML)
' Exemple : &HE04781 = #8147E0

If Left(ValeurVBHexa, 4) = "&H00" Then ValeurVBHexa = "&H" & Right(ValeurVBHexa, Len(ValeurVBHexa) - 4)
If Right(ValeurVBHexa, 1) = "&" Then ValeurVBHexa = Left(ValeurVBHexa, Len(ValeurVBHexa) - 1)
        ' Verifie le format :
        ' si c'est &H00E04781& on convertit en &HE04781

VBHexaToHexa = "#"  ' ou "" si on veut un affichage du genre 5D478B au lieu de #5D478B

VBHexaToHexa = VBHexaToHexa & Right(ValeurVBHexa, 2)
VBHexaToHexa = VBHexaToHexa & Mid(ValeurVBHexa, 5, 2)
VBHexaToHexa = VBHexaToHexa & Mid(ValeurVBHexa, 3, 2)

End Function

Conclusion :


Pour convertir , c'est tres simple.
Exemple je veut convertir la couleur decimale 14698369 en Hexadecimal :

ConvertColors.DecimalToHexa(14698369)

une couleur RVB en Hexa :

ConvertColors.RvbToHexa(Rouge, Vert, Bleu)

ect...

y'a pas plus simple :D

J'ai pas inclus de gestion d'erreurs , faut bien vous en laisser un peu :P

J'ai pas un gros niveaux en VB , hesitez pas a donez vos commentaires ;)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

MadM@tt
Messages postés
2215
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009
-
Tu pourrais rajouter la gestion des couleurs du système avec l'api GetSystemColor (je crois que c'est ça), parce que pas mal de couleur (par exemple le fond d'une form) sont dans ces notations et on ne peut pas faire d'opérations dessus (c'est négatif)
sinon c'est utile tout ça
cs_Danyz
Messages postés
98
Date d'inscription
dimanche 20 juillet 2003
Statut
Membre
Dernière intervention
31 octobre 2006
-
Je vais voir ca pour l'api :)
(c vrai ke les couleurs systeme renvoient des valeurs negatives...)
mailys6
Messages postés
49
Date d'inscription
lundi 17 février 2003
Statut
Membre
Dernière intervention
1 octobre 2005
-
C'est vraiment bien expliqué. Chaque conversion avec un exemple, ca simplifie la vie !
Merci beaucoup

Maïlys
infosam
Messages postés
4
Date d'inscription
jeudi 2 janvier 2003
Statut
Membre
Dernière intervention
15 février 2012
-
Très bon petit programme et très pratique, tant au niveau de convertisseur de code couleur, qu'au niveau (in)formation.
melkir
Messages postés
2
Date d'inscription
dimanche 17 février 2008
Statut
Membre
Dernière intervention
18 février 2008
-
Rien ne se passe sa fait un bruit d'erreur chez moi :s pourtant il faut cliqué sur le fichier .exe non ?

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.