VB.net托盘图标创建

Question

我动态创建使用下面的代码将NotifyIcon：

Dim traysystem As New NotifyIcon 

问题的存在，我怎么可以创建一个click事件？

我已经试过：

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

但是，是的，是行不通的。

Answer 1

手柄需要WITHEVENTS在DIM声明：

Dim WithEvents traysystem As New NotifyIcon 

这个声明的范围并不明显从片段。如果它是一个局部变量，那么你必须使用AddHandler并删除Handles关键字：

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