visualbasic(vb.net)中如何进行时分秒倒计时

visualbasic(vb.net)中进行时分秒倒计时的应用场景

咳咳，也是华仔之前提到的，

通过开发一个小应用来达到网站倒计时搜集网络视频的目的。

所以不得不用到倒计时代码，

其实也就是用了两个timer控件交替进行实现的。

visualbasic(vb.net)中进行时分秒倒计时的解决方法

这里废话不多说，

直接上代码：

'窗体载入，数据初始化
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = "01" & ":" & "00" & ":" & "00"
        Timer1.Enabled = True
        Timer1.Interval = 1000
        Button1.Text = "暂停"
End Sub
'timer1倒计时结束，关闭并调用timer2
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim time = CDate(Label1.Text)
        time = time.AddMilliseconds(-1)
        Label1.Text = time
        Dim shijian = Split(Label1.Text, ":")
        If shijian(0) = 0 And shijian(1) = 0 And shijian(2) = 0 Then
            Label1.Text = "01" & ":" & "00" & ":" & "00"
            WebBrowser7.Refresh()
            Timer2.Enabled = True
            Timer2.Interval = 1000
            Timer1.Enabled = False
        End If
End Sub
    
'timer2倒计时结束，关闭并调用timer1
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim i = 0
        i += 1
        If i = 120 Then
            Timer1.Enabled = True
            Timer1.Interval = 1000
            Timer2.Enabled = False
        End If
End Sub

希望能够帮到大家！

也希望同学们有什么批评建议，

可以给华仔反馈哟

您可能感兴趣的文章

本文地址：https://www.huazai186.com/post/32.html
文章标签：
版权声明：本文为原创文章，版权归羽化飞翔所有，欢迎分享本文，转载请保留出处！此外，本网站旨在向广大网友提供任何资源的开发、使用、安装教程，所提供的下载服务仅供学习交流探讨，请广大网友学习完成后，24小时内删除相关资源。如果涉及到侵犯版权事宜，请联系删除资源下载信息，谢谢各位的理解与支持！