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

[narutobaka]

Bonjour,

Et merci pour vos réponse.

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

j'ai utilisé cette solution :

Pour récupérer la valeur à stocker dans ma base :

Code :

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

Panel.backColor=color.fromArgb(CInt(MaValeurEnBase))

Pour connaitre les valeurs a stocker pour mes tests

Code :

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

Label.text=Panel.backcolor.toArgb.tostring

Par contre ca me donne des valeurs négatives est-ce normal?

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

Est-ce une méthode standard, me permettant d'aller lire ma valeur en base avec n'importe quel autre type de language?

Merci pour votre aide

[Pol63]

Par contre ca me donne des valeurs négatives est-ce normal?

oui

Est-ce une méthode standard, me permettant d'aller lire ma valeur en base avec n'importe quel autre type de language?

il faudrait un "expert" en héxadécimal pour confirmer que l'int fournit par ToARGB est bien une conversion normale d'hexadécimal vers integer
auquel cas tu pourras retrouver les valeurs de a, r, g et b entre 0 et 255 (ou en hexa entre 00 et FF) à partir d'un int en découpant les 4 octets de l'int, et donc remettre ca dans n'importe quel système