modifier la couleur du texte d'un label de façon progressiveRésolu

Question

Bonjour,

Je cherche à modifier la couleur du texte d'un label de façon progressive (du blanc au noir). Pour cela, je tente avec le code ci-dessous mais rien ne se passe :


 lblagenda.ForeColor = Color.FromArgb(255, 255, 255)

For y = 255 To 0 Step 1
   lblagenda.ForeColor = Color.FromArgb(y, y, y)
Next

Quelqu'un a t'il une idée ?

Merci par avance.

Mayzz · Accepted Answer

Salut !

D'ou sort ce code ???

For y = 255 To 0 Step 1 
    lblagenda.ForeColor = Color.FromArgb(y, y, y) 
Next 

Une boucle démarre toujours par le plus petit nombre sinon vb ne l'exécute pas :

For i = 0 to 9
  'Exécuté 10 fois
next i

For i = 9 To 0 
  'Exécuté 0 fois
Next i

Le plus l'instruction Step 1 ne sert strictement à rien, Step sert à sauter des étapes :

For i = 9 To 0 Step 2
  'Exécuté à 0, 2, 4, 6, 8
Next i

Donc si tu met step 1, cela revient à ne rien mettre du tout...

Essaye :

For y = 0 To 255
    Dim Chan As Byte = 255 - y
    lblagenda.ForeColor = Color.FromArgb(Chan, Chan, Chan) 
Next 

Idem : Comme dit jmf0, avec ce code, les instructions vont être exécuté à la suite, ton label passera donc du blanc au noir instantanément. Essaye d'y insérer une ligne de code qui fera patienter ton programme entre chaques décrémentations de la couleur de ton label.

@+ Mayzz.

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

jmf0 · Answer

Bonjour,

et selon toi : par quelles valeurs de y va-t-il passer de 255 à 0 si tu augmente y de + 1 à chaque boucle ?

ricky84 · Answer

For y = 255 To 0 Step -1 


ça devrait marcher

Mayzz · Answer

Effectivement de cette façon cela devrait fonctionner, tu précise à vb d'aller en soustrayant l'étape.

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

Modifier la couleur du texte d'un label de façon progressive

4 réponses

Votre réponse

Discussions similaires