请问为什么我的timer控件不起作用,在线等,谢谢 Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Session("Timer") Is Nothing Then
Session("Timer") = 1
End If
Response.Write(Session("Timer").ToString()) If Not IsPostBack Then
Dim Timer1 As New System.Timers.Timer(5000)
Timer1.Enabled = True
AddHandler Timer1.Elapsed, AddressOf Timer1_Elapsed
End If
End Sub Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
Me.Label1.Text = Me.Label1.Text + "1"
End Sub
End Class请问为什么我的Label1.Text的值不管怎样都不变化呢.
'在此处放置初始化页的用户代码
If Session("Timer") Is Nothing Then
Session("Timer") = 1
End If
Response.Write(Session("Timer").ToString()) If Not IsPostBack Then
Dim Timer1 As New System.Timers.Timer(5000)
Timer1.Enabled = True
AddHandler Timer1.Elapsed, AddressOf Timer1_Elapsed
End If
End Sub Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
Me.Label1.Text = Me.Label1.Text + "1"
End Sub
End Class请问为什么我的Label1.Text的值不管怎样都不变化呢.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货