influer sur plusieur "control" d'un coup?

Question

Bon le titre est pas tres clair. Ce que je ve faire c changer par exemple le backcolor de tous les label, text box et cie d'une meme forme avec une boucle for... est ce que ceci est possible?

Renfield · Answer

Private Sub Form_Click()
    Dim Color As Long
    Randomize Timer
    
    Color = Val(Rnd * (vbWhite + 1))
    Dim Ctl As Control
    On Error Resume Next
    For Each Ctl In Controls
       Ctl.BackColor = Color
    Next Ctl
    Me.BackColor = Color
End Sub



By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

cs_got · Answer

Merci bcp... 
mais pkoi un randomize timer?  bof ça doit etre un reste d'un autre code.. 

merci 
a+

Renfield · Answer

"Un reste d'un autre code" ???
non mais dis donc, ce code, je l'ai fait expres pour toi !!  ;) 

Randomize sert a initialiser le moteur de nombre aléatoires...
c'est une habitude a prendre que de mettre cette ligne quand tu utilises rnd.

dans ce cas precis, ca n'est pas indispensable, mais il est des cas, ou on vois que des nombres "aleatoirement" generes (sans appel a randomize) sont systematiquement identiques....

c'est donc quelque chose dont il faut se souvenir.....

By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

cs_got · Answer

oki merci pour l'astuce et desolé pour l'erreur 
Merci d'avoir pondu ce bout de code pour moi ... :blush)

cs_PhilippeE · Answer

@Renfield : C'est de l'excès de zèle le Randomize + le rnd ... y'avait pas précisé qu'il voulait une couleur aléatoire pour son backColor  :sleepy)

Renfield · Answer

oui, bien sur, mais bon, c'est pas mortel.....

By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

Influer sur plusieur "control" d'un coup?

6 réponses

Discussions similaires