Discussion :

[Delbeke]

Bon, on dit jamais deux sans trois

Un composant tout simple permettant de gérer un compte à rebours
Pour le lancer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CountDown1.StartCountDown DuréeDuCompteàRebours

A chaque seconde un événement se declenche indiquant le temps restant avant la fin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CountDown1_Tick(Second As Long)
  Label1.Caption = Second
End Sub

A la fin du compte à rebours

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CountDown1_Finish()
  Label1.Caption = "Fin du compte à rebours"
End Sub

Ca peux servir si vous voulez déclencher une opération tout en laissant à l'utilisateur le temps d'annuler le déclenchement.


OCX DiCountDown6.zip

[Delbeke]

Ha, j'ai oublié
Arreter le compte à rebours avant sa terminaison

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CountDown1.Abort