4/5 (30 avis)
Vue 10 578 fois - Téléchargée 2 266 fois
'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
6 avril 2007 à 00:07
5 avril 2007 à 20:54
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+
5 avril 2007 à 20:41
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
16 févr. 2007 à 09:57
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.
7 juil. 2006 à 15:11
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!
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.