VB实用程序设计.docVIP

设计界面 代码： Option Explicit Dim s As Long Private Sub Command1_Click() Timer1.Enabled = True s = 0 End Sub Private Sub Command2_Click() Timer1.Enabled = False Text1.Text = Text2.Text = Label1.Caption = End Sub Private Sub Timer1_Timer() s = s + 1 Label1 = (Val(Text1) - Hour(Now)) * 60 + (Val(Text2) - Minute(Now)) 分后关机 If Val(Text1) = Hour(Now) And Val(Text2) = Minute(Now) Then Shell shutdown -s -t 0 -f Timer1.Enabled = False End If End Sub 运行后 界面设计