• Home
 · 
• Miscellaneous
 · 
• Add Your App to the Systray the Easy Way

Add Your App to the Systray the Easy Way

Add Your App to the Systray the Easy Way

Rate Add Your App to the Systray the Easy Way

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Sub Form_Load() 
    Set m_frmSysTray = New frmSysTray 
    With m_frmSysTray 
        .AddMenuItem "&Open SysTray Sample", "open", True 
        .AddMenuItem "-" 
        .AddMenuItem "&Close", "close" 
        .ToolTip = "SysTray Sample!" 
        .IconHandle = Me.Icon.Handle 
    End With 
End Sub 

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 
    Unload m_frmSysTray 
    Set m_frmSysTray = Nothing 
End Sub 

Private Sub m_frmSysTray_MenuClick(ByVal lIndex As Long, ByVal sKey As String) 
    Select Case sKey 
    Case "open" 
        Me.Show 
        Me.ZOrder 
    Case "close" 
        Unload Me 
    End Select 
    
End Sub 

Private Sub m_frmSysTray_SysTrayDoubleClick(ByVal eButton As MouseButtonConstants) 
    Me.Show 
    Me.ZOrder 
End Sub 

Private Sub m_frmSysTray_SysTrayMouseDown(ByVal eButton As MouseButtonConstants) 
    If (eButton = vbRightButton) Then 
        m_frmSysTray.ShowMenu 
    End If
End Sub