Uhrzeit Jede Sekunde in ein Label schreiben
Schwierigkeitsgrad: ( Leicht, aber auch nicht ganz leicht )
Objekte: 2
-Timer
-Label
Code:
Private Sub Form_Load()
Timer1.Interval = 1000
Msgbox "Tutorial by Flip" ,vbInformation, "by Flip"
End Sub
Private Sub Timer1_Timer()
lblUhrzeit.Caption = Now ' Jede Sekunde wird diese Zeile ausgeführt.
End Sub
Caption ist die Beschriftung eines Labels!
Wenn ihr selbts einen Text schreiben wollt schreibt ihr z.B.
lblUhrzeit.Caption = "Hallo"
Gänsefüßchen nicht vergessen!
IN Gänßefüßchen schreibt ihr wenn ihr einen eigenen Satz schreiben wollt, wenn ihr lblUhrzeit.Caption allerdings eine Variable zuweißt, braucht ihr KEIN Gänßefüßchen schreiben, sonst würde es z.B. heißen
Now
Dass würde dann in dem Label stehen.
So Hier mal Timer einstellungen:
1000 = 1 Sekunde
1500 = 1,5 Sekunden
2000 = 2 Sekunden
10000 = 10 Sekunden
60000 = 60 Sekunden ( 1 min )
Allerdings kann der Timer nicht ewig viel aufnehmen, irgendwann kann der Timer nichts mehr aufnehmen.
So, hoffe ich konnte euch helfen!
Erfolgreich Getestet in:
VB6
VBA
Gruß,
[GRC]Flip