帮忙用VB平台做一个倒计时的小程序。。。就是距离国庆节还有xx天xx时xx分。。这种东西谢谢

Private Sub Form_Load()

Timer1Interval = 1000

Timer1Enabled = True

Label1AutoSize = True

Timer1_Timer

End Sub

Private Sub Timer1_Timer()

d = "2011-10-1"

Label1Caption = "距离国庆节〔" & Format(d, "yyyy年m月d日") & "〕还有" & DateDiff("n", Now, d) \ 1440 & "天" & Format(CDate(d) - Now, "h时m分s秒")

End Sub

小程序使用定时器编写倒计时功能时，会出现跳数和卡顿的情况

把setInterval改成setTimeout并用递归实现倒计时功能，卡顿减轻但还是有卡顿情况

使用京东组件库里面得倒计时组件，卡顿变成两秒一跳，不符合需求

使用Date对象记录倒计时结束的时间，然后用当前时间和记录时间的差值取整来标识倒计时的秒数

以上就是关于帮忙用VB平台做一个倒计时的小程序。。。就是距离国庆节还有xx天xx时xx分。。这种东西谢谢全部的内容，包括:帮忙用VB平台做一个倒计时的小程序。。。就是距离国庆节还有xx天xx时xx分。。这种东西谢谢、小程序倒计时卡顿和跳数的问题、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！