1. 设计一个简单的倒计时程序,要求: (1)在文本框中输入倒计时的分钟数后,单击开始按纽就开始倒计时,
展开全部
添加一个text控件
添加一个command控件
添加一个timer控件
代码:
Private Sub Command1_Click()
Timer1.Interval = Text1.Text * 60000
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Command1.Caption = "开始"
Text1.Text = ""
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
MsgBox "到点了!", , "倒计时程序"
Timer1.Enabled = False
End Sub
添加一个command控件
添加一个timer控件
代码:
Private Sub Command1_Click()
Timer1.Interval = Text1.Text * 60000
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Command1.Caption = "开始"
Text1.Text = ""
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
MsgBox "到点了!", , "倒计时程序"
Timer1.Enabled = False
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询