Comment faire clignoter un objet x fois ?

Question

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.

Benj1105 · Answer

Déclare une variable globale que tu incrémente à chaque itération... et tu met un if pour controler si tu dois faire clignoter ou non l objet :)

Guidelor · Answer

oula ! je sais pas si tu a compris ce ki vient de te dire, parce sue, profitant de jeunesse, il se l'ai un peu péter avec des termes compliqués

fait comme ca !

Private sub timer1_...

Num = Num + 1If Num >10 then Objet.visible not(Objet.visible)

End sub

   Guidelor

Benj1105 · Answer

Non je ne me "la suis pas peter"...
Mes termes sont plus que compréhensibles pour le peu qu' on réflechisse le truc où il pourrait butter serait sur la variable globale... erreure que tu as toi même commise ! Je suis au regret de t' annoncer que ton code n' est pas correct ! :S

D' ailleurs il y a plus propre... pour economiser de la mémoire, on évitera que les tentatives de clignotement se refassent lorsqu' elles ne sont plus nécessaires (c' est à dire une fois qu' on sait que nous avons clignoter dix fois)... ton code donnera donc kkchose comme!

Dim clignotement as Integer

Sub timer1_timer
clignotement=clignotement+1
if clignotement <11 then 'Je met 11 moi car j' aime pas les opérateurs logiques composé ! mais bon...
'ici le code pr le clignotement en lui même
end if
if clignotement >10 then timer1.enable=false 
'Voilà on arrête les vérifications qui seraient désormais tout a fait inutiles... Les puristes me diront qu' on pouvait éviter ce if... je suis d' accord mais je en veux pas l' embrouiller... on pourrait aussi détruire complétement le timer mais là encore, je ne veux pas compliquer le code
End Sub

cs_kawash · Answer

c'est simple. Tu fais une  fonction on va dire par ex: 
public sub clignoter
...... tout le blabla pour faire clignoter (une seule fois! ) 
end sub
ensuite il te suffira de placer une boucle for:

for c = 1 to 10 
clignoter
next c

Sensei|Kawash

Guidelor · Answer

le "blabla" pour faire clignoter, en fait, C juste 
Objet.visible = not(Objet.visible)

Benj1105 · Answer

Et la temporisation alors ?!!!
Réflechissez à ce que vous dites tout de même... ;)

Comment faire clignoter un objet x fois ?

6 réponses

Discussions similaires