[VB6]Ajouter icone dans systray

**aurelien2723** · 10/04/2006, 15h04

Salut!!

Je voudrais tout simplement ajouter une icone (fichier .ico placer dans mes ressources) dans le systray.

Je ne trouve pas de code simple faisant ceci...

aidez moi svp

Merci

**jmfmarques** · 10/04/2006, 15h10

Recherches donc sur ce forum avec le mot-clef systray et, comme intervenant, mon pseudo !
On ne sait jamais !

**aurelien2723** · 10/04/2006, 15h17

Désolé, je n'avais pas trouvé la recherche avancé sur le forum ....

A par ce sujet inintéressant pour moi, j'ai pas d'autres réponses...

http://www.developpez.net/forums/vie...hlight=systray

**jmfmarques** · 10/04/2006, 15h29

Tu as raison (je ne me retrouve pas moi-même !)
Bon ! regarde juste à côté, alors :
http://www.developpez.net/forums/viewtopic.php?t=385539

**AlainTech** · 10/04/2006, 15h31

Non seulement, tu as trouvé d'autres réponses, mais en plus tu fais du multipost.
http://www.developpez.net/forums/vie...light=#2773299

Reviens dans ce sujet-ci (éventuellement en copiant le code trouvé dans l'autre) mais ne pars pas dans 2 directions différentes.

**aurelien2723** · 10/04/2006, 15h32

Envoyé par AlainTech

Non seulement, tu as trouvé d'autres réponses, mais en plus tu fais du multipost.
http://www.developpez.net/forums/vie...light=#2773299

Reviens dans celui-ci (éventuellement en copiant le code trouvé dans l'autre) mais ne pars pas dans 2 directions différentes.

désolé, je pensais qu'il était plus simple de répondre sur l'autre...

arf tu aurais pu copier mon post avant de le supprimer

lol

**aurelien2723** · 10/04/2006, 16h00

j'ai donc trouvé ce code je j'ai essayer d'insérer dans mon projet.

http://www.developpez.net/forums/pos...reply&t=485584

Le débugger me répond que Me n'est pas correctement utilisé.

Je n'ai pas de form, comment faire pour ajouter une icone quand même?

Je supose que le problème de l'objet est du a l'absence de form.

Si quelqu'un peut m'aider svp

Merci

**aurelien2723** · 10/04/2006, 16h30

j'ai modifier ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
    With nfIconData
    '    .hwnd = Me.hwnd
        '.uID = Me.Icon
        uID = LoadResData(102, "CUSTOM")
    '    .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
    '    .uCallbackMessage = WM_MOUSEMOVE
    '    .hIcon = Me.Icon.Handle
        .szTip = App.FileDescription & Chr$(0)
        .cbSize = Len(nfIconData)
    End With
    Shell_NotifyIcon NIM_ADD, nfIconData