[VB6]Uhrzeit jede Sekunde in ein Label schreiben!

  • 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

    Einmal editiert, zuletzt von [GRC]Flip ()