Discussion :

[Herve_be]

Bonjour,
Problème très curieux sur un Label nommé "Sample"

Code :

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

1
2
3
Sample.BackColor = vbBlack
Sample.ForeColor = vbWhite
Sample.Caption = "Pixels analysés : " + Str$(Pixels)

L'arrière plan est bien noir mais le texte est gris !
Une idée ?

[OhMonBato]

Curieux, tu es vraiment sûr que ce n'est pas un effet d'optique ? Si tu analyse la couleur avec un programme comme photoshop par exemple, tu as quoi ?

[Herve_be]

Oui, c'est curieux, mais je viens de trouver quelque chose : ceci est inclus dans une boucle For

Code :

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

1
2
3
    Sample.BackColor = vbBlack
    Sample.ForeColor = vbWhite
    Sample.Caption = "Pixels analysés : " + Str$(Pixels)

Je l'arrête (avec debug) après la dernière ligne et j'obtiens ceci


La couleur du texte est RGB(109,109,109) : je ne sais pas d'où ça sort.
Je change Sample.BackColor = vbBlack en vbWhite
et je laisse la boucle faire un tour : la couleur du fond ne change pas !

Dans la boucle j'ai bien un DoEvents mais je pense que quelque chose empêche l'écran de se rafraîchir.

Pour info les valeurs par défaut du Label sont
BackColor = &H00E0E0E0&
ForeColor = &H0000FFFF&

[ProgElecT]

Salut

........Je l'arrête (avec debug) après la dernière ligne et j'obtiens ceci

...............

Il manque sûrement un bout de code, car il me semble bien que s'est la couleur ENABLED du label ayant pour ForeColor = vbWhite.

[Herve_be]

Ah, oui : enabled = false !