desktop terminatelistener

[tamasaz]

Ü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]

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!