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