62,025
社区成员
发帖
与我相关
我的任务
分享
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