desktop terminatelistener

Makró készítés, parancsfájl írás és az API használata

desktop terminatelistener

HozzászólásSzerző: tamasaz » 2009. június 30., kedd 11:09

Üdv mindenkinek!

Az alábbi kód az "oDesk.terminate" soron kiakad a következő hibajelzéssel : Eljárás nem létezik.

A "vege_terminate" eljárás név helyett valami ilyesmi kellene "vege_akiváltotteseményneve", csak épp nem tudom, hogy milyen esemény váltódik ki az oDesk.terminate hatására.


Sub kilep
dim oDesk as object
dim oList as object

oDesk = StarDesktop
oList = CreateUnoListener( "vege_" , "com.sun.star.frame.XTerminateListener" )

oDesk.addTerminateListener(oList)

oDesk.terminate

end sub

sub vege_terminate( event )
msgbox "vége"
end sub

Köszönöm!

admin: ez inkább OOo programozás mint base specifikus kérdés, ide áthelyeztem.
tamasaz
tamasaz
 
Hozzászólások: 11
Csatlakozott: 2009. február 20., péntek 14:51

Re: desktop terminatelistener

HozzászólásSzerző: tamasaz » 2009. július 3., péntek 8:23

Most már működik.

Sub kilep
dim oDesk as object
dim oList as object

oDesk = StarDesktop
oList = CreateUnoListener( "vege_" , "com.sun.star.frame.XTerminateListener" )

oDesk.addTerminateListener(oList)

oDesk.terminate

end sub

sub vege_queryTermination( event )

msgbox " vége ? "
'raises TerminationVetoException
' itt kellene kiváltani a TerminationVetoException kivételt, hogy ne lépjen ki
' de hogyan ????
end sub

Köszönöm!
tamasaz
tamasaz
 
Hozzászólások: 11
Csatlakozott: 2009. február 20., péntek 14:51


Vissza: Testreszabás és kibővítés

Ki van itt

Jelenlévő fórumozók: nincs regisztrált felhasználó valamint 1 vendég

cron