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

2019/12/15 20:49 · VB.NET · 23阅读 · 0评论
阿里云·云小站,新老用户同享,1核2G云服务器低至89元/年,229元/3年;2核4G3M3年639元
摘要:

咳咳,也是华仔之前提到的,通过开发一个小应用来达到网站倒计时搜集网络视频的目的。所以不得不用到倒计时代码,其实也就是用了两个timer控件交替进行实现的。这里废话不多说,直接上代码……

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
文章标签:
版权声明:本文为原创文章,版权归 羽化飞翔 所有,欢迎分享本文,转载请保留出处!

文件下载

上一篇:
下一篇:
腾讯云618云聚惠活动火热进行中,1核2G-288元/3年,2核4G3M-1288元/3年,2核8G5M-1688元/3年,4核8G5M-1999元/3年

 发表评论


表情