在文本框中,显示 剩余时间
Private
Sub LeftTime()
Sub LeftTime()
Dim totalTime As Long = 100 * 60
Dim h As Integer '小时
Dim m As Integer '分钟
Dim s As Integer '秒
If totalTime > 0 Then
totalTime = totalTime - 1
h = Int(totalTime / 3600)
m = Int(totalTime / 60) - h * 60
s = totalTime - h * 3600 - m * 60
Me.TextBoxLeftTime.Text = Str(h) + ":" + Str(m) + ":" + Str(s)
Else
Timer1.Enabled = False
End If
End Sub
Dim totalTime As Long = 100 * 60
Dim h As Integer '小时
Dim m As Integer '分钟
Dim s As Integer '秒
If totalTime > 0 Then
totalTime = totalTime - 1
h = Int(totalTime / 3600)
m = Int(totalTime / 60) - h * 60
s = totalTime - h * 3600 - m * 60
Me.TextBoxLeftTime.Text = Str(h) + ":" + Str(m) + ":" + Str(s)
Else
Timer1.Enabled = False
End If
End Sub