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


本文来源:https://www.wddqw.com/doc/c0838457f01dc281e53af064.html