VB2012系统托盘应用：工具提示异常与进度条实现问询

嘿，我来帮你搞定这两个托盘相关的需求，都是日常开发里挺常见的小问题，咱们一个个来：

一、修复托盘图标工具提示显示错误的问题 #

你遇到的 tooltip 显示ContextMenuStrip1的问题，大概率是误把菜单控件的属性当成了托盘图标的提示。原生的NotifyIcon控件有自己的Text属性，这才是鼠标悬停时显示的工具提示内容，和ContextMenuStrip的Text完全没关系。

解决步骤很简单：

• 如果你用设计器：找到窗体上的NotifyIcon控件，在右侧属性面板里找到Text项，直接输入你想要的提示文本（比如“我的应用 - 后台运行”）。
• 如果你用代码设置，比如在窗体加载时：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 这里设置的是NotifyIcon的Text，不是ContextMenuStrip的
    NotifyIcon1.Text = "我的应用名称 - 后台运行中"
    ' 别忘了把NotifyIcon设为可见
    NotifyIcon1.Visible = True
End Sub

这样鼠标悬停托盘图标时，就会显示你设置的自定义文本，而不是菜单的名称了。

二、实现托盘图标下方的进度条效果 #

原生的NotifyIcon并不直接支持进度条显示，不过咱们可以通过动态生成带进度的图标来实现这个效果——本质是把进度条绘制在原始图标上，然后替换NotifyIcon的Icon属性。

1. 编写生成带进度图标的函数 #

这个函数会接收原始图标和进度值，返回一个叠加了进度条的新图标：

Private Function CreateProgressIcon(baseIcon As Icon, progress As Integer) As Icon
    ' 确保进度值在0-100的范围内
    progress = Math.Max(0, Math.Min(100, progress))
    
    ' 创建和原始图标尺寸一致的Bitmap用于绘制
    Dim bmp As New Bitmap(baseIcon.Width, baseIcon.Height)
    Using g As Graphics = Graphics.FromImage(bmp)
        ' 先绘制原始图标作为底图
        g.DrawIcon(baseIcon, 0, 0)
        
        ' 计算进度条的宽度
        Dim barWidth As Integer = CInt((progress / 100) * bmp.Width)
        ' 绘制进度条的半透明背景（让进度条不遮挡原始图标）
        g.FillRectangle(New SolidBrush(Color.FromArgb(128, 0, 0, 0)), 0, bmp.Height - 3, bmp.Width, 3)
        ' 绘制进度条的前景色（这里用蓝色，你可以改成自己需要的颜色）
        g.FillRectangle(New SolidBrush(Color.FromArgb(255, 0, 128, 255)), 0, bmp.Height - 3, barWidth, 3)
    End Using
    
    ' 将Bitmap转换为Icon并返回
    Return Icon.FromHandle(bmp.GetHicon())
End Function

2. 在后台更新时调用函数更新图标 #

因为后台更新线程不能直接操作UI控件，所以要通过Invoke确保在UI线程执行图标替换：

' 假设这是后台更新进度时调用的方法
Private Sub UpdateTrayProgress(progress As Integer)
    ' 判断是否需要跨线程调用
    If Me.InvokeRequired Then
        Me.Invoke(Sub() UpdateTrayProgress(progress))
        Return
    End If
    
    ' 生成带进度的图标并赋值给NotifyIcon
    NotifyIcon1.Icon = CreateProgressIcon(My.Resources.AppIcon, progress)
    
    ' 进度完成后，恢复原始图标
    If progress = 100 Then
        NotifyIcon1.Icon = My.Resources.AppIcon
    End If
End Sub

3. 注意资源释放（避免内存泄漏） #

在窗体关闭时，记得释放自定义生成的图标资源：

Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
    ' 释放图标资源
    NotifyIcon1.Icon.Dispose()
    ' 隐藏托盘图标
    NotifyIcon1.Visible = False
End Sub

这样后台更新时，托盘图标下方就会显示一个动态的进度条，完成后自动恢复原始图标啦。

内容的提问来源于stack exchange，提问作者Antony