怎么用VB做小闹钟

《怎么用VB做小闹钟》正文开始，本次阅读大概7分钟。

添加一个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