我使用以下代码动态创建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
但是,不起作用。
答案 0 :(得分:2)
句柄需要DIM语句中的WithEvents:
Dim WithEvents traysystem As New NotifyIcon
此声明的范围在摘录中并不明显。如果它是局部变量,那么您必须使用AddHandler并删除Handles关键字:
Dim traysystem As New NotifyIcon
AddHandler traysystem.Click, AddressOf traysystem_click