
VB怎么把时间显示在窗体上?要倒数的那种,像倒计时~
只用代码的可以了哦~~~最好解释一下,因为我不一定看的懂~~我知道时间就是label1.time谢了,我不是要数字的倒数哦,那样我也会做~我要的是时间的,例:12:54:...
只用代码的可以了哦~~~最好解释一下,因为我不一定看的懂~~
我知道时间就是label1.time
谢了,我不是要数字的倒数哦,那样我也会做~
我要的是时间的,
例: 12:54:3
12:54:2
12:54:1
12:53:59
·
·
·
· 展开
我知道时间就是label1.time
谢了,我不是要数字的倒数哦,那样我也会做~
我要的是时间的,
例: 12:54:3
12:54:2
12:54:1
12:53:59
·
·
·
· 展开
2个回答
展开全部
Label1.time好象没什么效果。需要在窗体中添加Timer空间,这样时间操作就容易多了。。
Form1的Load事件代码(省略部分都是自动生成的就不写了):
Timer1.Enabled = True '开启时间控件
Timer1.Interval = 1000 '设置倒计时时间为10秒
Label1.Text = 10 '初始显示时间10
Timer1.Tick事件:
Label1.Text = Label1.Text - 1 '将标签每次-1
If Label1.Text = 0 Then '如果标签等于0,时间到了
MsgBox("时间到!") '弹出提示框
Timer1.Enabled = False '将时间控件禁用
Label1.Text = "0" '强制标签显示为0,不然变成-1
End If
Form1的Load事件代码(省略部分都是自动生成的就不写了):
Timer1.Enabled = True '开启时间控件
Timer1.Interval = 1000 '设置倒计时时间为10秒
Label1.Text = 10 '初始显示时间10
Timer1.Tick事件:
Label1.Text = Label1.Text - 1 '将标签每次-1
If Label1.Text = 0 Then '如果标签等于0,时间到了
MsgBox("时间到!") '弹出提示框
Timer1.Enabled = False '将时间控件禁用
Label1.Text = "0" '强制标签显示为0,不然变成-1
End If
展开全部
时间是啥?晕……
dim ToDate as Date = "倒计时最后时间"
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
label1.Text = CInt((todate.Subtract(Now)).Ticks / 10000000)
End Sub
这是 2008 的代码。Ticks 是“计时周期”,单位是 100 纳秒。因此除以一千万得到秒数。
dim ToDate as Date = "倒计时最后时间"
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
label1.Text = CInt((todate.Subtract(Now)).Ticks / 10000000)
End Sub
这是 2008 的代码。Ticks 是“计时周期”,单位是 100 纳秒。因此除以一千万得到秒数。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询