Module systray mono-icone avec infobulle, tout ça commenté

Description

Hé oui, encore un systray. C'est vrai qu'il y en a déjà beaucoup mais bon, puisqu'il est fait et commenté, autant qu'il serve à qqchose (peut être cela fera t-il le bonheur d'un novice, qui sais ?).

Alors c'est un module pour VB6 permettant de gérer une (et une seule) icone dans le systray, y compris l'affichage d'une infobulle.

Note : on peux créer plusieurs icones, mais ça bug partout.

Source / Exemple :


'Crée une icone à partir du Form1, avec Coucou dans le tooltip
CreerIcone Form1, "Coucou"
    
'Remplace l'icone par celle du Form2
ChangerIcone Form2
    
'Change le tooltip
ChangerToolTip "Coucou, deuxième"

'Affiche une infobulle avec l'icone warning
'(qui disparait 10s plus tard ou qd on clique dessus)
InfoBulle "Le Titre", "Le Texte", IconAttention

'Détruit l'icone
EffacerIcone

'Pour récupérer les évènements de la souris :

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    X = ScaleX(X, Me.ScaleMode, vbPixels)

    Select Case X
        Case BOUTON_GAUCHE_DOWN

        Case BOUTON_GAUCHE_UP
            
        Case BOUTON_GAUCHE_DBLCLIQUE
            
        Case BOUTON_DROIT_DOWN
            
        Case BOUTON_DROIT_UP
            
        Case BOUTON_DROIT_DBLCLIQUE
            
        Case MOUVEMENT

    End Select
End Sub

Conclusion :


Tout ça fonctionne sur l'API Shell_NotifyIcon.

Remerciements à PatriceVB et Goth, mes plus grandes muses (qui j'espère ne se sentiront pas offensés s'ils reconnaissent des morceaux de leur source derrière ce module).

Codes Sources

A voir également

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.