倒计时警告

-3

如何使一分钟或使labeltime.text前景色红色倒计时警告

Private Sub tmrCountdown_Tick(sender As System.Object, e As System.EventArgs) Handles tmrCountdown.Tick 
    Dim ts As TimeSpan = TargetDT.Subtract(DateTime.Now) 
    If ts.TotalMilliseconds > 0 Then 
     lblTime.Text = ts.ToString("mm\:ss") 
    Else 
     lblTime.Text = "00:00" 
     tmrCountdown.Stop() 
     MessageBox.Show("Times Up") 

     Me.Close() 
    End If 
End Sub

来源

2016-12-04 Mr.R

你提的问题是非常不清楚。请编辑并尝试澄清你的意思。 –

我的意思是如果定时器只有一分钟就会发出警告 –

检查'Math.Floor（ts.TotalSeconds）'是否是60？ –

你的代码应该做的伎俩的一些重排，

If ts.TotalMilliseconds <= 0 Then 
     'times up 
     lblTime.Text = "00:00" 
     tmrCountdown.Stop() 
     MessageBox.Show("Times Up") 
     Me.Close() 
    ElseIf ts.TotalMilliseconds <= 60 * 1000 Then 
     'one minute or less 
     lblTime.ForeColor = Color.Red 
     lblTime.Text = ts.ToString("mm\:ss") 
    Else 
     'more than a minute 
     lblTime.ForeColor = Color.Black 
     lblTime.Text = ts.ToString("mm\:ss") 
    End If

来源

2016-12-04 11:45:02 dbasnett

让我试试这个先生 –

作品〜！谢谢你，先生 –

回答

相关问题