PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 2024 → Conversion RVB vers Hexa
Conversion RVB vers Hexa
Iniciado por guest, jun., 14 2005 6:26 PM - 6 respostas
Publicado em junho, 14 2005 - 6:26 PM
Bonjour,
Comment convertir une valeur RVB en code html de type "#000000"

Merci d'avance
Publicado em junho, 14 2005 - 2:18 PM
Salut,
MaChaine est une chaine
MaChaine = NumériqueVersChaîne(ValeurRVB, "X")

Et voilà
Mathieu

"Nexus" <guest@newsgroup.fr> a écrit dans le message de news:
42aedcb0$1@news.pcsoft.fr...

Bonjour,
Comment convertir une valeur RVB en code html de type "#000000"

Merci d'avance
Publicado em junho, 14 2005 - 7:32 PM
Si tu as les composantes RVB de ta couleur, il suffit juste de concaténer un chaine avec ces valeurs en la précédant de #. Et voila le tour est joué et ta chaine récement crée contient le code HTML de ta couleur.
Publicado em junho, 14 2005 - 7:37 PM
Désolé, j'ai voulu répondre trop vite.
Voila une réponse surement plus correcte :
En espérant, toutefois que tu ais tes composantes RVB :


CouleurHTML est une chaîne
CouleurHTML = "#" + NumériqueVersChaîne(CouleurPixelRouge, "2X") + NumériqueVersChaîne(CouleurPixelVert, "2X") + NumériqueVersChaîne(CouleurPixelBleu, "2X")


Dans le cas où tu ne connaitrais pas les composantes RVB de ta couleur mais que tu voudrais récupérer ses composantes sur un dessin existant en choisissant un point précis de ce dernier il suffit d'insérer au préalable :


CouleurPixel est un entier
CouleurPixel = dPixelCouleur(Image1,768,50)

CouleurPixelRouge est un entier
CouleurPixelVert est un entier
CouleurPixelBleu est un entier

CouleurPixelRouge = modulo(CouleurPixel, 256)
CouleurPixelVert = modulo(CouleurPixel/256, 256)
CouleurPixelBleu = modulo(CouleurPixel/256/256, 256)


Voila. En espérant répondre, cette fois ci, correctement à ta question.
Publicado em junho, 15 2005 - 5:16 AM
Bonsoir,

HexaHTML est une chaîne
HexaHTML = "#"+NumériqueVersChaîne(Val(RVB(10,0,0),"x"),"06d")

Bonne Chance
----------
//**//
Publicado em junho, 15 2005 - 1:11 PM
Merci à tous pour vos réponses!!!
Publicado em setembro, 17 2005 - 11:45 AM
Bonjour, pour completer voicie un code utile..

coulnum est entier
coulhtm est une chaîne

SelectCouleur(coulnum) // Selecteur de couleur de Windows ex: rouge%5 = 0x0000FF ce qui place le rouge a la position du bleu il va faloir inversser
coulhtm =NumériqueVersChaine(coulnum,"06X")
coulhtm="#"+coulhtm[[5 sur 2]]+coulhtm[[3 sur 2]]+coulhtm[[ A 2 ]]


Salutation a tous