ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : systray avec menu   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

mar. 28 avril 2015, 19h05
eddymaue
atoutfox.public.association

systray avec menu


Bonsoir,

le menu apparait en dessous du systray

voilà le code et l'image


Local success As Logical
set path to Home()+"samples\solution\toledo\" addi
m.success = .T.
*set step on
Do Case
Case !success

Case !File("systray.vcx",1)
Assert .F.
m.success=.F.

Otherwise
Set Classlib To "systray.vcx" AddI
Endcase

oSystray = CREATEOBJECT("MenuSample1")
READ EVENTS

DEFINE CLASS MenuSample1 AS Systray OF Systray.VCX

IconFile = HOME() + "Graphics\Icons\Misc\Face02.ico"
TipText = "Menu Sample #1"
MenuText = "1;Display Status; 2; Exit Application"

PROCEDURE ProcessMenuEvent
LPARAMETERS nMenuItemID

DO CASE
CASE nMenuItemID = 0
* User cleared the menu. Do nothing.
CASE nMenuItemID = 1
* Display Status
MESSAGEBOX("Status")
CASE nMenuItemID = 2
* Exit Application
THIS.RemoveIconFromSystray()
CLEAR EVENTS
EndCase

ENDPROC
ENDDEFINE

--Merci de partager avec moi votre immense savoir que je me ferai plaisird'absorber...
il va de soi que je vais vous en laisser un peu
Politesse et savoir vivre oblige ;0)
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000016334
20 087 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3