|
Aktuální čas nechte ve vhodném formátu (v podstatě digitální hodiny) zobrazovat např. v Label1, čas startu je v názvu okna:
Public Class Form1
' vytvoření Timeru
Private WithEvents tmr As New Windows.Forms.Timer
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
' nastavit interval Timeru 1 sekunda
tmr.Interval = 1000
' odchycení času startu
Dim CasStartu As Date = DateTime.Now
Me.Text = "Odstartováno v " & Format(DateTime.Now, "HH:mm:ss")
' spuštění Timeru
tmr.Start()
End Sub
Private Sub cas_Tick(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles tmrs.Tick
' hodiny:
Label1.Text = Format(DateTime.Now, "HH:mm:ss")
End Sub
End Class
|