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 αž”αŸ’αžšαžΎβ€‹αžœαž·αž’αžΈαžŸαžΆαžŸαŸ’αžαŸ’αžšβ€‹αžŠαžΌαž…β€‹αžαžΆαž„β€‹αž€αŸ’αžšαŸ„αž˜ αŸ–

αž€αŸ’αž“αž»αž„β€‹αž§αž‘αžΆαž αžšαžŽαŸβ€‹αž“αŸαŸ‡ αž”αž»αž–αŸ’αžœαž”αž‘β€‹αž‚αžΊ ContListener_Β αŸ” αžŠαžΌαž…αŸ’αž“αŸαŸ‡β€‹αž‘αž˜αŸ’αžšαž„αŸ‹β€‹αž€αžΆαžšβ€‹αžšαž„β€‹αžŠαžΌαž…β€‹αžαžΆαž„β€‹αž€αŸ’αžšαŸ„αž˜ αžαŸ’αžšαžΌαžœβ€‹αžαŸ‚β€‹αž”αŸ’αžšαžαž·αž”αžαŸ’αžαž·β€‹αž€αŸ’αž“αž»αž„ Basic αŸ–

αž”αŸ’αžšαž—αŸαž‘β€‹β€‹αžšαž…αž“αžΆβ€‹αžŸαž˜αŸ’αž–αŸαž“αŸ’αž’β€‹αž–αŸ’αžšαžΉαžαŸ’αžαž·αž€αžΆαžšαžŽαŸβ€‹αž˜αž½αž™ αžŠαŸ‚αž›β€‹αž˜αžΆαž“β€‹αž–αŸαžαŸŒαž˜αžΆαž“β€‹αž’αŸ†αž–αžΈβ€‹αž–αŸ’αžšαžΉαžαŸ’αžαž·αž€αžΆαžšαžŽαŸβ€‹αž˜αž½αž™ αžŠαŸ‚αž›β€‹β€‹αž˜αžΆαž“β€‹αžŸαŸ’αžšαžΆαž”αŸ‹β€‹αžŸαž˜αŸ’αžšαžΆαž”αŸ‹β€‹αž‚αŸ’αžšαž”αŸ‹β€‹αž”αŸ’αžšαž—αŸαž‘ 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Β αŸ”