VB。倒计时器

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《VB。倒计时器》，欢迎阅读！





Dim i!, s!

Private Sub Command1_Click()

i = Val(Text1.Text) s = i * 60

Timer1.Enabled = True

End Sub

Private Sub Command2_Click() End

End Sub

Private Sub Timer1_Timer() Label3.Caption = s s = s - 1

If s = -1 Then Timer1.Enabled = False End Sub

本文来源：https://www.wddqxz.cn/c0838457f01dc281e53af064.html