CreateUnoListener Function
āϞāĻŋāϏā§āύāĻžāϰā§āϰ āĻĻā§āώā§āĻāĻžāύā§āϤ āϤā§āϰāĻŋ āĻāϰāĻž āĻšā§āĨ¤
āĻ āύā§āĻ Uno āĻāύā§āĻāĻžāϰāĻĢā§āϏ āĻāĻāĻāĻŋ āĻŦāĻŋāĻļā§āώ āϞāĻŋāϏā§āύāĻžāϰ āĻāύā§āĻāĻžāϰāĻĢā§āϏ⧠āϞāĻŋāϏā§āύāĻžāϰ āύāĻŋāύā§āϧāύ āĻāϰāϤ⧠āĻĻā§āϝāĻŧāĨ¤ āĻāĻāĻŋ āĻāĻĒāύāĻžāĻā§ āϏā§āύāĻŋāϰā§āĻĻāĻŋāώā§āĻ āĻāĻā§āύā§āĻ āĻļā§āύāϤ⧠āĻ āύā§āĻŽā§āĻĻāύ āĻĻā§āϝāĻŧ āĻāĻŦāĻ āĻāĻĒāϝā§āϞā§āϤ āϞāĻŋāϏā§āύāĻžāϰ āĻĒāĻĻā§āϧāϤāĻŋ āĻāϞ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤ CreateUnoListener āĻĢāĻžāĻāĻļāύāĻāĻŋ āĻāϞ āĻāϰāĻž āϞāĻŋāϏā§āύāĻžāϰ āĻāύā§āĻāĻžāϰāĻĢā§āϏā§āϰ āĻāύā§āϝ āĻ āĻĒā§āĻā§āώāĻž āĻāϰ⧠āĻĨāĻžāĻā§ āĻāĻŦāĻ āϤāĻžāϰāĻĒāϰ āĻāύā§āĻāĻžāϰāĻĢā§āϏ⧠āĻāĻāĻāĻŋ āĻŦāϏā§āϤ⧠āĻĒāĻžāϏ āĻāϰ⧠āϝāĻž āĻāύā§āĻāĻžāϰāĻĢā§āϏ āϏāĻŽāϰā§āĻĨāύāĨ¤ āĻŦāϏā§āϤā§āĻāĻŋ āϤāĻžāϰāĻĒāϰ āϞāĻŋāϏā§āύāĻžāϰ āύāĻŋāĻŦāύā§āϧāύā§āϰ āĻĒāĻĻā§āϧāϤāĻŋāϤ⧠āĻĒāĻžāϏ āĻāϰāĻž āĻšāϝāĻŧāĨ¤
oListener = CreateUnoListener( Prefixname, ListenerInterfaceName )
āύāĻŋāĻā§āϰ āĻāĻĻāĻžāĻšāϰāĻŖāϏāĻŽā§āĻš āĻŦā§āϏāĻŋāĻ āϞāĻžāĻāĻŦā§āϰā§āϰāĻŋ āĻāĻŋāϤā§āϤāĻŋāĻ āĨ¤
Dim oListener
oListener = CreateUnoListener( "ContListener_","com.sun.star.container.XContainerListener" )
CreateUnoListener āĻŽā§āĻĨāĻĄā§āϰ āĻĻā§āĻāĻāĻŋ āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ āĻĒā§āϰāϝāĻŧā§āĻāύāĨ¤ āĻĒā§āϰāĻĨāĻŽāĻāĻŋ āĻāĻāĻāĻŋ āĻĒā§āϰāĻŋāĻĢāĻŋāĻā§āϏ āĻāĻŦāĻ āύāĻŋāĻā§ āĻāϰ āĻŦāĻŋāĻļāĻĻ āĻŦāϰā§āĻŖāύāĻž āϰā§ā§āĻā§āĨ¤ āĻĻā§āĻŦāĻŋāϤā§āϝāĻŧ āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰāĻāĻŋ āϞāĻŋāϏā§āύāĻžāϰ āĻāύā§āĻāĻžāϰāĻĢā§āϏā§āϰ āϏāĻŽā§āĻĒā§āϰā§āĻŖ āĻāĻĒāϝā§āĻā§āϤ āύāĻžāĻŽ āϝāĻž āĻāĻĒāύāĻŋ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻāϰāϤ⧠āĻāĻžāύāĨ¤
āĻŦā§āϰāĻĄāĻāĻžāϏā§āĻ āĻŦāϏā§āϤā§āϤ⧠āĻ āĻŦāĻļā§āϝāĻ āϞāĻŋāϏā§āύāĻžāϰāĻāĻŋ āϝā§āĻā§āϤ āĻāϰāϤ⧠āĻšāĻŦā§āĨ¤ āĻāĻāĻŋ āϏāĻŽā§āĻĒāύā§āύ āĻāϰāϤ⧠āĻāĻāĻāĻŋ āϞāĻŋāϏā§āύāĻžāϰ āϝā§āĻā§āϤ āĻāϰāϤ⧠āĻāĻĒāϝā§āĻā§āϤ āĻĒāĻĻā§āϧāϤāĻŋ āĻāϞ āĻāϰāĻž āĻāϰāĻž āĻšāϝāĻŧāĨ¤ āĻāĻ āĻĒāĻĻā§āϧāϤāĻŋāϏāĻŽā§āĻš āϏāĻŦāϏāĻŽāϝāĻŧ "addFooListener" āĻĒā§āϝāĻžāĻāĻžāϰā§āύāĻāĻŋ āĻ āύā§āϏāϰāĻŖ āĻāϰ⧠āĻĨāĻžāĻā§, āϝā§āĻāĻžāύ⧠"Foo" āĻšāϞ⧠'X' āĻŦā§āϝāϤā§āϤ āϞāĻŋāϏā§āύāĻžāϰ āĻāύā§āĻāĻžāϰāĻĢā§āϏ āϧāϰāύāĨ¤ āĻāĻ āĻāĻĻāĻžāĻšāϰāĻŖā§, addContainerListener āĻĒāĻĻā§āϧāϤāĻŋ XContainerListener āύāĻŋāĻŦāύā§āϧāύā§āϰ āĻāύā§āϝ āĻāϞ āĻāϰāĻž āĻšā§:
Dim oLib
oLib = BasicLibraries.Library1 ' Library1 must exist!
oLib.addContainerListener( oListener ) ' Register the listener
āϞāĻŋāϏā§āύāĻžāϰ āύāĻŋāĻŦāύā§āϧāĻŋāϤāĨ¤ āϝāĻāύ āĻāĻāĻāĻŋ āĻāĻā§āύā§āĻ āϏāĻāĻāĻāĻŋāϤ āĻšā§, āϏāĻāĻļā§āϞāĻŋāώā§āĻ āϞāĻŋāϏā§āύāĻžāϰ com.sun.star.container.XContainerListener āĻāύā§āĻāĻžāϰāĻĢā§āϏ āĻĨā§āĻā§ āĻāĻĒāϝā§āĻā§āϤ āĻŽā§āĻĨāĻĄāĻāĻŋ āĻāϞ āĻāϰā§āĨ¤
āĻŦā§āϏāĻŋāĻ-āϏāĻžāĻŦāϰā§āĻāĻŋāύ āĻĨā§āĻā§ āύāĻŋāĻŦāύā§āϧāĻŋāϤ āϞāĻŋāϏā§āύāĻžāϰāĻā§ āĻĒā§āϰāĻŋāĻĢāĻŋāĻā§āϏā§āϰ āϏāĻžāĻšāĻžāϝā§āϝ⧠āĻāϞ āĻāϰāĻž āĻšā§āĨ¤ āĻŦā§āϏāĻŋāĻ āϰāĻžāύ āĻāĻžāĻāĻŽ āĻĒāĻĻā§āϧāϤāĻŋāĻāĻŋ āĻŦā§āϏāĻŋāĻ-āϏāĻžāĻŦāϰā§āĻāĻŋāύ āĻ āĻĨāĻŦāĻž āĻĢāĻžāĻāĻļāύā§āϰ āĻāύā§āϝ āĻ āύā§āϏāύā§āϧāĻžāύ āĻāϰ⧠āĻĨāĻžāĻā§ āϝāĻžāϰ āύāĻžāĻŽ "PrefixListenerMethode" āĻāĻŦāĻ āĻā§āĻāĻā§ āĻĒāĻžāĻāϝāĻŧāĻž āĻā§āϞ⧠āĻāĻĻā§āϰāĻā§ āĻāϞ āĻāϰāĻž āĻšā§āĨ¤ āĻ āύā§āϝāĻĨāĻžāϝāĻŧ, āĻāĻāĻāĻŋ āϰāĻžāύ āĻāĻžāĻāĻŽ āϤā§āϰā§āĻāĻŋ āϏāĻāĻāĻāĻŋāϤ āĻšā§āĨ¤
āĻāĻ āĻāĻĻāĻžāĻšāϰāĻŖā§, āϞāĻŋāϏā§āύāĻžāϰ-āĻāύā§āĻāĻžāϰāĻĢā§āϏ āύāĻŋāĻā§āϰ āĻŽā§āĻĨāĻĄāĻāĻŋ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻāϰā§:
-
āϏāĻŽā§āĻĒāύā§āύ āĻāϰāĻž āĻšāĻā§āĻā§:
-
āϞāĻŋāϏā§āύāĻžāϰ āĻŦā§āϏ āĻāύā§āĻāĻžāϰāĻĢā§āϏ (com.sun.star.lang.XEventListener): āϏāĻŦ āϞāĻŋāϏā§āύāĻžāϰ āĻāύā§āĻāĻžāϰāĻĢā§āϏā§āϰ āĻāύā§āϝ āĻŦā§āϏ āĻāύā§āĻāĻžāϰāĻĢā§āϏ
-
elementInserted:
-
Method of the com.sun.star.container.XContainerListener interface
-
elementRemoved:
-
Method of the com.sun.star.container.XContainerListener interface
-
elementReplaced:
-
Method of the com.sun.star.container.XContainerListener interface
āĻāĻ āĻāĻĻāĻžāĻšāϰāĻŖā§, āĻĒā§āϰāĻŋāĻĢāĻŋāĻā§āϏāĻāĻŋ āĻšāϞ⧠ContListener_āĨ¤ āύāĻŋāĻā§āϰ āϏāĻžāĻŦāϰā§āĻāĻŋāύāĻāĻŋ āĻ āĻŦāĻļā§āϝāĻ āĻŦā§āϏāĻŋāĻā§ āĻŦāĻžāϏā§āϤāĻŦāĻžā§āύ āĻāϰāϤ⧠āĻšāĻŦā§:
-
ContListener_disposing
-
ContListener_elementInserted
-
ContListener_elementRemoved
-
ContListener_elementReplaced
āĻāĻāĻāĻŋ āĻāĻā§āύā§āĻā§āϰ āĻāĻ āύā§āϰ āĻāĻžāĻāĻĒ āϝāĻž āĻĒā§āϰāϤāĻŋāĻāĻŋ āϞāĻŋāϏā§āύāĻžāϰ āĻāĻžāĻāĻĒā§āϰ āĻāύā§āϝ āĻŦāĻŋāĻĻā§āϝāĻŽāĻžāύ āĻāĻā§āύā§āĻ āϏāĻŽā§āĻĒāϰā§āĻāĻŋāϤ āϤāĻĨā§āϝ āϧāĻžāϰāĻŖ āĻāϰā§āĨ¤ āϝāĻāύ āĻāĻāĻāĻŋ āϞāĻŋāϏā§āύāĻžāϰ āĻŽā§āĻĨāĻĄ āĻāϞ āĻāϰāĻž āĻšāϝāĻŧ, āĻāĻ āĻāĻā§āύā§āĻā§āϰ āĻāĻāĻāĻŋ āĻĻā§āώā§āĻāĻžāύā§āϤ āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ āĻšāĻŋāϏā§āĻŦā§ āĻāĻāĻāĻŋ āĻŽā§āĻĨāĻĄā§ āĻĒā§āϰā§āϰāĻŋāϤ āĻšā§āĨ¤ āĻŽā§āϞāĻŋāĻ āϞāĻŋāϏā§āύāĻžāϰ āĻŽā§āĻĨāĻĄ āĻāĻ āĻāĻā§āύā§āĻ āĻŦāϏā§āϤā§āĻā§ āĻāϞ āĻāϰāϤ⧠āĻĒāĻžāϰā§, āϝāϤāĻā§āώāύ āĻĒāϰā§āϝāύā§āϤ āύāĻž āĻāĻĒāϝā§āĻā§āϤ āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ 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
āĻŦā§āϏāĻŋāĻ āϰāĻžāύ-āĻāĻžāĻāĻŽ āϤā§āϰā§āĻāĻŋ āĻ āĻā§āϰāĻžāĻšā§āϝ āĻāϰāϤ⧠āϞāĻŋāϏā§āύāĻžāϰ āĻŽā§āĻĨāĻĄā§āϰ āĻ āĻŦāĻļā§āϝāĻ āϏāĻŦāϏāĻŽāϝāĻŧ āĻŦāĻžāϏā§āϤāĻŦāĻžāϝāĻŧāύ āĻāϰāϤ⧠āĻšāĻŦā§āĨ¤