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
关注我们:请关注一下我们的微信公众号:扫描二维码
,公众号:yhfx8686
版权声明:本文为原创文章,版权归 羽化飞翔 所有,欢迎分享本文,转载请保留出处!此外,本网站旨在向广大网友提供任何资源的开发、使用、安装教程,所提供的下载服务仅供学习交流探讨,请广大网友学习完成后,24小时内删除相关资源。如果涉及到侵犯版权事宜,请联系删除资源下载信息,谢谢各位的理解与支持!
关注我们:请关注一下我们的微信公众号:扫描二维码

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