日期:2014-05-18 浏览次数:20576 次
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lblResult.Text = DateTime.Now.ToString()
Dim timer As System.Timers.Timer = New System.Timers.Timer
timer.Interval = 1000
AddHandler timer.Elapsed, AddressOf OnTimeEvent
timer.Enabled = True
End If
End Sub
Private Sub OnTimeEvent(ByVal source As Object, ByVal e As System.Timers.ElapsedEventArgs)
lblResult.Text = DateTime.Now.ToString()
End Sub