Question

我设置了一个需要在每天特定时间启用的计数器。举个例子，我们每天（下午3点）说。我提出的是遵循一段代码。但是当它达到参数无效的时候会给我一个错误请帮助我，

Private t As Integer = 0

 Private Sub Home_monitoring_tab_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        rs.FindAllControls(Me)
        Execute()
 End Sub

Private Sub Execute()
        If DateTime.Now.ToString("HH:mm") = "15:00" Then
            shift1_timer.Enabled = True
        End If
End Sub

Private Sub shift1_timer_Tick(sender As Object, e As EventArgs) Handles shift1_timer.Tick
        t += 1
        Label14.Text = CStr(t)
End Sub

Answer 1

试试这个，在你的程序中添加一个计时器并调用它CheckTimer并更新你的代码：

Private t As Integer = 0

Private Sub Home_monitoring_tab_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    rs.FindAllControls(Me)
    CheckTimer.Interval = 1
    CheckTimer.Start
End Sub

Private Sub CheckTimer_Tick(sender As Object, e As EventArgs) Handles CheckTimer.Tick
    If DateTime.Now.ToString("HH:mm") = "15:00" Then
        shift1_timer.Enabled = True
    End If
End Sub

Private Sub shift1_timer_Tick(sender As Object, e As EventArgs) Handles shift1_timer.Tick
    t += 1
    Label14.Text = CStr(t)
End Sub

希望有所帮助：）

每天在特定时间启用计数器

1 个答案: