看到瑞星升完级,更新后有个倒计时的显示,朋友就问我VB6.0中如何实现:
我举个简单的例子:
Dim a As String        '绝对要的在声明中定义
Private Sub Form_Load()
Label1.Caption = ""
a = 30
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
a = Val(a) - 1
Label1.Caption = "程序将在:" & a & "后关闭！"
If a = 0 Then
End
End If
End Sub