2014-03-06 29 views
0

我有一个问题,在我的表单中显示日期和时间。在我的代码中,我可以显示表单载入日期和时间的日期和时间,然后它不会改变。如何在Visual Basic 2008窗体中显示实际的日期和时间?

例如表格于2014年3月6日1:32:00装入,表格显示2014年3月6日1:32:00,即使已经是2014年3月6日1:40:00也不会改变

这是我的声明:

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

回答

0

窗体上放置一个Timer控件,设置它的时间间隔为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 
+0

谢谢Bradley先生......我跟着你说什么,但然后它仍然不工作在这里是我的代码Private Sub Timer1_Tick_1(ByVal发件人为System.Object,ByVal e为System.EventArgs)Handles Timer1.Tick curDatelbl.Text = todaysdate End Sub – affirmative19

+0

您将需要在tick事件中重新计算'todaysdate'。 –

+0

todaysdate = String.Format(“{0:yyyy/MM/dd HH:mm}”,DateTime.Now) –

0

这段代码显示足够好

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