Vb.net 在计时器上满足所需的分钟和秒数时,消息框未显示

Vb.net 在计时器上满足所需的分钟和秒数时,消息框未显示,vb.net,timer,Vb.net,Timer,你能帮我检查一下代码中我遗漏了什么吗。我想实现的是,当每小时每49分钟一次的事件发生时,提示一个消息框 已经尝试声明分和秒的值,但当49分和00秒到达时,它不会提示消息,只是持续地打勾 Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Timer1.Start() If lblMinutes.Text = "48:" And lblsecond.Tex

你能帮我检查一下代码中我遗漏了什么吗。我想实现的是,当每小时每49分钟一次的事件发生时,提示一个消息框

已经尝试声明分和秒的值,但当49分和00秒到达时,它不会提示消息,只是持续地打勾

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Timer1.Start()
        If lblMinutes.Text = "48:" And lblsecond.Text = "00" Then

            MessageBox.Show("Please wait were updating the data table..")

        End If
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        lblHours.Text = Date.Now.ToString("hh:")
        lblMinutes.Text = Date.Now.ToString("mm:")
        lblsecond.Text = Date.Now.ToString("ss")
        lbltt.Text = Date.Now.ToString("tt")
    End Sub

我希望每次计时器达到每小时49分00秒时都会出现一个消息框

Private Sub Form_Load()
    Timer1.Interval = 60000 '1 min
    Timer1.Enabled = True
End Sub

Dim isec As Integer = 0
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

   isec += 1

   If isec = 49 Then
      MessageBox.Show("Please wait were updating the data table..")
      isec = 0
   End If

End Sub
试试这个

关于您的代码,button4 click事件中的if语句不会不断触发,因为它只在单击按钮时执行一次,所以您单击按钮,计时器启动,检查标签是否为“48:”,然后将退出按钮单击事件,除非再次按下按钮,否则不会再次检查标签,明白吗?所以,甚至可以把你的整个“如果”语句放到Timer1.Tick事件中


事件仅在触发事件发生时发生。因此,在您的情况下,button4 click事件中的IF语句仅在单击按钮时执行。因此,除非您在查找的确切时间单击按钮,否则将不会显示消息。

如果我的答案有帮助,请接受它,以便以后查看此答案的人可能会发现它是正确的答案。