在VB中怎样把时间从10 、 9 、 8 、 这样倒数至1啊

来源:百度知道 编辑:UC知道 时间:2024/07/04 03:31:48
怎么做啊。。能不能吧代码也写一下,最好是用label显示。。。 各位知道的帮帮忙啊。。

Private Sub Form_Load()
Timer1.Interval = 1000
Label1.Caption = 10
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) - 1
If Label1.Caption = 0 Then Timer1.Enabled = False
End Sub

你可以用一个时钟控件,Timer,可以设定多长时间进行一次
Timer1.Interval = 1000 '设定为1000毫秒一次(单位为毫秒)
也可以用一个循环进行。

楼上的说的很详细,我也学习一下。

什么意思?说明白点啊。