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

Soyez le premier à donner votre avis sur cette source.

Vue 9 892 fois - Téléchargée 1 267 fois

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

Ajouter un commentaire

Commentaires

cs_sergiooi
Messages postés
53
Date d'inscription
vendredi 6 octobre 2006
Statut
Membre
Dernière intervention
7 octobre 2009
-
l'infobulle marche pas chez moi =/ mais c bien cette source.
merci
vbnino
Messages postés
218
Date d'inscription
jeudi 13 juillet 2006
Statut
Membre
Dernière intervention
11 juillet 2010
-
MERCI !!! , voila une source simple.
ptitdark
Messages postés
1
Date d'inscription
samedi 20 avril 2002
Statut
Membre
Dernière intervention
6 août 2009
-
L'infobulle ne fonctionne que sur un de mes pc.
Sur l'autre, l'icone se charge et le petit son retentit quand un message devrait être affiché mais rien n'apparait.
Si qqn avait une idée, il me sauverait peut-être la vie :-)

Merci
DEADisDEADisDEAD
Messages postés
24
Date d'inscription
jeudi 9 décembre 2004
Statut
Membre
Dernière intervention
17 décembre 2008
-
bon bas c'est pas grave, merci bien
GlanduSchmoldu
Messages postés
199
Date d'inscription
mardi 23 décembre 2003
Statut
Membre
Dernière intervention
27 octobre 2006
1 -
Euh alors là moi non, aucune idée. Désolé.

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.