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