Bonjour,
Est-ce que la procédure que je voudrais appeler doit être défini dans un
macro dans openoffice  <<macro:///myLib.myModule.mySub()>>

Autrement dit MySub ne peut pas être une procédure dans l'environnement de
développement?


-----Message d'origine-----
De : Laurent Godard [mailto:[EMAIL PROTECTED] 
Envoyé : mardi 7 février 2006 17:29
À : [email protected]
Objet : Re: [prog] Comment intercepter un évenement onclose à la fermeture
d'un document OoWriter

Re

je reposte sur la liste francophine la reponse que je t'ai faite qsue la 
liste anglaise

exemple de code pour OnNew et OnLoad
a toi d'adpter

HTH

Laurent
'----------------------------------------

sub ConfigureDemarre(SetOrNot)

dim monEvent(0 to 1) as new com.sun.star.beans.PropertyValue
monEvent(0).name = "EventType"
monEvent(0).value="Basic"
monEvent(1).name = "Script"
if SetOrNot = 1 then
        monEvent(1).value="macro:///myLib.myModule.mySub()"
else
        monEvent(1).value=""
endif

'for only bind to the document
'lesEvents = thisComponent.events
'lesEvents.replaceByName("OnStartApp", monEvent())

GlobalEvent = createUnoservice("com.sun.star.frame.GlobalEventBroadcaster")
GlobalEvent.Events.ReplaceByName("OnNew", monEvent())
GlobalEvent.Events.ReplaceByName("OnLoad", monEvent())

end sub


-- 
Laurent Godard <[EMAIL PROTECTED]> - Ingénierie OpenOffice.org
Indesko >> http://www.indesko.com
Nuxeo CPS >> http://www.nuxeo.com - http://www.cps-project.org
Livre "Programmation OpenOffice.org", Eyrolles 2004

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]



---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à