我正在 VS2017 中编写一个 VB.NET 应用程序,以在 Windows 10 上运行。我希望将主(也是唯一的)表单最小化为系统托盘图标。那部分我工作得很好。下一部分,显示气球提示弹出通知(例如,“应用程序仍在运行”),根本不工作。
我已经检查/注意到以下内容:
- 该
NotifyIcon
对象在设计器网格以及表单的 vb.net 代码隐藏中分配了一个图标,其关联的BalloonTipIcon
成员/属性也是如此 - 机器上的组策略似乎没有禁止使用气球提示
- 气球提示似乎没有在注册表中被禁用
- 该程序在 Windows 8.1 Pro 中按预期工作并显示 BalloonTip,但在 Windows 10 Enterprise N 2016 LTSB中没有。
该机器位于一个确实有组策略管理的域中,但是在我的机器上找到的结果策略集似乎并不表明气球提示已被禁用。
从 StackOverflow 复制和粘贴确切的代码不起作用。那么问题必须出在系统本身。
这是代码(适用于 W8.1 但不适用于 W10):
Private Sub frmMain_Resize(sender As Object, e As EventArgs) Handles Me.Resize
Try
If Me.WindowState = FormWindowState.Minimized Then
NotifyIcon1.Visible = True
NotifyIcon1.Icon = SystemIcons.Application
NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info
NotifyIcon1.BalloonTipTitle = "App Title"
NotifyIcon1.BalloonTipText = "The App is still open!"
NotifyIcon1.ShowBalloonTip(50000)
ShowInTaskbar = False
End If
Catch ex As Exception
ErrorHandler(ex)
End Try
End Sub
我还能在哪里看?