要求 :一个计时器 ,比如我输入 40分钟 然后点击确定,就开始倒计时这40分钟的,到0的时候填出对话框提示已到时间. 还可以加分。要的是我输入多少就倒计时多少的时间.显示秒钟
我的QQ 3123764
第1个回答 2009-03-31
'添加一个标签(Label1),一个时钟控件(Timer1),一个按钮(Command1)
Dim t As Integer
Private Sub Command1_Click()
t = Val(InputBox("输入时间(分钟)"))
Label1.Caption = t & "分钟"
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Label1.Caption = "-分钟"
Timer1.Interval = 60000
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
t = t - 1
Label1.Caption = t & "分钟"
If t = 0 Then
Timer1.Enabled = False
MsgBox "时间到!"
End If
End Sub
Dim t As Integer
Private Sub Command1_Click()
t = Val(InputBox("输入时间(分钟)"))
Label1.Caption = t & "分钟"
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Label1.Caption = "-分钟"
Timer1.Interval = 60000
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
t = t - 1
Label1.Caption = t & "分钟"
If t = 0 Then
Timer1.Enabled = False
MsgBox "时间到!"
End If
End Sub
第2个回答 2009-03-31
QQ多少我教你到会
窗体一个确定按钮command1一个暂停按钮command2
两个标签label1和label2 label1的caption为空label2的caption 为分钟
一个文本框 text1 Timer1的Interval 属性为 60000
Timer1的Enabled 为False
Private Sub Command1_Click()
Label1.Caption = val(Text1.Text)
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Label1.Caption = val(Label1.Caption) - 1
If val(Label1.Caption) < 1 Then
MsgBox "时间到了!", , "提示"
me.enabled = Flase
End If
End Sub本回答被提问者采纳
窗体一个确定按钮command1一个暂停按钮command2
两个标签label1和label2 label1的caption为空label2的caption 为分钟
一个文本框 text1 Timer1的Interval 属性为 60000
Timer1的Enabled 为False
Private Sub Command1_Click()
Label1.Caption = val(Text1.Text)
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Label1.Caption = val(Label1.Caption) - 1
If val(Label1.Caption) < 1 Then
MsgBox "时间到了!", , "提示"
me.enabled = Flase
End If
End Sub本回答被提问者采纳
第3个回答 2009-03-31
可以啊,挺简单的,不过你填入的是以什么为单位时间,或者加一个列表框就可以解决了,不知道你什么要啊