Couleur hexadecimal

Commenter

Contenu du snippet

J'avais besoin pour des besoins tiré web d'avoir un système permettant d'encoder et de visualiser dans mon code la couleur "web", elle est représentez sous la forme Hexadécimal ce qui complique un peu plus la chose.
J'ai parcourue le web et c'est sur MSDN que j'ai trouvé la solution, il me semble bon de la présenter ici.

J'ai un champs (C_color) dans une table renseignant la couleur sous la forme 'ff00ff' qui correspondrait à rose --> rgb(255,0,255)
Pour faire ma conversation j'utilise 3 variables temporaires pour mes 3 couleurs primaire (Rouge Vert Bleu)

Source / Exemple : 


&& Exemple pour transformer l'hexa en decimal
lc_colorR = '0x' +SUBSTR(C_Color,1,2)
lc_colorG = '0x' +SUBSTR(C_Color,3,2)
lc_colorB = '0x' +SUBSTR(C_Color,5,2)

monobjet.Backcolor = RGB(&lc_colorR, &lc_colorG, &lc_colorB)

myvar = Int2Hex(monobjet.Backcolor)     && myvar contient le code hexadécimal sur 6 caractères

&& fonction pour transformer le décimal en hexa
&& EXTRAIT DE http://www.news2news.com/vfp/?example=260
FUNCTION  Int2Hex (num)
    DECLARE INTEGER wnsprintf IN Shlwapi;
        STRING @lpOut, INTEGER cchLimitIn,;
        STRING pszFmt, INTEGER

    LOCAL lnResult, lcResult
    lcResult = SPACE(20)
    lnResult = wnsprintf(@lcResult, 20, "%x", num)
    RETURN Left(lcResult, lnResult)
ENDFUNC

A voir également

S'inscrire maintenant

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.

Du même auteur (tmcuh)