Faire disparaitre icone du tray lorsque programme quitté

Question

Jai une application utilisant un systray icon. Mais lorsque je ferme celui ci, l'icone reste dans le systray, je dois passer ma souris par dessus pour qu'il disparaisse. Commend faire pour que lorsque le programme est ferm&#233; soit par le X en haut a droite ou une commande End, l'icone disparaisse lui aussi du systray, au lieu de tjr devoir le survoler ?

PCPT · Answer

salut,

au Unload, tu dois lui envoyer un NIM_DELETE de m&#233;moire...

++

cs_Jack · Answer

Salut
Si tu utilises la m&#233;thode standard, le d&#233;montage se fait comme ceci (dans Form_Unload)
    ' D&#233;monte le mode SysTray
    IconeT.cbSize = Len(IconeT)
    IconeT.hWnd = Me.hWnd
    IconeT.uID = 1&
    Shell_NotifyIcon NIM_DELETE, IconeT

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_seozus · Answer

Le code ne fonctionne pas, peut &#234;tre que je ne sais pas l'utiliser ... Je dois modifier IconeT par le nom de mon icone, jai essay&#233;, mais je n'ai peut &#234;tre pas la bonne chose, ou puis-je trouver cela, une m&#233;thode pour le faire fonctionner? SVP aidez-moi ...

cs_seozus · Answer

Au pire, quelquun d'y connait assez pour que je lui donne la source par email et me le r&#233;pare ???

cs_Jack · Answer

Salut
Normalement, tu as ce m&#234;me code (que je t'ai coll&#233;) pour faire apparaitre ton icone dans le SysTray sauf que le Shell_NotifyIcon fait appel &#224; MIN_ADD.
Les valeurs des constantes sont :
' Shell_NotifyIcon Flags
Public Const NIM_ADD            As Long = &H0   ' Ajouter un ic&#244;ne dans la zone du  statut
Public Const NIM_MODIFY         As Long = &H1   ' Modifier un ic&#244;ne dans la zone du statut
Public Const NIM_DELETE         As Long = &H2   ' Efface un ic&#244;ne de la zone de statut

Alors bien s&#251;r, si tu as appel&#233; diff&#233;remment IconeT, &#231;a doit pas bien marcher ...
Cherche cette ligne : Public Type NOTIFYICONDATA
C'est la d&#233;claration de la variable qui supporte les infos &#224; transmettre.
Le Dim qui fait r&#233;f&#233;rence &#224; ce Type de donn&#233;e est le nom que tu dois utiliser.

Si tu ne retrouves pas le genre de code que je t'ai coll&#233;, c'est que tu utilises une autre technique.
Alors la moindre des choses serait de nous dire comment tu fais ... sinon on ne pourra rien pour toi.
Si tu veux gagner du temps, cherche parmi les sources de vbfrance "SysTray" --> des dizaines de sources l'utilisent !

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_seozus · Answer

C'est bon, le nom est PhotoSystray, mais il se trouve dans un fichier classe qui se nomme systray.cls qui est incorpor&#233; a mon projet, et le Form_Unload() lui se trouve dans ma Form1, comment corriger pour qu'il puisse lire dans le fichier classe? Si c'est sa le probl&#232;me biensur ...

Message d'Erreur de ce code: Complie Error: Variable not defined

Public Sub Form_Unload(Cancel As Integer)
PhotoSystray.cbSize =  Len( PhotoSystray )
    PhotoSystray.hwnd  = Me.hwnd
    PhotoSystray.uId = 1&
    Shell_NotifyIcon NIM_DELETE, PhotoSystray
End Sub

gallyhc · Answer

Bonjour,

Ajoute juste un End &#224; la fin de ta sub.

Bonne prog
[Gally Home Corp]

PCPT · Answer

salut,

si tu utilises un module de classe (pas de toi), il est propable qu'il contienne une fonction du genre .hide &#224; appeler au unload

gallyhc · Answer

Bonjour,

Je t'ai envoy&#233; un code complet pour faire ce que tu veux est-ce que cela est bon pour toi???

Cordialement,
[Gally Home Corp]

gallyhc · Answer

Bonjour,

Cemme cela fait pas mal de temps que je n'ai ausune nouvelle je supose que sa va. De mon cote sans nouvelle je laisse tomber pour toi...

Bonne programmation quand m&#234;me,
[Gally Home Corp]

Faire disparaitre icone du tray lorsque programme quitté

10 réponses

Discussions similaires