SYSTRAY FACILE : MODULE DE CLASSE

Signaler
Messages postés
415
Date d'inscription
mardi 3 avril 2001
Statut
Membre
Dernière intervention
26 avril 2008
-
Messages postés
1263
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
24 juillet 2013
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/5373-systray-facile-module-de-classe

Messages postés
1263
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
24 juillet 2013
6
Merci pour cette classe
Messages postés
278
Date d'inscription
jeudi 14 avril 2005
Statut
Membre
Dernière intervention
13 avril 2013
1
Bah j'ai trouvé finallement (je précise si cela peut servir à d'autres) :

Pour minimizer la Form dans le SYSTRAY
Private Sub Form_Resize()
'Nécessaire pour assurer que la fenêtre réduite soit masquée
If Me.WindowState = vbMinimized Then Me.Hide
End Sub

Pour la réaaficher par Click GAUCHE par exemple

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case X
Case 7755: 'Right Click
Case 7725: 'Dbl Left Click
Me.WindowState = vbNormal
Result = SetForegroundWindow(Me.hwnd)
Me.Show
End Select
End Sub

Voili voulou. Si il y'a plus simple, merci de partager l'info.
A+
Messages postés
278
Date d'inscription
jeudi 14 avril 2005
Statut
Membre
Dernière intervention
13 avril 2013
1
Bonjour,

Drôlement puissant avec si peu de code !
Mais pourquoi lorsque je minimize ma Form, elle ne disparaît pas dans le SYSTRAY justement?? Elle est toujours visible dans la barre des tâches !
Y'a un truc que j'ai pas fait?

Merci par avance !
Phil
Messages postés
22
Date d'inscription
dimanche 5 janvier 2003
Statut
Membre
Dernière intervention
12 août 2008

Cela est tellement simple que cela en est indécent. ;-)
8eme merveille du monde ? ;-)

Non vraiment, c'est simple et très facile.
Je te remercie cela me sert, je débute en terme de systray.
cela vaut bien une bonne note.
Afficher les 30 commentaires