Systray facile : module de classe

Soyez le premier à donner votre avis sur cette source.

Vue 10 439 fois - Téléchargée 2 259 fois

Description

Module de classe permettan de manipuler très facilement une icone dans la barre des tâches.

Source / Exemple :


'Pour instancier l'îcone :
dim myicon as new systray

'Pour créer l'icône :
myicon.CreateIcon(mafeuille, "titre icone")
'l'icone de mafeuille sera l'icone présente dans la systray

'Pour supprimer l'icône
myicon.deleteicon

'Pour changer le titre
myicon.titre="mon titre"

'pour changer l'icone
myicon.icon=mafeuille

'Pour récupérer le titre de l'icone
montitre=myicon.titre

Conclusion :


Simple non ?

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

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.
Messages postés
36
Date d'inscription
jeudi 16 février 2006
Statut
Membre
Dernière intervention
26 mai 2008

C'est une tres bonne idée ton objet!
En plus il est simple à comprendre, je fais du vb depuis deux ans, mais je viens a peine de me lancé dans les API, c'est bien pratique!
Afficher les 30 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.