VS 2010 編寫出簡易關機程式

1. Public Class Form1
   
2. Public Event Tick As EventHandler

複製代碼

1. 
   
2.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   
3.         NumericUpDown1.Minimum = 1     
   
4.         NumericUpDown2.Minimum = 1     
   
5.         NumericUpDown3.Minimum = 1     
   
6.         NumericUpDown1.Maximum = 23   
   
7.         NumericUpDown2.Maximum = 59   
   
8.         NumericUpDown3.Maximum = 59    End Sub
   

複製代碼

1. 
   
2.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
3.         Me.Timer1.Enabled = True
   
4.     End Sub
   

複製代碼

1. 
   
2.     Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
   
3.         Me.Show()
   
4.     End Sub
   

複製代碼

1. 
   
2.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
   
3.         Dim a, b, c As Long
   
4.         a = Val(TextBox1.Text)
   
5.         b = Val(TextBox2.Text)
   
6.         c = Val(TextBox3.Text)
   
7.         If (a = NumericUpDown1.Value And b = NumericUpDown2.Value And c = NumericUpDown3.Value) Then Shell("shutdown.exe -s -f -t 00")
   
8.         If (a > NumericUpDown1.Value And b > NumericUpDown2.Value And c > NumericUpDown3.Value) Then MsgBox("設定時間小於現在時間,請重新設定", vbCritical, "請重新設定")
   
9.     End Sub
   

複製代碼

1. 
   
2.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
   
3.         Me.Size = New Size(504, 206)
   
4.     End Sub
   

複製代碼

1. 
   
2.     Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
   
3.         TextBox1.Text = ●嚴禁張貼廣告●.Hour.ToString()
   
4.         TextBox2.Text = ●嚴禁張貼廣告●.Minute.ToString()
   
5.         TextBox3.Text = ●嚴禁張貼廣告●.Second.ToString()
   
6.     End Sub
   

複製代碼

1. 
   
2.     Private Sub 取消自動關機ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 取消自動關機ToolStripMenuItem.Click
   
3.         Me.Timer1.Enabled = False
   
4.     End Sub
   

複製代碼

1. 
   
2.     Private Sub 直接關機ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 直接關機ToolStripMenuItem.Click
   
3.         Shell("shutdown.exe -s -f -t 00")
   
4.     End Sub
   

複製代碼

1. 
   
2.     Private Sub 開啟程式ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
   
3.         Me.Show()
   
4.     End Sub
   

複製代碼

1. 
   
2.     Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
   
3.         If Me.Timer1.Enabled = True Then
   
4.             NotifyIcon1.Text = "自動關機已啟動"
   
5.         ElseIf Me.Timer1.Enabled = False Then
   
6.             NotifyIcon1.Text = "自動關機未啟動"
   
7.         End If
   
8.     End Sub
   

複製代碼

1. 
   
2.     Private Sub 關閉程式ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 關閉程式ToolStripMenuItem.Click
   
3.         End
   
4.     End Sub
   
5.     Private Sub 開起程式ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 開起程式ToolStripMenuItem.Click
   
6.         Me.Show()
   
7.     End Sub
   

複製代碼

1. 
   
2.     Private Sub Form1_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
   
3.         If Me.WindowState() = FormWindowState.Minimized Then
   
4.             Me.Hide()
   
5.             NotifyIcon1.Visible = True
   
6.         End If
   
7.     End Sub
   
8.     Private Sub NotifyIcon1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick
   
9.         NotifyIcon1.Visible = False
   
10.         Me.Show()
    
11.     End Sub
    
12. End Class
    

複製代碼

我相信貼了一大串程式碼大家一定會不想讀......

圖示:

你是第一個放圖的人啊呢

我會獨的支持支持一下