向现有倒数计时器添加分钟数

Question

>how 要向现有的倒数计时器添加分钟数，例如在计时器倒计时时，我可以通过按下按钮添加 10 分钟，因此时间加分，例如如果按下按钮显示的时间为 9.59，时间应显示 19.59 并继续倒计时

公共类计时器

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

结束类

它只是一个基本的倒数计时器，

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

Answer 1

如果你在谈论一个普通的计时器，这应该是你的答案：

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

编辑：

尝试先停止它：

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