VB 倒计时代码 在线等

来源：百度知道 编辑：UC知道 时间：2024/05/27 02:10:45
就是打开软件后 自动显示一个倒计时器（有数字显示），10秒后显示自动消失，这个代码怎么写？

在窗体上放一个Timer1,Timer1的interval设为1000
在窗体上放一个标签label1

Dim n As Integer

Private Sub Form_load()
n=10
End Sub

Private Sub Timer1_timer()
n=n-1
if n>0 then
label1.caption=n
else
label1.caption="倒记时完成"
End if
End Sub

用一个定时器控件即可，时差定为1秒。

用VB中的Timer控件,
Dim i
Private Sub Label1_Change()
If Label1.Caption = "0" Then
Unload Me
End If
End Sub
Private Sub Timer1_Timer()
Label1.Caption = 10 - i
i = i + 1
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000 ' 设置计时器时间间隔。
i = 0
End Sub

Dim a%
Private Sub Form_Load()
Me.FontSize = 80
a = 10
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Cls
Print a
a = a - 1
If a < 0 Then End
End Sub