WPF创建通知区域图标

Imports System.Windows.Forms

Class MainWindow
Private WithEvents NotifyIcon As New NotifyIcon
Dim setting1 As MenuItem = New MenuItem("setting1")
Dim setting2 As MenuItem = New MenuItem("setting2")
Dim setting As MenuItem = New MenuItem("setting", new MenuItem(){setting1,setting2})

Dim help As MenuItem = New MenuItem("help")


Dim WithEvents about As MenuItem = New MenuItem("about")

Dim childen As MenuItem() = New MenuItem() {setting, help, about}
Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
NotifyIcon = New NotifyIcon()
NotifyIcon.BalloonTipText = "systray runnning..."
NotifyIcon.Text = "systray"
NotifyIcon.Icon = New System.Drawing.Icon("d:\ico.ico")
NotifyIcon.Visible = True
NotifyIcon.ShowBalloonTip(2000)
NotifyIcon.ContextMenu = New ContextMenu(childen)
End Sub

Private Sub NotifyIcon_Click(sender As Object, e As EventArgs) Handles NotifyIcon.Click

End Sub

 

Private Sub about_Click(sender As Object, e As EventArgs) Handles about.Click
MsgBox("about")
End Sub
End Class