CreateUnoListener Function
αααααΎαβααααα» Listener αα½αΒ α
α ααα»α βαααααΆαα Uno ααΆβα αααΎαβα’αΆα βα²ααβα’αααβα α»αβαααααβα’αααβααααΆααβααΎβα ααα»α βαααααΆααβα’αααβααααΆααβαα·αααβαα½αΒ α αααβα’αα»ααααΆαβα²ααβα’αααβααααΆααβααααΉαααα·ααΆαααβααΆααααΆαα αα·αβα α βαα·ααΈααΆαααααβα’αααβααααΆααβαααβααααααΒ α α’αα»αααα CreateUnoListener αααα αΆαβα ααα»α βαααααΆααβαααβααΆαβα α α αΎαβαααααΆααβααβα α»α βααααα»βα ααα»α βαααααΆααβαααβα ααα»α βαααααΆααβααΆααααΒ α αααααΆααβααβααααα»βαααββααααΌαβααΆαβα α»α βαα βαα·ααΈααΆαααααβααΎααααΈβα α»αβαααααβα’αααβααααΆααΒ α
ααΆαααβααααααα α
oListener = CreateUnoListener( Prefixname, ListenerInterfaceName )
α§ααΆα ααα α
α§ααΆα αααβααΌα βααΆαβαααααβααΉαβααα’ααβααΎβααααα»βαααααΆααα BasicΒ α
Dim oListener
oListener = CreateUnoListener( "ContListener_","com.sun.star.container.XContainerListener" )
αα·ααΈααΆααααα CreateUnoListener ααααΌαβααΆαββαααΆαααΆααααααβααΈαΒ α ααααΌαβααΊβααΆβαα»ααααα α αΎαβααΉαβααααΌαβααΆαβααααααβαααα»αβααα ααααΈβαααα’α·αβααΆαβααααα α αααΆαααΆααααααβααΈβααΈαβααΊβααΆβαααααβαααβαααβααβα ααα»α ββαααααΆαα Listener αααβα’αααβα ααβααααΎΒ α
αααααΆααβαα Listener ααααΌαβααβααααααβαα βααααα» BroadcasterΒ α αααβααααΌαβααΆαβββααααΎββαααβα α βαα·ααΈααΆαααααβαααααα αααααΆααβαααααα Listener αα½α α αα·ααΈααΆαααααβααΆααβαααβαααααβααααΎβααΆαβααααΆα "addFooListener" ααα "Foo" ααΊβααΆβααααααβααααβαααααΆαα Listener αααβααααΆα 'X'Β α αααα»αβα§ααΆα αααβααα αα·ααΈααΆααααα addContainerListener ααααΌαβααΆαβα α βααΎααααΈβα α»αβααααα XContainerListener α
Dim oLib
oLib = BasicLibraries.Library1 ' Library1 must exist!
oLib.addContainerListener( oListener ) ' Register the listener
α₯α‘αΌαβααα Listener ααααΌαβααΆαβα α»αβαααααΒ α αα βαααβααααΉαααα·ααΆαααβαα½αβααΎαβα‘αΎα Listener αααβααααΌαβααααΆβααΉαβα α βαα·ααΈααΆαααααβαααβααααααβααΈβααααβαααααΆαα com.sun.star.container.XContainerListenerΒ α
αα»αααααβα α Listeners αααβααΆαβα α»αβαααααβααΈβααααααβααΆαβαα BasicΒ α ααααααααβαααβαααβαααα Basic αααααααβααααααβααΆαβαα Basic α¬βα’αα»ααααβαααβααΆαβααααα "PrefixListenerMethode" αα·αβα α βαα½αβααΆβαα βαααβααβααΎα α ααΎβαα»αβαααβααα ααα α»αβαααβαααβαα½αβααΎαβα‘αΎαΒ α
αααα»αβα§ααΆα αααββααα ααααβαααααΆαα Listener ααααΎβαα·ααΈααΆαααααβααΌα βααΆαβααααα α
-
disposing:
-
α ααα»α βαααααΆααβααΌαααααΆα Listener (com.sun.star.lang.XEventListener) α α ααα»α βαααααΆααβααΌαααααΆαβαααααΆααβα ααα»α βαααααΆαα Listener ααΆααα’ααΒ α
-
elementInserted:
-
αα·ααΈααΆαααααβααβα ααα»α ββαααααΆαα com.sun.star.container.XContainerListener
-
elementRemoved:
-
αα·ααΈααΆαααααβααβα ααα»α ββαααααΆαα com.sun.star.container.XContainerListener
-
elementReplaced:
-
αα·ααΈααΆαααααβααβα ααα»α ββαααααΆαα com.sun.star.container.XContainerListener
αααα»αβα§ααΆα αααβααα αα»αααααβααΊ ContListener_Β α ααΌα ααααβααααααβααΆαβααβααΌα βααΆαβααααα ααααΌαβααβααααα·ααααα·βαααα»α Basic α
-
ContListener_disposing
-
ContListener_elementInserted
-
ContListener_elementRemoved
-
ContListener_elementReplaced
ααααααββαα ααΆβααααααααβααααΉαααα·ααΆαααβαα½α αααβααΆαβααααααΆαβα’αααΈβααααΉαααα·ααΆαααβαα½α αααββααΆαβααααΆααβαααααΆααβαααααβαααααα ListenerΒ α αα βαααβαα·ααΈααΆααααα Listener αα½αβααααΌαβααΆαβα α ααααα»βαα½αβααβααααΉαααα·ααΆαααβααα ααΉαβααααΌαβααΆαβα α»α βαα βαα·ααΈααΆαααααβααΆβαααΆαααΆααααααβαα½αΒ α αα·ααΈααΆααααα Listener αααα Basic ααβα’αΆα βα α βααααα»βααααΉαααα·ααΆαααβααΆααβααα α²ααβααβαααΆαααΆααααααβαααβααααααβααααΌαβααΆαβα α»α βαααα»αβααΆαβαααααΆα SubΒ α α§ααΆα ααα α
Sub ContListener_disposing( oEvent )
MsgBox "disposing"
MsgBox oEvent.Dbg_Properties
End Sub
Sub ContListener_elementInserted( oEvent )
MsgBox "elementInserted"
MsgBox oEvent.Dbg_Properties
End Sub
Sub ContListener_elementRemoved( oEvent )
MsgBox "elementRemoved"
MsgBox oEvent.Dbg_Properties
End Sub
Sub ContListener_elementReplaced( oEvent )
MsgBox "elementReplaced"
MsgBox oEvent.Dbg_Properties
End Sub
α’αααβαα·αβα αΆαααΆα αβαα½αβαααα αΌαβαααΆαααΆααααααβααβααααα»βααααΉαααα·ααΆααα ααααα·αβααΎβααααα»βαα·αβααααΌαβααΆαβααααΎ α
' Minimal implementation of Sub disposing
Sub ContListener_disposing
End Sub
αα·ααΈααΆααααα Listener αααβαα ααααΌαβααΆαβααααα·ααααα·βααΎααααΈβα ααααΆαβααα α»αβαααβαααβαααα BasicΒ α