Discussion :

[narutobaka]

Bonjour,

Je travaille actuellement sur un application en vb.net.

Je dois aller lire des données dans une base de donnée.

Ces données correspondent à la représentation entière d'une couleur Delphi.

Je voulais savoir si il existait une fonction vb.net permettant d'interpréter la représentation entière d'une couleur Delphi?

J'ai tester color.fromARGB(Ma_valeur), mais cela ne renvoit pas de couleur correcte.

cordialement

[Er3van]

Tu aurais sûrement plus de chance d'avoir une réponse sur le forum Delphi.

Pourquoi les couleurs sont-elles stockées au format Delphi et non pas dans un format indépendant d'un langage, comme par exemple RVB ?

Sinon, pour répondre à ta problématique, je ne connais pas Delphi mais à mon avis, par simple division hexa/binaire tu devrais pouvoir récupérer les bits qui t'intéressent en RVB. Je ne sais pas s'il existe une formule standardisée pour cela...

[narutobaka]

Bonjour,

Pourquoi les couleurs sont-elles stockées au format Delphi et non pas dans un format indépendant d'un langage, comme par exemple RVB ?

Le projet n'était peut être pas définit pour.

Quoiqu'il en soit je peux laisser tomber la partie concernant la lecture de valeur entière qui représente une couleur Delphi dans la Bdd.

Je cherche maintenant à pouvoir stocker une couleur vb.net avec un integer dans ma base de donnée.

merci d'avance pour votre aide

cordialement

[Er3van]

Même remarque : pourquoi diable stocker une valeur dans un format non-standard ?

Il serait beaucoup plus logique de stocker en composantes RVB (par exemple) et de le transformer dans chaque application consommatrice dans sa propre gestion des couleurs !

[Pol63]

une couleur en .net ca me parrait plutot standard
on peut en instancier à partir des 4 valeurs ARGB entre 0 et 255 ou à partir d'un int, l'int étant juste la valeur obtenu à partir de l'hexa du argb
(#FFFFFFFF étant du blanc non transparent je crois)

donc macouleur.toargb te donnera un int
et dans l'autre sens : system.drawing.color.fromargb(intvalue)

[tomlev]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim c As Color = ...
Dim colorCode As String = ColorTranslator.ToHtml(c)

Ca renvoie la couleur au format HTML (attention, pour les couleurs nommées ça renvoie le nom de la couleur... par exemple pour Color.Red ça renvoie "Red")