在多个倒数计时器中将整数转换为分钟和秒

时间:2017-06-15 12:35:13

标签: vb.net

我制作了多个可以单独工作的倒计时器。值(整数)经过复杂的ifs和公式然后变成label4.text。其他2个值经历相同的过程,它们分别转到label5和label6。当我从整数倒计时,一切正常,但当我尝试将它们更改为“mm:ss”格式时。倒计时从300变为04:59然后突然变为00:03然后停止。

    Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

/////////The one without format change/////////
    If CInt(Val(Label4.Text)) > 0 Then
        Label4.Text = (CInt(Val(Label4.Text)) - 1).ToString
    End If

/////////This one I tried to change the format///////
    If CInt(Val(Label5.Text)) > 0 Then
        Label5.Text = (CInt(Val(Label5.Text)) - 1).ToString
        Dim Displaytime As TimeSpan = TimeSpan.FromSeconds(Val(Label5.Text))
        Label5.Text = Displaytime.ToString(("mm\:ss"))
    End If

    If CInt(Val(Label6.Text)) > 0 Then
        Label6.Text = (CInt(Val(Label6.Text)) - 1).ToString
    End If


End Sub

0 个答案:

没有答案