begin process at 2012 02 17 02:01:50
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Divers

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

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


 Information sur la source

Note :
9,25 / 10 - par 4 personnes
9,25 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Divers Niveau :Initié Date de création :30/10/2004 Vu / téléchargé :24 216 / 1 270
Auteur : Danyz

Ecrire un message privé
Site perso
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

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture ASTUCE IMAGELIST COMCTL32.OCX
Source avec Zip Source avec une capture POPUP MENU COMPLET POUR RICHTEXTBOX (COPIER,COLLER,ETC...)
Source avec Zip Source avec une capture RECHERCHE DE PAROLES DE CHANSONS
Source avec Zip Source avec une capture LABEL LINK TRÉS SIMPLE, SANS OCX NI RIEN
Source avec Zip Source avec une capture CALENDRIER (SANS OCX , GERE LES ANNÉES BISSEXTILES)
Toutes les sources de Danyz

 Sources de la même categorie

Source avec Zip TEXTBOX EN NUMÉRIQUE par 320C
Source avec Zip DÉCIMAL TO HEXDECIMAL par loulou27200
SOUS-TITRES : INCRÉMENTATION DE TOUTES LES CHAÎNES DE CARACT... par ALMIRA
Source avec Zip Source avec une capture EVALUER UN NOMBRE D'OBJETS AVEC UNE BALANCE ET DEUX ÉCHANTIL... par lexsty
Source avec Zip Source avec une capture PETIT LOGICIEL DE DEVIS SANS BD par lololilizozo
Toutes les sources de la catégorie Divers

Commentaires et avis

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

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...)

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

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.

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 ?

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

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

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

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), 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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,577 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)