中科新闻网三国志13怎么娶庞娥:求教VB高手
来源：百度文库 编辑：中科新闻网 时间：2024/05/12 16:36:58
设计一个倒计时器，只要在文本框内输入倒计时的分钟数，单击一个命令按钮就开始倒计时，在倒计时结束时，停止计时出现”时间到”的信息框
添加TIMER1 ，command1
,text1
Dim i As Long
Private Sub Command1_Click()
i = CLng(Text1.Text)
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Interval = 60000
Timer1.Enabled = False
Text1.Text = ""
End Sub
Private Sub Timer1_Timer()
i = i - 1
If i = 0 Then
MsgBox "时间到"
Timer1.Enabled = False
End If
End Sub