添加一个timer控件,两个command,两个textbox
text1用来显示现在的时间,text2用来定时!
Private Sub Command1_Click() ’开始
Timer1.Enabled = True
End Sub
Private Sub Command2_Click() '关闭
End
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
timer1.Interval =1000
text2.text="00:00:00"
End Sub
Private Sub Timer1_Timer()
Text1.Text = Format(Time, "hh:mm:ss")
If Text1.Text = Text2.Text Then
msgbox("时间到")
End If
End Sub