倒计时函数

在文本框中,显示 剩余时间
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
 
阅读更多
文章标签: integer timer 360
个人分类: .net技术
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭