Discussion :

[Leray]

Bonjour à tous

J'ai développé une petite appli qui se met dans le systray dès que j'utilise le bouton "minimiser" ou "fermer" pour pouvoir la rappeler facilement quand je veux.

J'ai utilisé la FAQ VB qui fournit un lien vers le site de Microsoft expliquant comment créer une icone dans le systray.

Le problème, c'est que lorsque je veux arrêter mon micro, celui-ci ne réagit pas. Je m'explique...

Si mon appli est dans le systray et que je veuille arrêter mon micro via le bouton "Démarrer" puis "arrêter", rien ne se passe... Par contre, il suffit que je clique sur l'icône de mon appli dans le systray avec le bouton droit, que je clique sur "Quitter" dans le menu qui apparait pour que l'appli s'arrête, puis que je refasse la manip pour arrêter mon micro ça marche...

Savez-vous ce qui peut coincer la fermeture de mon micro ? Est-ce la méthode proposée par Microsoft en Visual Basic qui est responsable de ce dysfonctionnement ?

Pour info, c'est peut-être utile, je travaille sur un micro en réseau avec Windows NT 4 (eh oui, ma boîte n'est pas à jour, je pense qu'avec XP je n'aurais pas ce problème).

Merci d'avance .

[SfJ5Rpw8]

Bonsoir,

as-tu rajouté une procédure événementielle pour Form_QueryUnload ..., peu- t'on voir son code .?

[Leray]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If MenuQuit = False Then
        Shell_NotifyIcon NIM_ADD, nid
        Me.Hide
        Cancel = True
    End If
End Sub

La variable MenuQuit est à False au démarrage de l'appli et passe à True si je clique avec le bouton droit sur l'icone dans le systray puis sur "Quitter" dans le menu contextel qui s'affiche.

Ca me permet de réduire l'appli dans le systray quand je clique sur le bouton "minimiser" ou sur le bouton "fermeture" de la fenêtre de l'appli, au lieu de fermer purement et simplement l'appli.

La seule façon pour fermer l'appli est de passer par le menu contextuel de l'icone présente dans le systray.

Si MenuQuit est à True, la Sub Form_unload suivante est exécutée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_Unload(Cancel As Integer)
    Shell_NotifyIcon NIM_DELETE, nid
End Sub

Celle-ci supprime l'icone dans le systray.

[OhMonBato]

Pourquoi ajouter une variable "MenuQuit" alors que tu peux tester UnloadMode ?

Si UnloadMode = vbFormControlMenu, c'est que l'utilisateur à cliqué sur la croix de fermeture de la fenetre, donc tu peux aussi écrire une procédure pour Form_Resize, si le satus de la fenetre est VbMinimised tu appelles la procédure Form_QueryUnload en forçant unloadmode = vbFormControlMenu.

Ca pourrait aller comme ça non et donc sans ta variable ?

Tu peux aussi tester si unloadmode = vbAppWindows c'est que la session Windows est en cours de fermeture. Enfin bref, à mon avis en jouant avec unloadmode, tu devrais trouver la solution à ton pb

[Leray]

Ouaich !!! Bien joué Ohmonbato

J'avais l'habitude de gérer la fermeture de mes forms avec une variable (c'est bizarre, j'ai l'impression que la FAQ VB donnait cette astuce avant ), mais c'est bien plus simple comme ça.

Il est vrai que la variable ne passait pas à True quand le système essayait de fermer la session.

J'aurais du y penser avant. Quoi qu'il en soit, merci.