本文程序的设计及运行环境

（1）Windows 2000 Service

（2）Net Framework SDK 正式版

所谓静态托盘程序是指程序运行后，在系统托盘区的图标处于静止状态的托盘程序。动态托盘程序正好与之相反，它是指在系统托盘区图标呈现动画效果的一类托盘程序。下面就来探讨一下VB.NET是如何实现静态托盘程序。

.Net FrameWork SDK为编写托盘程序提供了一个组件：NotifyIcon组件。NotifyIcon组件是一个WinForm组件，位于命名空间"System.Windows.Forms"中，在VB.NET程序中，只要创建一个NotifyIcon组件的实例，并且对NotifyIcon实例的"Icon"属性赋值，这样一个简单的托盘程序就完成了。下面就是这个简单托盘程序对于的代码（Form1.vb）：

Public Class Form1
    Inherits System.Windows.Forms.Form
	#Region " Windows 窗体设计器生成的代码 "
	    Public Sub New ( ) 
		MyBase.New ( ) 
		''''该调用是 Windows 窗体设计器所必需的。
		InitializeComponent ( ) 
		''''在 InitializeComponent ( )  调用之后添加任何初始化
	    End Sub
	    ''''窗体重写处置以清理组件列表。
    Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean ) 
	If disposing Then
	    If Not  ( components Is Nothing )  Then
		components.Dispose ( ) 
	    End If
	End If
	MyBase.Dispose ( disposing ) 
    End Sub
    ''''Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer
    ''''注意：以下过程是 Windows 窗体设计器所必需的
    ''''可以使用 Windows 窗体设计器修改此过程。
    ''''不要使用代码编辑器修改它。
    Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon
    ''''创建一个NotifyIcon实例
    Friend TrayIcon = New Icon ( "Tray.ico" ) 
    ''''创建一个Icon实例
    <System.Diagnostics.DebuggerStepThrough ( ) > 
    Private Sub InitializeComponent ( ) 
	Me.components = New System.ComponentModel.Container ( ) 
	Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon ( Me.components ) 
		Me.NotifyIcon1.Text = "NotifyIcon1"
		Me.NotifyIcon1.Visible = True
		''''对NotifyIcon实例的Icon属性赋值，完成简单托盘程序
		Me.NotifyIcon1.Icon = TrayIcon
		Me.AutoScaleBaseSize = New System.Drawing.Size ( 6 , 14 ) 
		Me.ClientSize = New System.Drawing.Size ( 292 , 273 ) 
		Me.Name = "Form1"
		Me.Text = "Form1"
	    End Sub
	#End Region
	End Class
	''''启动程序
	Module Module1
	Sub Main ( ) 
	  Application.Run ( new Form1 ( ) ) 
	End sub
	End Module

''''设定程序不应该显示在任务栏
Me.ShowInTaskbar = False
''''设定程序运行后最小化
   Me.WindowState = System.Windows.Forms.FormWindowState.Minimized

创建ContextMenu实例和MenuItem实例：
    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem

Me.MenuItem1 = New System.Windows.Forms.MenuItem ( ) 
        Me.MenuItem2 = New System.Windows.Forms.MenuItem ( ) 
        Me.MenuItem3 = New System.Windows.Forms.MenuItem ( ) 
        Me.NotifyIcon1.ContextMenu = Me.ContextMenu1
        Me.NotifyIcon1.Text = "VB.NET的托盘程序"
        Me.NotifyIcon1.Visible = True
	''''设定托盘程序托盘区位置显示图标
        Me.NotifyIcon1.Icon = TrayIcon
	''''在ContextMenu实例中加入菜单项
        Me.ContextMenu1.MenuItems.Add ( Me.MenuItem1 )  
        Me.ContextMenu1.MenuItems.Add ( Me.MenuItem2 ) 
        Me.ContextMenu1.MenuItems.Add ( Me.MenuItem3 ) 
        Me.MenuItem1.Index = 0
        Me.MenuItem1.Text = "显示窗体"
        Me.MenuItem2.Index = 1
        Me.MenuItem2.Text = "隐藏窗体"
        Me.MenuItem3.Index = 2
        Me.MenuItem3.Text = "退出"