VB.NET编程之托盘程序篇
作者：马金虎 发文时间：2002.10.15
托盘程序是指这样一类程序：当程序运行后，会在系统的托盘区（也有说是状态区域）创建此程序的图标，使用者可以通过点击图标出现的菜单来控制程序的运行状态。托盘程序有很多优点，如不占屏幕，后台运行，便于控制等。所以现在越来越多的程序都做成了托盘程序。在VB.NET中，编写托盘程序是比较方便和简单的。这是因为VB.NET没有自身类库，它所使用的类库是.Net框架中为所有.Net平台开发语言提供的公用类库——.Net FrameWork SDK。在这个类库中，为编写托盘程序提供了具体的类，调用这些类就可以实现程序的托盘效果了。从而也就摆脱了它的前身VB在处理这类问题时候的烦琐。下面就通过二个具体例子来了解并掌握如何用VB.NET编写托盘程序。
本文程序的设计及运行环境
（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实例
1<system.diagnostics.debuggerstepthrough (="" )="">
2 Private Sub InitializeComponent ( )
3 Me.components = New System.ComponentModel.Container ( )
4 Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon ( Me.components )
5 Me.NotifyIcon1.Text = "NotifyIcon1"
6 Me.NotifyIcon1.Visible = True
7 '对NotifyIcon实例的Icon属性赋值，完成简单托盘程序
8 Me.NotifyIcon1.Icon = TrayIcon
9 Me.AutoScaleBaseSize = New System.Drawing.Size ( 6 , 14 )
10 Me.ClientSize = New System.Drawing.Size ( 292 , 273 )
11 Me.Name = "Form1"
12 Me.Text = "Form1"
13 End Sub
14 #End Region
15 End Class
16 '启动程序
17 Module Module1
18 Sub Main ( )
19 Application.Run ( new Form1 ( ) )
20 End sub
21 End Module
22
23
24---
25
26
27但是这个托盘程序还不是真正意义上的托盘程序，因为它还有很多具体功能没有实现，下面就列出这些功能，并介绍具体的实现方法
28
29（1）.托盘程序是隐藏窗口后，程序不应该显示在任务栏中，并且一般运行后都不显示窗口：
30
31这是通过设定窗体的属性来完成的，具体如下：
32
33
34
35
36 '设定程序不应该显示在任务栏
37 Me.ShowInTaskbar = False
38 '设定程序运行后最小化
39 Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
40
41
42---
43
44
45（2）.定义托盘程序中的菜单和相关事件：
46
47往NotifyIcon实例中添加菜单，首先要创建ContextMenu实例，此实例主要作用是表示快捷菜单，其中的菜单项是通过创建MenuItem实例来实现，托盘程序中的菜单有几个菜单项，就创建几个MenuItem实例。然后把这些菜单项加入到ContextMenu实例，并把此实例赋值给NotifyIcon实例的ContextMenu属性，这样托盘程序右键点击弹出的菜单就完成了。下面是具体代码：
48
49
50
51
52 创建ContextMenu实例和MenuItem实例：
53 Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
54 Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
55 Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
56 Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
57
58
59---
60
61
62把这些菜单项加入到ContextMenu实例，并把ContextMenu实例赋值给NotifyIcon实例的ContextMenu属性：
63
64
65
66
67 Me.MenuItem1 = New System.Windows.Forms.MenuItem ( )
68 Me.MenuItem2 = New System.Windows.Forms.MenuItem ( )
69 Me.MenuItem3 = New System.Windows.Forms.MenuItem ( )
70 Me.NotifyIcon1.ContextMenu = Me.ContextMenu1
71 Me.NotifyIcon1.Text = "VB.NET的托盘程序"
72 Me.NotifyIcon1.Visible = True
73 '设定托盘程序托盘区位置显示图标
74 Me.NotifyIcon1.Icon = TrayIcon
75 '在ContextMenu实例中加入菜单项
76 Me.ContextMenu1.MenuItems.Add ( Me.MenuItem1 )
77 Me.ContextMenu1.MenuItems.Add ( Me.MenuItem2 )
78 Me.ContextMenu1.MenuItems.Add ( Me.MenuItem3 )
79 Me.MenuItem1.Index = 0
80 Me.MenuItem1.Text = "显示窗体"
81 Me.MenuItem2.Index = 1
82 Me.MenuItem2.Text = "隐藏窗体"
83 Me.MenuItem3.Index = 2
84 Me.MenuItem3.Text = "退出"
85
86
87---
88
89
90当把ContextMenu实例赋值给NotifyIcon实例的ContextMenu属性后，托盘程序的缺省状态是当鼠标右击托盘图标，就会弹出对应的菜单。这时就可以对其中的每一个菜单项定义相应的事件以及具体的处理方法。一个完整的静态托盘程序的编写过程就完成了。
91最后要请读者注意的是，由于本文中的托盘程序的图标并不是通过创建资源文件来实现的，而是通过创建Icon实例完成的。所以在程序运行的时候，必须在程序的当前目录存在一个图标文件，并且此图标文件的名称为"Tray.ico"。下面是这个静态托盘程序的完整的代码清单（Form2.vb）：
92
93
94
95
96 Public Class Form1
97 Inherits System.Windows.Forms.Form
98 #Region " Windows 窗体设计器生成的代码 "
99 Public Sub New ( )
100 MyBase.New ( )
101 '该调用是 Windows 窗体设计器所必需的。
102 InitializeComponent ( )
103 '在 InitializeComponent ( ) 调用之后添加任何初始化
104 End Sub
105 '窗体重写处置以清理组件列表。
106 Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean )
107 If disposing Then
108 If Not ( components Is Nothing ) Then
109 components.Dispose ( )
110 End If
111 End If
112 MyBase.Dispose ( disposing )
113 End Sub
114 'Windows 窗体设计器所必需的
115 Private components As System.ComponentModel.IContainer
116 '注意：以下过程是 Windows 窗体设计器所必需的
117 '可以使用 Windows 窗体设计器修改此过程。
118 '不要使用代码编辑器修改它。
119 Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon
120 Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
121 Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
122 Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
123 Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
124 Friend TrayIcon = New Icon ( "Tray.ico" )
125 <system.diagnostics.debuggerstepthrough (="" )="">
126 Private Sub InitializeComponent ( )
127 Me.components = New System.ComponentModel.Container ( )
128 Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon ( Me.components )
129 Me.ContextMenu1 = New System.Windows.Forms.ContextMenu ( )
130 Me.MenuItem1 = New System.Windows.Forms.MenuItem ( )
131 Me.MenuItem2 = New System.Windows.Forms.MenuItem ( )
132 Me.MenuItem3 = New System.Windows.Forms.MenuItem ( )
133 Me.NotifyIcon1.ContextMenu = Me.ContextMenu1
134 Me.NotifyIcon1.Text = "VB.NET的托盘程序"
135 Me.NotifyIcon1.Visible = True
136 '设定托盘程序托盘区位置显示图标
137 Me.NotifyIcon1.Icon = TrayIcon
138 '在ContextMenu实例中加入菜单项
139 Me.ContextMenu1.MenuItems.Add ( Me.MenuItem1 )
140 Me.ContextMenu1.MenuItems.Add ( Me.MenuItem2 )
141 Me.ContextMenu1.MenuItems.Add ( Me.MenuItem3 )
142 Me.MenuItem1.Index = 0
143 Me.MenuItem1.Text = "显示窗体"
144 Me.MenuItem2.Index = 1
145 Me.MenuItem2.Text = "隐藏窗体"
146 Me.MenuItem3.Index = 2
147 Me.MenuItem3.Text = "退出"
148 Me.AutoScaleBaseSize = New System.Drawing.Size ( 6 , 14 )
149 Me.ClientSize = New System.Drawing.Size ( 292 , 273 )
150 Me.Name = "Form1"
151 '设定程序不应该显示在任务栏
152 Me.ShowInTaskbar = False
153 Me.Text = "VB.NET之WinForm编程托盘程序篇"
154 '设定程序运行后最小化
155 Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
156 End Sub
157 #End Region
158 '显示托盘程序窗口
159 Private Sub MenuItem1_Click ( ByVal sender As System.Object ,
160 ByVal e As System.EventArgs ) Handles MenuItem1.Click
161 Me.WindowState = FormWindowState.Normal
162 Me.Show ( )
163 End Sub
164 '隐藏托盘程序窗口
165 Private Sub MenuItem2_Click ( ByVal sender As Object ,
166 ByVal e As System.EventArgs ) Handles MenuItem2.Click
167 Me.Hide ( )
168 End Sub
169 '推出托盘程序窗口
170 Private Sub MenuItem3_Click ( ByVal sender As Object ,
171 ByVal e As System.EventArgs ) Handles MenuItem3.Click
172 NotifyIcon1.Dispose ( )
173 Application.Exit ( )
174 End Sub
175 '双击图标显示窗体
176 Private Sub NotifyIcon1_DoubleClick ( ByVal sender As Object ,
177 ByVal e As System.EventArgs ) Handles NotifyIcon1.DoubleClick
178 Me.WindowState = FormWindowState.Normal
179 Me.Show ( )
180 End Sub
181 End Class
182 '启动程序
183 Module Module1
184 Sub Main ( )
185 Application.Run ( new Form1 ( ) )
186 End sub
187 End Module
188
189
190---
191
192
193Form2.vb经过了下列命令编译、连接后：
194
195Vbc /r:system.dll /r:system.windows.froms.dll /r:system.drawing.dll form2.vb
196
197就可以得到Form2.exe，下图是From2.exe运行的界面：
198
199
200
201
202
203
204
205
206
207图01：托盘程序运行界面01
208
209
210
211
212
213**动态托盘程序的编写过程**
214
215
216
217动态托盘程序中的托盘图标之所以能够呈现动画效果，是因为程序中的一个定时器组
218
219件每隔一段时间都不断切换托盘图标。本文是通过二个图标的切换来表现动态效果的，读者如果有好的、连续的图标，也可以设定多个图标的切换，而这只需要修改Timer1定时器中的"Tick"事件中的代码就可以了。下面是此动态托盘程序的具体编制步骤：
220
221**要创建程序中的实例和变量：**
222
223
224
225
226 Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon
227 Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
228 Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
229 Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
230 Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
231 '创建Icon实例，用以切换图标
232 Friend Icon1 = New Icon ( "icon1.ico" )
233 Friend Icon2 = New Icon ( "icon2.ico" )
234 '为不同图标的切换提供标识符
235 Dim BeginFlag As Boolean = True
236 '定时器
237 Friend WithEvents Timer1 As System.Windows.Forms.Timer
238
239
240---
241
242
243**初始化实例：**
244
245
246
247
248 Me.components = New System.ComponentModel.Container ( )
249 Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon ( Me.components )
250 Me.ContextMenu1 = New System.Windows.Forms.ContextMenu ( )
251 Me.MenuItem1 = New System.Windows.Forms.MenuItem ( )
252 Me.MenuItem2 = New System.Windows.Forms.MenuItem ( )
253 Me.MenuItem3 = New System.Windows.Forms.MenuItem ( )
254 Me.Timer1 = New System.Windows.Forms.Timer ( Me.components )
255 Me.NotifyIcon1.ContextMenu = Me.ContextMenu1
256 Me.NotifyIcon1.Text = "VB.NET的托盘程序"
257 Me.NotifyIcon1.Visible = True
258 '设定托盘程序托盘区位置显示缺省图标
259 Me.NotifyIcon1.Icon = Icon1
260 '在ContextMenu实例中加入菜单项
261 Me.ContextMenu1.MenuItems.Add ( Me.MenuItem1 )
262 Me.ContextMenu1.MenuItems.Add ( Me.MenuItem2 )
263 Me.ContextMenu1.MenuItems.Add ( Me.MenuItem3 )
264 Me.MenuItem1.Index = 0
265 Me.MenuItem1.Text = "开始转动"
266 Me.MenuItem2.Index = 1
267 Me.MenuItem2.Text = "停止转动"
268 Me.MenuItem3.Index = 2
269 Me.MenuItem3.Text = "退出"
270 Me.AutoScaleBaseSize = New System.Drawing.Size ( 6 , 14 )
271 Me.ClientSize = New System.Drawing.Size ( 292 , 273 )
272 Me.Name = "Form1"
273 Me.ShowInTaskbar = False
274 Me.Text = "VB.NET之WinForm编程动态托盘程序"
275 Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
276
277
278---
279
280
281**定义托盘程序中菜单项对应的事件，以及具体的处理方法：**
282
283
284
285
286 '开始托盘图标的转动
287 Private Sub MenuItem1_Click ( ByVal sender As System.Object ,
288 ByVal e As System.EventArgs ) Handles MenuItem1.Click
289 Timer1.Enabled = True
290 End Sub
291 '停止托盘图标的转动
292 Private Sub MenuItem2_Click ( ByVal sender As Object ,
293 ByVal e As System.EventArgs ) Handles MenuItem2.Click
294 Timer1.Enabled = False
295 End Sub
296 '关闭程序，清除托盘资源
297 Private Sub MenuItem3_Click ( ByVal sender As Object ,
298 ByVal e As System.EventArgs ) Handles MenuItem3.Click
299 NotifyIcon1.Dispose ( )
300 Application.Exit ( )
301 End Sub
302 '根据标识符，来确定托盘图标类型
303 Private Sub Timer1_Tick ( ByVal sender As Object ,
304 ByVal e As System.EventArgs ) Handles Timer1.Tick
305 If BeginFlag = True Then
306 NotifyIcon1.Icon = Icon2
307 BeginFlag = False
308 Else
309 NotifyIcon1.Icon = Icon1
310 BeginFlag = True
311 End If
312 End Sub
313
314
315---
316
317
318至此编写动态托盘程序的主要步骤就介绍完了，和上面的静态托盘程序相同，在运行此程序的时候必须保证此程序当前目录存在二个Icon文件，并且名称为"Icon1.ico"和"Icon2.ico"。这里并没有给出动态托盘程序的完整代码清单，读者只需要把上面这些关键步骤的代码覆盖到Form2.vb中的相应位置就可以得到动态托盘程序的源程序文件Form3.vb。这应该不算很难，下面是编译Form3.vb的命令：
319
320
321
322
323 Vbc /r:system.dll /r:system.windows.froms.dll /r:system.drawing.dll form2.vb
324
325
326---
327
328
329成功编译、连接后就得到Form3.exe，下图是Form3.exe的运行界面：
330
331
332
333
334
335
336
337
338
339图02：托盘程序运行界面02
340
341
342
343
344
345**总结**
346
347
348
349托盘程序是现在比较流行的一种程序类型。本文中介绍的二个程序，也是托盘程序中比较典型的二个，希望对各位了解并掌握编写托盘程序有所帮助。</system.diagnostics.debuggerstepthrough></system.diagnostics.debuggerstepthrough>