
急!vb编程题。vb高手帮下忙。
设计一个倒时器,当在文本框中输入一个分钟数,单击命令按钮就开始倒记时,在倒记事结束时出现信息框“记时到!”的提示。谢谢!!!...
设计一个倒时器,当在文本框中输入一个分钟数,单击命令按钮就开始倒记时,在倒记事结束时出现信息框“记时到!”的提示。谢谢!!!
展开
2个回答
展开全部
Private Sub Command1_Click()
Dim intTime As Integer
intTime = Val(Text1.Text) * 60
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Text1.Text = intTime - 1 '按秒开始倒计时
If intTime = 0 Then
Timer1.Enabled = False
MsgBox "记时到!"
End If
End Sub
Dim intTime As Integer
intTime = Val(Text1.Text) * 60
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Text1.Text = intTime - 1 '按秒开始倒计时
If intTime = 0 Then
Timer1.Enabled = False
MsgBox "记时到!"
End If
End Sub
展开全部
Private Sub Form_Load()
Text1.text = "00:10:00"
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Text1.Text = CDate(Text1.text) - 1 / 24 / 60 / 60
if Cdate(text1.text) =0 then msgbox "记时到!"
End Sub
Text1.text = "00:10:00"
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Text1.Text = CDate(Text1.text) - 1 / 24 / 60 / 60
if Cdate(text1.text) =0 then msgbox "记时到!"
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询