Question

我在表单中显示日期和时间时遇到问题。在我的代码中，我可以显示表单加载日期和时间的日期和时间，然后，它永远不会更改。

例如表格在2014年3月6日1:32:00之前加载，表格显示2014年3月6日1:32:00并且从未改变，即使已经是2014年3月6日1:40:00 < / p>

这是我的声明：

 Dim todaysdate As String = String.Format("{0:yyyy/MM/dd HH:mm}", DateTime.Now)
 curDatelbl.Text = todaysdate

Answer 1

在表单上放置一个计时器控件，将其间隔设置为1000（1秒），并在计时器的tick事件中调用您的代码。不要忘记在表单加载时启用计时器（或者只要您希望它开始计时。）

Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    todaysdate = String.Format("{0:yyyy/MM/dd HH:mm}", DateTime.Now)
    Me.curTimelbl.Text = todaysdate 
End Sub

Answer 2

此代码显示足够好

 Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Me.curTimelbl.Text = TimeOfDay
End Sub

Private Sub login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Me.Timer1.Enabled = True
    Me.curDatelbl.Text = todaysdate
End Sub

如何在Visual Basic 2008表单中显示实际日期和时间？

2 个答案: