Question

VB怎么制作倒计时10秒到0秒跳出信息框

急啊

Answer 1

Dim i As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub

 

Private Sub Timer1_Timer()

Label1.Caption = 10 - i
i = i + 1
If i > 10 Then
i = MsgBox("10秒倒计时结束")
i = 0
End If
End Sub

您的认可 就是对我最大的支持

Answer 2

使用定时器即可。

Dim n As Integer
Private Sub Command1_Click()
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
Label1.Caption = 10 - n
n = n + 1
If n > 10 Then
n = MsgBox("10秒倒计时时间到！", , "提示")
n = 0
Timer1.Enabled = False
End If
End Sub

Answer 3

Dim tCount As Integer
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
tCount = tCount + 1
If tCount >= 10 Then
MsgBox "10秒钟了"
tCount = 0
End If
End Sub