ImageList, couleur dégradé

Bonjour à tous,

Est ce que quelqu’un peut m'expliquer pourquoi les couleurs ne passe pas correctement ?

Cordialement.

Bonjour

ci-joint + 1 image

crdlt,

André

Bonjour,

Merci pour t'as réponse.

Non l'image n'est pas transparente, mais elles sont au format .bmp.

Pourtant j'ai d'autre image à fond noir au même format et elle ne pas de problème.

Cordialement.

Ci-joint mes images, celle du dossier SP en fond noir, fonctionne très bien.

Re,

j'ai insérer une image .Jpeg (Doc_test)

(dans les Propriétés de l'USF)

• le fond de l'usf du label est blanc &H00FFFFFF&
• ImageList1 maskColor à False

Je t'ai modifié les images en fond noir pour 'médecin'

ci-joint

Ok, je vais essayer de regarder ce soir.

Bon comme ca faisait un peu cracra les couleurs (delta de colorie).

J'ai re fait tout mes images, sauf que je n'ai pas touché l'image de fond.

Ensuite dans l'initialisation de mon usf j'ai mis :

             For c = 1 To 5
                 If Controls("combobox" & c).Value = "Infirmier" Or Controls("combobox" & c).Value = "Infirmier Principal" Or Controls("combobox" & c).Value = "Infirmier Chef" Or Controls("combobox" & c).Value = "Infirmier D'Encadrement" Or Controls("combobox" & c).Value = "Medecin Capitaine" Or Controls("combobox" & c).Value = "Medecin Commandant" Or Controls("combobox" & c).Value = "Medecin Lieutenant Colonel" Or Controls("combobox" & c).Value = "Medecin Colonel" Or Controls("combobox" & c).Value = "Expert Psychologue" Or Controls("combobox" & c).Value = "Expert SSSM" Then Me.Controls("Label" & c).BackColor = &H80&

                 If Controls("combobox" & c).Value = "Pharmacien Capitaine" Or Controls("combobox" & c).Value = "Pharmacien Commandant" Or Controls("combobox" & c).Value = "Pharmacien Lieutenant Colonel" Or Controls("combobox" & c).Value = "Pharmacien Colonel" Then Me.Controls("Label" & c).BackColor = &H4000&

                 If Controls("combobox" & c).Value = "Veterinaire Capitaine" Or Controls("combobox" & c).Value = "Veterinaire Commandant" Or Controls("combobox" & c).Value = "Veterinaire Lieutenant Colonel" Or Controls("combobox" & c).Value = "Veterinaire Colonel" Then Me.Controls("Label" & c).BackColor = &H400040

                 If Controls("combobox" & c).Value = "Sapeur 2eme classe" Or Controls("combobox" & c).Value = "Sapeur 1ere classe" Or Controls("combobox" & c).Value = "Caporal" Or Controls("combobox" & c).Value = "Caporal Chef" Or Controls("combobox" & c).Value = "Sergent" Or Controls("combobox" & c).Value = "Sergent Chef" Or Controls("combobox" & c).Value = "Adjudant" Or Controls("combobox" & c).Value = "Adjudant Chef" Or Controls("combobox" & c).Value = "Major" Or Controls("combobox" & c).Value = "Lieutenant" Or Controls("combobox" & c).Value = "Capitaine" Or Controls("combobox" & c).Value = "Commandant" Or Controls("combobox" & c).Value = "Lieutenant Colonel" Or Controls("combobox" & c).Value = "Colonel" Or Controls("combobox" & c).Value = "Expert" Then Me.Controls("Label" & c).BackColor = &H0&

            Next c

C'est un peu radical mais ça fonctionne.

Si jamais il y a d'autre idée, je suis preneur mais je passe quand même le sujet en résolu.

Merci beaucoup pour l'aide apporté Andre13.

Bonjour Poruss,

merci à toi également

beau travail ^^

passe bonne fin de soirée

crdlt,

André