web-dev-qa-db-fra.com

Créer un programme à exécuter à partir de la barre d'état système

Je voudrais créer un programme à exécuter à partir de la barre d'état système inférieure droite de Windows.

Mais je ne sais pas par où commencer?

Est-ce que quelqu'un peut me dire où me trouver et des exemples ou quelles commandes utiliser\research?

vb.netvisual-studio-2010
8
Pavle Stojanovic

Je passe en revue les réponses que je note qui manquent l'icône.

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
    If Me.WindowState = FormWindowState.Minimized Then
        NotifyIcon1.Visible = True
        NotifyIcon1.Icon = SystemIcons.Application
        NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info
        NotifyIcon1.BalloonTipTitle = "Verificador corriendo"
        NotifyIcon1.BalloonTipText = "Verificador corriendo"
        NotifyIcon1.ShowBalloonTip(50000)
        'Me.Hide()
        ShowInTaskbar = False
    End If
End Sub

Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick
    'Me.Show()
    ShowInTaskbar = True
    Me.WindowState = FormWindowState.Normal
    NotifyIcon1.Visible = False
End Sub
12
Doberon

Ajouter une NotifyIcon au formulaire de la fenêtre principale . Utilisez l'événement Resize dans Form pour contrôler quand afficher la NotifyIcon et masquer le formulaire:

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        If Me.WindowState = FormWindowState.Minimized Then
                NotifyIcon1.Visible = true
                Me.Hide()
                NotifyIcon1.BalloonTipText = "Hi from right system tray"
                NotifyIcon1.ShowBalloonTip(500)
        End If
    End Sub

Utilisez les événements de NotifyIcon pour afficher à nouveau le formulaire:

Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick
        Me.Show()
        Me.WindowState = FormWindowState.Normal
        NotifyIcon1.Visible = False
    End Sub

Vous pouvez télécharger un exemple complet dans AutoDNIE google code project

19
jlvaquero

Vous pouvez aussi faire:

Sub ToggleHide()
    If Me.WindowState = FormWindowState.Normal Then
        Me.ShowInTaskbar = False
        Me.WindowState = FormWindowState.Minimized
    Else
        Me.ShowInTaskbar = True
        Me.WindowState = FormWindowState.Normal
    End If
End Sub
0
Rob