Comment faire clignoter un objet x fois ?

Signaler
Messages postés
2
Date d'inscription
samedi 28 décembre 2002
Statut
Membre
Dernière intervention
28 décembre 2002
-
Messages postés
236
Date d'inscription
jeudi 31 octobre 2002
Statut
Membre
Dernière intervention
18 août 2006
-
Bonjour,

débutant en VB je souhaiterais faire clignoter un objet, disons 10 fois, sur une feuille afin d'atirer le regard de l'utilisateur. J'arrive, à l'aide d'un timer, à ce que l'objet clignote mais il ne s'arrête plus. Si quelqu'un peut m'aider...
Merci d'avance.

2 réponses

Messages postés
23
Date d'inscription
mercredi 19 juin 2002
Statut
Membre
Dernière intervention
5 juin 2004

je pense qu'avec le timer tu es sur la bonne voie...

Private Sub Timer1_Timer()
maintenant = Time
fin = maintenant + 5

While maintenant < fin

clignotement

maintenant = Time
Wend

end sub

voici une petite sub qui te permet de faire fonctionner la sub clignotement (au milieu) pendant 5 secondes...
0
Messages postés
236
Date d'inscription
jeudi 31 octobre 2002
Statut
Membre
Dernière intervention
18 août 2006

Y a + simple !!!

Private Sub Timer1_Timer()
num = num + 1 if num <10 then objet.visible not(objet.visible)
end sub
0