VB.NET系统托盘图标实例

1. Imports System.ComponentModel
2. Imports System.Drawing
3. Imports System.WinForms
5. Public Class Form1
6.     Inherits System.WinForms.Form
7.     'TrayIcon icons
8.     Private mSmileIcon As Icon = New Icon("face02.ico")
9.     Private mFrownIcon As Icon = New Icon("face04.ico")
10.     Private mSmileDisplayed As Boolean
11.     Public Sub New()
12.         MyBase.New()
13.         Form1 = Me
14.         'This call is required by the Win Form Designer.
15.         InitializeComponent()
16.         'TODO: Add any initialization after the InitializeComponent() call
17.         'this form isn't used directly so hide it immediately
18.         Me.Hide()
19.         'setup the tray icon
20.         InitializeTrayIcon()
21.     End Sub
22.     
23.     Private Sub InitializeTrayIcon()
24.         'setup the default icon
25.         TrayIcon = New System.WinForms.TrayIcon()
26.         TrayIcon.Icon = mSmileIcon
27.         TrayIcon.Text = "Right Click for the menu"
28.         TrayIcon.Visible = True
29.         mSmileDisplayed = True
30.         'Insert all MenuItem objects into an array and add them to
31.         'the context menu simultaneously
32.         Dim mnuItms(4) As MenuItem
33.         mnuItms(0) = New MenuItem("Show Form...", AddressOf Me.ShowFormSelect)
34.         mnuItms(0).DefaultItem = True
35.         mnuItms(1) = New MenuItem("Toggle Image", AddressOf Me.ToggleImageSelect)
36.         mnuItms(2) = New MenuItem("-")
37.         mnuItms(3) = New MenuItem("Exit", AddressOf Me.ExitSelect)
38.         Dim trayIconMnu As ContextMenu = New ContextMenu(mnuItms)
39.         TrayIcon.ContextMenu = trayIconMnu
40.     End Sub
41.     
42.     Public Sub ShowFormSelect(ByVal sender As Object, ByVal e As system.eventargs)
43.         'Display the settings dialog
44.         Dim SettingsForm As New SettingsForm()
45.         SettingsForm.ShowDialog()
46.     End Sub
47.     
48.     Public Sub ToggleImageSelect(ByVal sender As Object, ByVal e As System.EventArgs)
49.         'called when the user selects the 'Toggle Image' context menu
50.         
51.         'determine which icon is currently visible and switch it
52.         If mSmileDisplayed Then
53.             'called when the user selects the 'Show Form' context menu
54.             TrayIcon.Icon = mFrownIcon
55.             TrayIcon.Text = "Sad"
56.             mSmileDisplayed = False
57.         Else
58.             TrayIcon.Icon = mSmileIcon
59.             TrayIcon.Text = "Happy"
60.             mSmileDisplayed = True
61.         End If
62.         
63.     End Sub
64.     
65.     Public Sub ExitSelect(ByVal sender As Object, ByVal e As System.EventArgs)
66.         'called when the user selects the 'Exit' context menu
67.         
68.         'hide the tray icon
69.         TrayIcon.Visible = False
70.         
71.         'close up
72.         Me.Close()
73.     End Sub
74.     
75.     'Form overrides dispose to clean up the component list.
76.     Public Overrides Sub Dispose()
77.         MyBase.Dispose()
78.         components.Dispose()
79.     End Sub
80.     
81. #Region " Windows Form Designer generated code "
82.     
83.     'Required by the Windows Form Designer
84.     Private components As System.ComponentModel.Container
85.     Private WithEvents TrayIcon As System.WinForms.TrayIcon
86.     
87.     Dim WithEvents Form1 As System.WinForms.Form
88.     
89.     'NOTE: The following procedure is required by the Windows Form Designer
90.     'It can be modified using the Windows Form Designer.  
91.     'Do not modify it using the code editor.
92.     Private Sub InitializeComponent()
93.         Me.components = New System.ComponentModel.Container()
94.         Me.TrayIcon = New System.WinForms.TrayIcon()
95.         
96.         '@design Me.TrayHeight = 90
97.         '@design Me.TrayLargeIcon = False
98.         '@design Me.SnapToGrid = False
99.         '@design Me.TrayAutoArrange = True
100.         '@design TrayIcon.SetLocation(New System.Drawing.Point(7, 7))
101.         TrayIcon.Text = ""
102.         TrayIcon.Visible = True
103.         
104.         Me.MaximizeBox = False
105.         Me.StartPosition = System.WinForms.FormStartPosition.Manual
106.         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
107.         Me.BorderStyle = System.WinForms.FormBorderStyle.None
108.         Me.Enabled = False
109.         Me.AccessibleRole = System.WinForms.AccessibleRoles.None
110.         Me.ShowInTaskbar = False
111.         Me.SizeGripStyle = System.WinForms.SizeGripStyle.Hide
112.         Me.ControlBox = False
113.         Me.MinimizeBox = False
114.         Me.ClientSize = New System.Drawing.Size(1, 7)
115.         Me.Opacity = 0#
116.         
117.     End Sub
118.     
119. #End Region
120.     
121. End Class