在VB（Visual Basic）编程环境中，托盘图标（Tray Icon）是指程序在系统任务栏右下角显示的小图标，通常用于提供一个隐藏但可访问的界面元素。VB托盘应用广泛，尤其在开发需要后台运行或最小化到系统托盘的软件时。本教程将详细介绍如何在VB中实现托盘功能。
我们需要了解VB中的`System Tray`对象，它在VB的标准库中被称为`NotifyIcon`。这个对象允许我们在程序中创建和管理托盘图标，以及与之相关的右键菜单和事件处理。
1. **添加`NotifyIcon`组件**：
在VB的工具箱中，找到`Microsoft Windows Common Controls 6.0 (SP6)`组件库，展开后可以看到`NotifyIcon`组件。将其拖放到窗体上，这样我们就可以在代码中访问这个组件了。
2. **设置托盘图标**：
要显示在托盘区的图标，需要先将其加载到资源中。在VB项目中，可以添加一个图标资源文件（`.ico`格式），然后在代码中指定`NotifyIcon`的`Icon`属性为该图标。
```vb
MyNotifyIcon.Icon = My.Resources.MyIcon
```
3. **添加托盘菜单**：
如果需要在托盘图标上右击时显示一个菜单，可以创建一个`ContextMenuStrip`对象，然后添加所需的菜单项。例如：
```vb
Dim trayMenu As New ContextMenuStrip
Dim menuItem1 As New ToolStripMenuItem("打开")
Dim menuItem2 As New ToolStripMenuItem("退出")
trayMenu.Items.Add(menuItem1)
trayMenu.Items.Add(menuItem2)
MyNotifyIcon.ContextMenuStrip = trayMenu
```
4. **绑定事件处理**：
对于每个菜单项，需要添加事件处理程序来响应用户的操作。例如，当用户点击"打开"时，可以显示主窗口；点击"退出"时，关闭应用程序。
```vb
Private Sub menuItem1_Click(sender As Object, e As EventArgs) Handles menuItem1.Click
Me.Show()
End Sub
Private Sub menuItem2_Click(sender As Object, e As EventArgs) Handles menuItem2.Click
Application.Exit()
End Sub
```
5. **最小化到托盘**：
当用户最小化程序时，我们希望程序窗口隐藏并显示托盘图标。可以通过重写`Form`的`Form最小化`事件来实现：
```vb
Protected Overrides Sub OnFormClosing(e As FormClosingEventArgs)
If e.CloseReason = CloseReason.UserClosing Then
e.Cancel = True
Me.Hide()
MyNotifyIcon.Visible = True
Else
MyBase.OnFormClosing(e)
End If
End Sub
```
6. **显示和隐藏窗口**：
当用户点击托盘图标或者执行“打开”菜单项时，需要重新显示窗口。可以通过设置`Visible`属性来控制：
```vb
Private Sub MyNotifyIcon_MouseClick(sender As Object, e As MouseEventArgs) Handles MyNotifyIcon.MouseClick
If e.Button = MouseButtons.Left Then
Me.Show()
Me.WindowState = FormWindowState.Normal '恢复到正常大小
End If
End Sub
```
通过以上步骤，一个简单的VB托盘程序就完成了。这个实例展示了如何利用VB的`NotifyIcon`组件创建托盘图标，设置菜单，并响应用户的交互。在实际开发中，还可以根据需求扩展更多功能，如添加定时器、显示通知等。这只是一个基础的示例，实际的VB托盘程序可能需要更复杂的逻辑和交互设计。
VB托盘演示.rar （5个子文件） 
托盘演示 
工程1.vbw 79B
