Discussion :

[jacma]

Bonjour
Je rencontre une petite difficulté. Je récupère le code d'une couleur dans Paint Shop , sous forme &H00FFFFFF par exemple. J'utilise ce code pour définir la couleur de fond d'une cellule MSFlexGrid, mais la couleur obtenue alors est toute autre. Pourtant, le deux sont en RGB. La palette est peut-être différente entre Paint Shop et VB?...
Bref, comment obtenir le bon code couleur, sachant que je dois à priori conserver la couleur définie dans Paint Shop.
Merci.

[Tofalu]

Tu es sur de ton code couleur ? Il me parait bien long

[ridan]

Salut,

La palette est peut-être différente entre Paint Shop et VB?...

Effectivement, le format des couleurs n'est pas le même :

+ Les code des couleurs sur VB est représenté sous la forme : BBVVRR

+ Les couleurs HTML (Utilisées dans les logiciels de traitement d'images) sont au format : RRVVBB

Il faudrait donc penser à une petite fonction de conversion, Quelque chose du genre :

Code :

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

1
2
3
4
5
6
7
CouleurHTML = "#B1B369"
 
rouge = CLng("&H" & Mid(CouleurHTML, 2, 2))
vert = CLng("&H" & Mid(CouleurHTML, 4, 2))
bleu = CLng("&H" & Mid(CouleurHTML, 6, 2))
 
Label1.BackColor = RGB(rouge, vert, bleu)

[jacma]

Merci de vos réponses.
La solution présentée par Ridan est parfaitement opérationnelle.
Merci