VB.net托盘图标创建

时间:2011-01-27 17:18:03

标签: vb.net system-tray

我使用以下代码动态创建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

但是,不起作用。

1 个答案:

答案 0 :(得分:2)

句柄需要DIM语句中的WithEvents:

 Dim WithEvents traysystem As New NotifyIcon 

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

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