vb怎么做计时器？

回答者：DIY-365

方法一： Private Sub Command1_Click() Shell "at " + Text2.Text + " shutdown -s -t 0" End Sub Private Sub Form_Load() Timer1.Interval = 100 End Sub Private Sub Timer1_Timer() Text1.Text = Time End Sub 方法二： Dim ctime As String Private Sub Command1_Click() ctime = Text2.Text End Sub Private Sub Form_Load() Timer1.Interval = 100 ctime = "" End Sub Private Sub Timer1_Timer() Text1.Text = Time If Text1.Text = ctime Then Shell "shutdown -s" End Sub