在我的表單控件中生成數字時鐘

Question

這是我的第一個問題，請原諒我，如果有任何錯誤。也是VB.net的新手。讓我來談談。我希望顯示一個數字時鐘，每次顯示秒數而不刷新頁面。

我有一個標籤，名爲Label1，其中我需要顯示時間。我嘗試了一個循環，但只顯示了一段時間。如何在表單加載時使其運行。

我使用此代碼的經驗是：

For i As Integer = 0 To 60 
    Label1.Text = Now.TimeOfDay.ToString 
Next 

但只顯示一次。我期望一些幫助，使表單加載時運行。在此先感謝

Answer 1

您可以使用Timer control用於此目的。該鏈接將引導您創建計時器事件。在這裏，我提出了一些方法，動態創建計時器，並通過AddHandler添加事件吧。考慮下面的代碼：

Dim clockTimer As Timer = New Timer 'Creating dynamic timer 
    clockTimer.Interval = 1000 'Assign timer interval as 1000ms=1second 
    AddHandler clockTimer.Tick, AddressOf clockTick 'add event for the dynamically created controls 
    clockTimer.Start()'start the timer 
    ' Up to this comes in the form load section 
    Public Sub clockTick()' Function which refered by the addhandler 
     Label1.Text = Now.TimeOfDay.ToString ' show time in label and are refreshed in each tick(1sec) 
    End Sub 

更新：爲什麼你的代碼是不工作：

• 您使用的是For loop其重複的代碼60次，但第二個，所以你內完成其迭代無法看到變化。
• 而不是爲此使用定時器，將在指定的時間間隔內自動執行