我正在 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
我还能在哪里看到?
答案1
事实证明,我中了最古老的诡计之一。我需要做一个满的修改一个注册表项后重新启动。
因此,对我来说,让气球提示出现在 Windows 10 中需要执行以下操作:
打开 regedit.exe
导航
HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced
设置(或添加)
EnableBalloonTips
(作为 REG_DWORD)并将值设置为1
重启。
瞧!问题解决了。