AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 01 08 00:38:00
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

HEXA / DECIMAL / VB HEXA / RVB - TOUTES LES CONVERSIONS DE TYPE DE COULEURS DANS UN MODULE


Information sur la source

Catégorie :Divers Niveau : Initié Date de création : 30/10/2004 Vu / téléchargé: 16 656 / 884
Auteur : Danyz Site perso
Ecrire un message privé
Note :
9,25 / 10 - par 4 personnes
9,25 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (8)
Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale
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

  • 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 
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 ;)
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de MadM@tt le 31/10/2004 15:16:51

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

signaler à un administrateur
Commentaire de Danyz le 31/10/2004 15:52:13

Je vais voir ca pour l'api :)
(c vrai ke les couleurs systeme renvoient des valeurs negatives...)

signaler à un administrateur
Commentaire de mailys6 le 27/04/2005 17:08:24

C'est vraiment bien expliqué. Chaque conversion avec un exemple, ca simplifie la vie !
Merci beaucoup

Maïlys

signaler à un administrateur
Commentaire de infosam le 13/12/2007 09:38:25 10/10

Très bon petit programme et très pratique, tant au niveau de convertisseur de code couleur, qu'au niveau (in)formation.

signaler à un administrateur
Commentaire de melkir le 17/02/2008 23:46:16

Rien ne se passe sa fait un bruit d'erreur chez moi :s pourtant il faut cliqué sur le fichier .exe non ?

signaler à un administrateur
Commentaire de melkir le 18/02/2008 12:47:43 8/10

J'ai trouvé la cause du probléme il fallait rajouter une dll que j'ai télécharger, super logiciel

signaler à un administrateur
Commentaire de Bloody wave le 21/03/2008 17:23:03

Euh... Même erreur chez moi, peut tu me dire quel dll il faut et si tu as le lien ce serai sympa ;)

signaler à un administrateur
Commentaire de CowBOY79 le 17/05/2008 10:06:55

moi il me manque le fichier VB6FR.DLL il se trouve ou ?

Ajouter un commentaire

Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,250 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.