使用VBNET制作定时关机程序Word文档格式.doc

1、3、源代码Public Class Form1 Public h, m, hc, mc As Integer 小时，分钟，剩余小时，剩余分钟 Private Sub Button1_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles Button1.Click Dim tm As Integer tm = Val（TextBox1.Text） * 60 If tm 0 Then System.Diagnostics.Process.Start（Shutdown.exe, -s -t & tm） La

2、bel5.Text = 正在倒计时关机 End If End Sub Private Sub Button2_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles Button2.Click Timer1.Stop（） System.Diagnostics.Process.Start（ -a） Label5.Text = 定时关机已取消 Private Sub Button3_Click（ByVal sender As System.Object, ByVal e As System.EventArg

3、s） Handles Button3.Click h = Val（TextBox2.Text） m = Val（TextBox3.Text） If h = 0 And m = 0 Then MsgBox（输入时间错误, , 请输入时间 ElseIf h 24 Or h 60 Or m 请检查输入时间 Else Timer1.Start（） Private Sub Timer1_Tick（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles Timer1.Tick 时间间隔interval可设置为3000，即3秒刷新一次 If h = Now.Hour And m = Now.Minute Then -s -f -t 3 hc = h - Now.Hour mc = m - Now.Minute If hc hc = hc + 24 If mc hc = hc - 1 mc = mc + 60距离关机还有 hc & 小时 mc &分钟End Class