HI Leutz
Ich hab da ein problem : ich habe ein VB programm geschrieben welches die aktuelle zeit datum usw. angibt. ( mit den befehlen hour(time) second(time) usw. )
Das Problem ist das nur die zeit beim laden des programmes angezeigt wird und dann stehen bleibt. Das liegt daran das die uhr nicht mehr aktualisiert wird.
Wie kann man das machen ?
T-Rex
Suncezz
„VB Aktualisierung“
Hi,
' Du brauchst:
' - 1 Label (Label1)
' - 1 Timer (Timer1)
Option Explicit
Private Sub Form_Load()
' Timer einstellen
With Timer1
.Interval = 500 ' Millisekunden
.Enabled = True
End With
End Sub
Private Sub Timer1_Timer()
Static blnDoppelPunkt As Boolean
' Aktuelle Zeit ausgeben
If blnDoppelPunkt Then
Label1.Caption = Format$(Now, "hh\:nn")
Else
Label1.Caption = Format$(Now, "hh\ nn")
End If
' Flag ändern
blnDoppelPunkt = Not (blnDoppelPunkt)
End Sub
