HORLOGE DIGITAL

Signaler
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/17706-horloge-digital

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
125
Ah si, il y avait beaucoup plus condensé avec ton code si tu avais utilisé des boucles !

Exemple :

Au lieu de :
Shape2(0).FillColor = &H0&
Shape2(1).FillColor = &H0&
Shape2(2).FillColor = &H0&
Shape2(3).FillColor = &H0&
Shape2(4).FillColor = &H0&
Shape2(5).FillColor = &H0&
Shape2(6).FillColor = &H0&
Shape2(7).FillColor = &H0&
Shape2(8).FillColor = &H0&
Shape2(9).FillColor = &H0&
Shape2(10).FillColor = &H0&
Shape2(11).FillColor = &H0&
Shape2(12).FillColor = &H0&
Shape2(13).FillColor = &H0&
Shape2(14).FillColor = &H0&
Shape2(15).FillColor = &H0&
Shape2(16).FillColor = &H0&
Shape2(17).FillColor = &H0&
Shape2(18).FillColor = &H0&
Shape2(19).FillColor = &H0&
Shape2(20).FillColor = &H0&
Shape2(21).FillColor = &H0&
Shape2(22).FillColor = &H0&
Shape2(23).FillColor = &H0&
Shape2(24).FillColor = &H0&
Shape2(25).FillColor = &H0&
Shape2(26).FillColor = &H0&
Shape2(27).FillColor = &H0&


Il aurait suffit :

Dim OBJ_Objet As Object

For Each OBJ_Objet In Shape2

OBJ_Objet.FillColor = &H0&

Next OBJ_Objet


C'est quand même plus court !

DarK Sidious
Messages postés
3
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
19 décembre 2003

je suis tout a fait d'accord avec toi, il est trés répétitif, mais je ne pense pas qu'il y ait d'autre moyen....... pour le zip, ca va venir! :o)
d'ailleurs, j'ai oublié un truc, on peut optimiser la fonction "clear"
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
Tu aurais pu mettre un Zip a disposition....

Ton code est répetitif..... trop, certainement.......


Mais ne sachant pas comment placer, et definir les proprietes de mes composants, je ne peux le tester, ni chercher a l'optimiser.....