Comment faire clignoter un objet x fois ?

cs_dens Messages postés 2 Date d'inscription samedi 28 décembre 2002 Statut Membre Dernière intervention 28 décembre 2002 - 28 déc. 2002 à 21:32
Guidelor Messages postés 236 Date d'inscription jeudi 31 octobre 2002 Statut Membre Dernière intervention 18 août 2006 - 29 déc. 2002 à 16:38
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

ktmpb Messages postés 23 Date d'inscription mercredi 19 juin 2002 Statut Membre Dernière intervention 5 juin 2004
29 déc. 2002 à 12:24
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
Guidelor Messages postés 236 Date d'inscription jeudi 31 octobre 2002 Statut Membre Dernière intervention 18 août 2006
29 déc. 2002 à 16:38
Y a + simple !!!

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