请问为什么我的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的值不管怎样都不变化呢.

解决方案 »

  1.   

    调试一下,看看能不能执行Timer1_Elapsed
      

  2.   

    谢谢楼上,Timer1_Elapsed可以执行,但是我的Label1.Text的值不管怎样都不变化.现在想要实现“自动弹出消息提示”的功能,需要满足下面两点要求: 1、假设某一个客户机往表A中插入了一条新的记录,那么其它打开该系统的客户机上就会弹出一个消息提示! 2、客户机打开系统后,每隔一段时间自动检索表A中有没有新的记录,如果有则弹出消息提示。