Question

我试图让NotifyIcon显示一个上下文菜单，即使用鼠标左键单击它也是如此。我可以在图标的MouseDown事件中将其显示在正确的位置：

sysTrayIcon.ContextMenuStrip = TrayContextMenu
If e.Button = MouseButtons.Left Then TrayContextMenu.Show()

但是因为当我左键单击时未将sysTrayIcon指定为控件，如果我在菜单外单击或按下转义，则不会从屏幕上清除。

我知道通常的方法是使用菜单的重载Show(control, location)方法，但这会引发此错误：

Value of type 'System.Windows.Forms.NotifyIcon' cannot be converted to 'System.Windows.Forms.Control'.

那么如何将菜单附加到通知图标呢？

Answer 1

是的，此代码无法正常发布。需要几个secret incantations才能将上下文菜单放在正确的位置，并且正确设置鼠标捕获，以便在其外部单击可以正常工作。这些咒语是必需的，因为它是管理通知图标的Windows资源管理器，而不是您的程序。

你需要将它留给NotifyIcon类才能做到这一点。然而，一个重要的问题是它没有公开显示上下文菜单的方法，它是一个私有方法。您唯一能做的就是使用Reflection来调用该方法。像这样（使用默认名称）：

Imports System.Reflection
...
    Private Sub NotifyIcon1_MouseDown(sender As Object, e As MouseEventArgs) Handles NotifyIcon1.MouseDown
        NotifyIcon1.ContextMenuStrip = ContextMenuStrip1
        Dim mi = GetType(NotifyIcon).GetMethod("ShowContextMenu", BindingFlags.NonPublic Or BindingFlags.Instance)
        mi.Invoke(NotifyIcon1, Nothing)
    End Sub

如何将ContextMenuStrip附加到NotifyIcon

1 个答案: