22. marts 2003 - 12:46
Der er
4 kommentarer og 1 løsning
Real-time visning af tid ??
Hvordan er det muligt at få den til at vise den aktuelle tid, så det faktisk er et ur ?? Jeg har denne her kode i min form: Dim strTime As String strTime = Format(Now, "mm/dd/yy hh:mm:ss") StatusBar1.Panels(2).Text = strTime
Annonceindlæg fra Lenovo
22. marts 2003 - 13:02
#2
Private Sub Timer1_Timer() In the from load event Timer1.Interval = 1000 Timer1.Enabled = True Dim strTime As String strTime = Format(Now, "mm/dd/yy hh:mm:ss") StatusBar1.Panels(2).Text = strTime End Sub
22. marts 2003 - 13:03
#3
oops In the from load event Timer1.Interval = 1000 Timer1.Enabled = True Then Private Sub Timer1_Timer() Dim strTime As String strTime = Format(Now, "mm/dd/yy hh:mm:ss") StatusBar1.Panels(2).Text = strTime End Sub