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
āĻŦā§āĻ¸āĻŋāĻ āĻ°āĻžāĻ¨-āĻāĻžāĻāĻŽ āĻ¤ā§āĻ°ā§āĻāĻŋ āĻ āĻā§āĻ°āĻžāĻšā§āĻ¯ āĻāĻ°āĻ¤ā§ āĻ˛āĻŋāĻ¸ā§āĻ¨āĻžāĻ° āĻŽā§āĻĨāĻĄā§āĻ° āĻ āĻŦāĻļā§āĻ¯āĻ āĻ¸āĻŦāĻ¸āĻŽāĻ¯āĻŧ āĻŦāĻžāĻ¸ā§āĻ¤āĻŦāĻžāĻ¯āĻŧāĻ¨ āĻāĻ°āĻ¤ā§ āĻšāĻŦā§āĨ¤