倒計時警告

-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

讓我試試這個先生 –

作品〜！謝謝你，先生 –

回答

相關問題