標題: VB.NET下基于控件的系統托盤及退出保護設計源碼及貼圖 [打印本頁] 作者: hotpower 時間: 2009-4-3 00:14 標題: VB.NET下基于控件的系統托盤及退出保護設計源碼及貼圖 Public Class Form1
Dim SystemExitFlag = False
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = "俺是農民,俺怕誰???"
RichTextBox1.AppendText(TextBox1.Text)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ToolStripStatusLabel3.Text = DateTime.Now.ToString()
If ToolStripProgressBar1.Value < ToolStripProgressBar1.Maximum Then
ToolStripProgressBar1.Value = ToolStripProgressBar1.Value + ToolStripProgressBar1.Step
Else
ToolStripProgressBar1.Value = ToolStripProgressBar1.Minimum
End If
End Sub
Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
Me.Visible = Not Me.Visible '隱藏/顯示窗體轉換
If Me.Visible Then '準備顯示窗體
'防止最小化不正常顯示窗體
NotifyIcon1.Icon = System.Drawing.Icon.ExtractAssociatedIcon("Hot.ico")
Me.WindowState = System.Windows.Forms.FormWindowState.Normal
Else
NotifyIcon1.Icon = System.Drawing.Icon.ExtractAssociatedIcon("Power.ico")
End If
End Sub
Private Sub NotifyIcon1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
'鼠標右鍵系統托盤事件處理
ContextMenuStrip1.Visible = e.Button = MouseButtons.Right '點擊鼠標右鍵后顯示菜單
End Sub
Private Sub Form1_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs)
'在Resize事件處理中攔截最小最大消息到托盤
Select Case Me.WindowState
Case FormWindowState.Maximized, FormWindowState.Minimized
Me.WindowState = System.Windows.Forms.FormWindowState.Normal
Me.Visible = False '隱藏窗體轉換
NotifyIcon1.Icon = System.Drawing.Icon.ExtractAssociatedIcon("Power.ico") '顯示隱藏的托盤圖標
End Select
End Sub
Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
If SystemExitFlag = True AndAlso MessageBox.Show("請您確認是否退出(Y/N)", "系統提示", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = DialogResult.Yes Then
e.Cancel = False '托盤退出菜單允許退出系統
Else
e.Cancel = True '最小最大關閉菜單退出鈕都會阻止退出系統
Me.WindowState = System.Windows.Forms.FormWindowState.Normal
Me.Visible = False '隱藏窗體轉換
NotifyIcon1.Icon = System.Drawing.Icon.ExtractAssociatedIcon("Power.ico") '顯示隱藏的托盤圖標
'MessageBox.Show("請從系統托盤中退出!!!", "系統提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
End If
End Sub
Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click
ToolStripStatusLabel2.Text = "非法退出"
SystemExitFlag = False
Close() '退入托盤
End Sub
Private Sub 退出ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem1.Click
ToolStripStatusLabel2.Text = "正常退出"
SystemExitFlag = True
Close() '退出系統
End Sub
Private Sub 關于ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 關于ToolStripMenuItem.Click
'System.Diagnostics.Process.Start("Explorer", "http:\\www.hotpage.net.cn")'運行IE
System.Diagnostics.Process.Start("http:\\www.hotpage.net.cn") '自動啟動IE
End Sub
Private Sub 我不會VBToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 我不會VBToolStripMenuItem.Click
System.Diagnostics.Process.Start("http:\\www.hotpower.org") '自動啟動IE
End Sub
Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
End Sub
End Class
