OVH Cloud OVH Cloud

systray avec vba

5 réponses
Avatar
gilles906
bonjour

je voudrais envoyer mon aplication dans le systray (a coté de
l'horloge), et ce de manniere a la faire tourner en arriere plan.

la mettre dans le systray, c'est bon. Mais par contre je n'arrive pas
a faire un menu quand on click sur l'icone dans le systray.
si quelqu'un avait une idée pour avoir ce menu.
merci d'avance

5 réponses

Avatar
Raymond [mvp]
Bonsoir.

voir si tu trouves ta vie sur :
http://www.mvps.org/accessfr/apis/api0045.htm

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"gilles" a écrit dans le message de news:

bonjour

je voudrais envoyer mon aplication dans le systray (a coté de
l'horloge), et ce de manniere a la faire tourner en arriere plan.

la mettre dans le systray, c'est bon. Mais par contre je n'arrive pas
a faire un menu quand on click sur l'icone dans le systray.
si quelqu'un avait une idée pour avoir ce menu.
merci d'avance


Avatar
gilles906
Merci de ta reponse Raymond

J'avais deja vu ce code, mais il n'y a pas de menu.

Select Case lParam
Case WM_LBUTTONUP: ' Bouton gauche relâché
Call apiShowWindow(hWnd, SW_SHOWNORMAL)

Case WM_LBUTTONDBLCLK: 'Bouton gauche, Double clic
Call apiShowWindow(hWnd, SW_SHOWNORMAL)

Case WM_LBUTTONDOWN: 'Bouton gauche enfoncé
'Debug.Print "Left Button Down"

Case WM_RBUTTONDBLCLK: ' Double-clic droit
'Debug.Print "Right Button Double Click"

Case WM_RBUTTONDOWN: 'Bouton droit, enoncé
'Debug.Print "Right button Down"

Case WM_RBUTTONUP: 'Bouton droit, relâché
Call apiShowWindow(hWnd, SW_SHOWNORMAL)
End Select

la se sont les entrés pour interagir sur l'icone du systray mais moi
je voudrais faire un menu.
j'ai vu que sous vb il y avait possibilité de le faire, mais je n'ai
rien trouvé pour access.
Pourtant il doit bien il y avoir un moyen, enfin j'espere.
gilles



"Raymond [mvp]" wrote in message news:<#...
Bonsoir.

voir si tu trouves ta vie sur :
http://www.mvps.org/accessfr/apis/api0045.htm

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"gilles" a écrit dans le message de news:

bonjour

je voudrais envoyer mon aplication dans le systray (a coté de
l'horloge), et ce de manniere a la faire tourner en arriere plan.

la mettre dans le systray, c'est bon. Mais par contre je n'arrive pas
a faire un menu quand on click sur l'icone dans le systray.
si quelqu'un avait une idée pour avoir ce menu.
merci d'avance




Avatar
Raymond [mvp]
faut pas comparer access avec VB6, access n'étant pas fait pour ça et devant
passer par les api ce qui complique un peu la solution.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"gilles" a écrit dans le message de news:

Merci de ta reponse Raymond

J'avais deja vu ce code, mais il n'y a pas de menu.

Select Case lParam
Case WM_LBUTTONUP: ' Bouton gauche relâché
Call apiShowWindow(hWnd, SW_SHOWNORMAL)

Case WM_LBUTTONDBLCLK: 'Bouton gauche, Double clic
Call apiShowWindow(hWnd, SW_SHOWNORMAL)

Case WM_LBUTTONDOWN: 'Bouton gauche enfoncé
'Debug.Print "Left Button Down"

Case WM_RBUTTONDBLCLK: ' Double-clic droit
'Debug.Print "Right Button Double Click"

Case WM_RBUTTONDOWN: 'Bouton droit, enoncé
'Debug.Print "Right button Down"

Case WM_RBUTTONUP: 'Bouton droit, relâché
Call apiShowWindow(hWnd, SW_SHOWNORMAL)
End Select

la se sont les entrés pour interagir sur l'icone du systray mais moi
je voudrais faire un menu.
j'ai vu que sous vb il y avait possibilité de le faire, mais je n'ai
rien trouvé pour access.
Pourtant il doit bien il y avoir un moyen, enfin j'espere.
gilles




Avatar
gilles906
merci de ta reponse Raymond

As tu quelques informations pour me guider dans ma recherche.
je ne sais pas trop par ou commencer.
J'ai vu qu'il y avait un ocx appelé systray.ocx mais aucune info dessus.

merci


"Raymond [mvp]" wrote in message news:...
faut pas comparer access avec VB6, access n'étant pas fait pour ça et devant
passer par les api ce qui complique un peu la solution.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"gilles" a écrit dans le message de news:

Merci de ta reponse Raymond

J'avais deja vu ce code, mais il n'y a pas de menu.

Select Case lParam
Case WM_LBUTTONUP: ' Bouton gauche relâché
Call apiShowWindow(hWnd, SW_SHOWNORMAL)

Case WM_LBUTTONDBLCLK: 'Bouton gauche, Double clic
Call apiShowWindow(hWnd, SW_SHOWNORMAL)

Case WM_LBUTTONDOWN: 'Bouton gauche enfoncé
'Debug.Print "Left Button Down"

Case WM_RBUTTONDBLCLK: ' Double-clic droit
'Debug.Print "Right Button Double Click"

Case WM_RBUTTONDOWN: 'Bouton droit, enoncé
'Debug.Print "Right button Down"

Case WM_RBUTTONUP: 'Bouton droit, relâché
Call apiShowWindow(hWnd, SW_SHOWNORMAL)
End Select

la se sont les entrés pour interagir sur l'icone du systray mais moi
je voudrais faire un menu.
j'ai vu que sous vb il y avait possibilité de le faire, mais je n'ai
rien trouvé pour access.
Pourtant il doit bien il y avoir un moyen, enfin j'espere.
gilles






Avatar
Raymond [mvp]
je n'ai pas d'autre info que celle indiquée sur le site. demande un
complément directement sur le site.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"gilles" a écrit dans le message de news:

merci de ta reponse Raymond

As tu quelques informations pour me guider dans ma recherche.
je ne sais pas trop par ou commencer.
J'ai vu qu'il y avait un ocx appelé systray.ocx mais aucune info dessus.

merci