VB。倒计时器

时间：2022-06-18 15:28:14 阅读：最新文章文档下载

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。

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