-
Notifications
You must be signed in to change notification settings - Fork 0
/
appContext.vb
50 lines (41 loc) · 1.65 KB
/
appContext.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Imports System.Windows.Forms
Imports System.Drawing
Public Class AppContext
Inherits ApplicationContext
Private WithEvents Tray As NotifyIcon
Private WithEvents MainMenu As ContextMenuStrip
Private WithEvents mnuDisplayForm As ToolStripMenuItem
Private WithEvents mnuSep1 As ToolStripSeparator
Private WithEvents mnuExit As ToolStripMenuItem
Private WithEvents Timer1 As Timer
Private WithEvents myHotkeys As New frmHotkeys
Public Sub New()
'Initialize the menus
mnuDisplayForm = New ToolStripMenuItem("Beep")
mnuSep1 = New ToolStripSeparator()
mnuExit = New ToolStripMenuItem("Exit")
MainMenu = New ContextMenuStrip
MainMenu.Items.AddRange(New ToolStripItem() {mnuDisplayForm, mnuSep1, mnuExit})
Timer1 = new timer()
Timer1.interval = 50000
Timer1.enabled = true
'Initialize the tray
Tray = New NotifyIcon
Tray.Icon = My.Res.beakerIcon
'Tray.Icon = New Icon("res\audio-spectrum-8x.ico")
'Tray.Icon = New Icon("appicon.ico")
Tray.ContextMenuStrip = MainMenu
Tray.Text = "Formless tray application"
addhandler mnuDisplayForm.Click, addressof mnuItemClick
addhandler mnuExit.Click, addressof mnuItemClick
addhandler Tray.DoubleClick, addressof TrayDoubleClick
addhandler Timer1.Tick, addressof TimerTick
'Display
Tray.Visible = True
End Sub
Private Sub AppContext_ThreadExit(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles Me.ThreadExit
'Guarantees that the icon will not linger.
Tray.Visible = False
End Sub
End Class