摘要： Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim sql As String Dim dt As New DataTable Time2 = "11:14:00" '设置定时的时间，24小时制 ,应该放在出事加载程序中 Timer1.Interval = 1000 '设置计时器每秒钟运行一次 ,应该放在出事加载程序中 Timer1.Enabled = True '计时器开始运行 ,应该放 阅读全文