Question

我使用以下代码动态创建NotifyIcon：

Dim traysystem As New NotifyIcon

问题是，如何为此创建点击事件？

我试过了：

Private Sub traysystem_click(ByVal sender As System.Object, ByVal e As  _
System.EventArgs) Handles traysystem.Click
    messagebox.show("test!")
End Sub

但是，不起作用。

Answer 1

句柄需要DIM语句中的WithEvents：

 Dim WithEvents traysystem As New NotifyIcon

此声明的范围在摘录中并不明显。如果它是局部变量，那么您必须使用AddHandler并删除Handles关键字：

    Dim traysystem As New NotifyIcon
    AddHandler traysystem.Click, AddressOf traysystem_click

VB.net托盘图标创建

1 个答案: