VB.netトレイアイコンの作成

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