VB.NET編程語(yǔ)言的特點(diǎn)比較突出，被廣大開發(fā)人員用來(lái)進(jìn)行程序的開發(fā)。比如其能夠支持類的所有特性，具有面向?qū)ο蟮乃刑匦?，以及可以支持代碼托管等等。這一編程語(yǔ)言的出現(xiàn)在一定程度上大大提高了開發(fā)人員的編程效率。#t#

VB.NET靜態(tài)托盤程序是指這樣一類程序：當(dāng)程序運(yùn)行后，會(huì)在系統(tǒng)的托盤區(qū)（也有說(shuō)是狀態(tài)區(qū)域）創(chuàng)建此程序的圖標(biāo)，使用者可以通過(guò)點(diǎn)擊圖標(biāo)出現(xiàn)的菜單來(lái)控制程序的運(yùn)行狀態(tài)。托盤程序有很多優(yōu)點(diǎn)，如不占屏幕，后臺(tái)運(yùn)行，便于控制等。所以現(xiàn)在越來(lái)越多的程序都做成了托盤程序。

在VB.NET中，編寫托盤程序是比較方便和簡(jiǎn)單的。這是因?yàn)閂B.NET沒(méi)有自身類庫(kù)，它所使用的類庫(kù)是.Net框架中為所有.Net平臺(tái)開發(fā)語(yǔ)言提供的公用類庫(kù)——.Net FrameWork SDK。在這個(gè)類庫(kù)中，為編寫托盤程序提供了具體的類，調(diào)用這些類就可以實(shí)現(xiàn)程序的托盤效果了。從而也就擺脫了它的前身VB在處理這類問(wèn)題時(shí)候的煩瑣。下面就通過(guò)一個(gè)具體例子來(lái)了解并掌握如何用VB.NET編寫托盤程序。

本文程序的設(shè)計(jì)及運(yùn)行環(huán)境

（1）Windows 2000 Service

（2）Net Framework SDK 正式版

VB.NET靜態(tài)托盤程序的編寫過(guò)程

所謂VB.NET靜態(tài)托盤程序是指程序運(yùn)行后，在系統(tǒng)托盤區(qū)的圖標(biāo)處于靜止?fàn)顟B(tài)的托盤程序。動(dòng)態(tài)托盤程序正好與之相反，它是指在系統(tǒng)托盤區(qū)圖標(biāo)呈現(xiàn)動(dòng)畫效果的一類托盤程序。下面就來(lái)探討一下VB.NET是如何實(shí)現(xiàn)靜態(tài)托盤程序。

.Net FrameWork SDK為編寫托盤程序提供了一個(gè)組件：NotifyIcon組件。NotifyIcon組件是一個(gè)WinForm組件，位于命名空間"System.Windows.Forms"中，在VB.NET程序中，只要?jiǎng)?chuàng)建一個(gè)NotifyIcon組件的實(shí)例，并且對(duì)NotifyIcon實(shí)例的"Icon"屬性賦值，這樣一個(gè)簡(jiǎn)單的托盤程序就完成了。下面就是這個(gè)簡(jiǎn)單托盤程序?qū)τ诘拇a（Form1.vb）：

Public Class Form1   
Inherits System.Windows.Forms.Form   
#Region " Windows 窗體設(shè)計(jì)器生成的代碼 "   
Public Sub New ( )   
MyBase.New ( )   
'該調(diào)用是 Windows 窗體設(shè)計(jì)器所必需的。   
InitializeComponent ( )   
'在 InitializeComponent ( ) 調(diào)用之后添加任何初始化   
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 窗體設(shè)計(jì)器所必需的   
Private components As System.ComponentModel.IContainer   
'注意：以下過(guò)程是 Windows 窗體設(shè)計(jì)器所必需的   
'可以使用 Windows 窗體設(shè)計(jì)器修改此過(guò)程。   
'不要使用代碼編輯器修改它。   
Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon   
'創(chuàng)建一個(gè)NotifyIcon實(shí)例   
Friend TrayIcon = New Icon ( "Tray.ico" )   
'創(chuàng)建一個(gè)Icon實(shí)例   
<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   
'對(duì)NotifyIcon實(shí)例的Icon屬性賦值，完成簡(jiǎn)單托盤程序   
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   
'啟動(dòng)程序   
Module Module1   
Sub Main ( )   
Application.Run ( new Form1 ( ) )   
End sub   
End Module  

VB.NET靜態(tài)托盤程序的相關(guān)實(shí)現(xiàn)方法就為大家介紹到這里。