求助 vb 多次定时（100分）

来源：百度知道 编辑：UC知道 时间：2024/05/18 05:10:03
text1输入小时，text2输入分钟，cmd1 确定定时，可重复多次定时，label1显示最近一次定时的倒计时，label2依次（时间顺序）显示所有定时任务，第一次定时任务完成时，msgbox 提示第一次任务完成，3秒后msgbox关闭，继续进行第二次定时，label2显示的定时任务逐次减少！

呵呵，可能会很复杂，先悬10分，最佳答案追加100分！

有改过了，你自己看看吧，如果可以就给分吧。
好累啊。。。
控件：Timer 1个
CommandButton 3个
TextBox 2个
Label 4个
Option Explicit
Option Base 1
Dim RecTime() As Date
Dim Atime As Date
Dim Cl As String
Dim Counter As Integer
Private Sub Cmd1_Click()
Call SetClock
End Sub

Private Sub Cmd2_Click()
Text1 = ""
Text2 = ""
End Sub

Private Sub Cmd3_Click() '初始化，如果出现了BUG可以修正一下
Timer1.Enabled = False
Counter = 0
Label1.Caption = ""
Label2.Caption = ""
End Sub

Private Sub Form_Load()
Cmd1.Caption = "定时"
Cmd2.Caption = "清除"
Cmd3.Caption = "初始化"
Label3.Caption = "小时"
Label4.Caption = "分钟"
Form1.Caption = "计时器"
Timer1.Interval = 100
Timer1.Enabled = False
Cl = Chr(13) & Chr(10)
End Sub

Private Sub Timer1