Vb.net 在计时器上满足所需的分钟和秒数时,消息框未显示
你能帮我检查一下代码中我遗漏了什么吗。我想实现的是,当每小时每49分钟一次的事件发生时,提示一个消息框 已经尝试声明分和秒的值,但当49分和00秒到达时,它不会提示消息,只是持续地打勾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
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语句仅在单击按钮时执行。因此,除非您在查找的确切时间单击按钮,否则将不会显示消息。如果我的答案有帮助,请接受它,以便以后查看此答案的人可能会发现它是正确的答案。