Thema: Aktuelle Zeit anzeigen

Home

Abbildung - Aktuelle Zeit anzeigen

Prozedur: UpdateClock
Art: Sub
Modul: Standard
Zweck: Aktuelle Zeit anzeigen
Ablaufbeschreibung:
- Public-Variable für den nächsten Aufruf festlegen
- UserForm-Label-Aufschrift festlegen
- Zeitpunkt des nächsten Aufrufs festlegen (1 Sekunde)
- Rekursiver Aufruf der Prozedur

Code:


Public NextTime As Date

Sub UpdateClock()
   frmZeit.lblZeit.Caption = Format(Time, "hh:mm:ss")
   NextTime = Now + TimeValue("00:00:01")
   frmZeit.Repaint
   Application.OnTime NextTime, "UpdateClock"
End Sub

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Zeiteintrag starten
Ablaufbeschreibung:
- Prozedur zum Zeiteintrag aufrufen

Code:


Private Sub UserForm_Initialize()
   Call UpdateClock
End Sub

Prozedur: cmdWeiter_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Zeitschleife beenden uns UserForm schließen
Ablaufbeschreibung:
- Zeitschleife beenden
- UserForm schließen

Code:


Private Sub cmdWeiter_Click()
   Application.OnTime NextTime, "UpdateClock", , False
   Unload Me
End Sub