2014-12-03 86 views
-4

如何在计时器倒计时时添加分钟到现有的倒数计时器,我可以通过按钮添加10分钟,这样时间加上,如果显示的时间是9.59按钮按下的时候应该显示19.59,并继续倒计时将分钟添加到现有的倒数计时器

公共类Timer

Private alarmtime As Date 
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 
    If alarmtime < Date.Now Then 
     Me.Timer1.Stop() 
     MessageBox.Show("Time up") 
    Else 
     Dim remainingtime As TimeSpan = Me.alarmtime.Subtract(Date.Now) 
     Me.Label1.Text = String.Format("{0}:{1:d2}:{2:d2}", _ 
     remainingtime.Hours, _ 
     remainingtime.Minutes, _ 
     remainingtime.Seconds) 
    End If 

End Sub 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    If RadioButton1.Checked = True Then 
     Me.alarmtime = Date.Now.AddHours(TextBox1.Text) 
     Me.Timer1.Start() 
    ElseIf RadioButton2.Checked = True Then 
     Me.alarmtime = Date.Now.AddMinutes(TextBox1.Text) 
     Me.Timer1.Start() 
    ElseIf RadioButton3.Checked = True Then 
     Me.alarmtime = Date.Now.AddSeconds(TextBox1.Text) 
     Me.Timer1.Start() 
    End If 
End Sub 

Private Sub GameTIMER_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

End Sub 

末级

它只是一个基本的倒计时器正常工作,我需要为它做的是添加分钟时,它是counti因为当计时器启动时,我必须点击数字中的文本框类型,然后按确定,然后计时器启动,而不是在文本框中扭动,我只想按下一个按钮,倒数计时器自动添加可以说10分钟当前时间显示,而其倒计时

+0

你有没有看过'AddMinutes'方法?第一次显示你的工作.. – 2014-12-03 09:42:17

回答

0

如果你谈论的是一个正常的定时器,这应该是你的答案:

Me.Timer1.Interval += (60000 * 10) 

编辑:

先尝试停止它:

Me.Timer1.Stop() 
Me.Timer1.Interval += (60000 * 10) 
Me.Timer1.Start() 
+0

我试过me.TImer.Interval + =(60000 * 10) – 2014-12-09 18:39:43

+0

我似乎无法让倒数计时器添加分钟时,它正在倒计时我看起来像一些addminutes方法,他们看起来非常复杂,任何一个PLZ都可以帮助我,我不知道要使用什么代码或将其实施到现有代码中的位置 – 2014-12-09 18:45:15

+0

检查我的编辑... – 2014-12-10 13:56:42