Home
Home

---Soumis par Dev Ashish---

Créer une horloge sur un formulaire.

    Pour placer une horloge texte toute simple sur un formulaire, créer un étiquette, lblClock, utiliser la propriété TimerInterval du formulaire qu'on assignera à 1000, puis ajouter le code suivant à la procédure événementielle Timer du formulaire.

    Vous pouvez également ajouter les deux boutons  cmdClockStart et cmdClockEnd auxquels on attachera le code à leur événement Click.

'***************** Code Start ***************
Private Sub Form_Timer()
    Me!lblClock.Caption = Format(Now, "dddd, mmm d yyyy, hh:mm:ss AMPM")
End Sub

Private Sub cmdClockStart_Click()
    Me.TimerInterval = 1000
End Sub

Private Sub cmdClockEnd_Click()
    Me.TimerInterval = 0
End Sub
'***************** Code End ***************