CreateUnoListener Function

Creates a Listener instance.

Many Uno Interfaces omogucuju vam da registrujete slu┼íatelja na posebne slu┼íatelj su─Źelje. to vam omogu─çuje slu┼íanje za odre─Ĺene doga─Ĺaje i pozvati odgovaraju─çu metodu slu┼íatelja. createunolistener funkcija ─Źeka pozvanog slusatelja , a zatim prolazi su─Źelje objekt koji su─Źelje podr┼żava. ovaj objekt je onda pro┼íao na na─Źin da se registrujete slu┼íatelja.

Syntax:

oListener = CreateUnoListener( Prefixname, ListenerInterfaceName )

Example:

Sljedeci primjer je baziran na Basic sustavu objekta.


Dim oListener
oListener = CreateUnoListener( "ContListener_","com.sun.star.container.XContainerListener" )

createunolistener metoda zahtijeva dva parametra. prvi je prefiks i detaljno je obja┼ínjena u nastavku. drugi parametar je potpuno kvalificirani naziv listener su─Źelje koje ┼żelite koristiti.

"addFooListener", where "Foo" is the Listener Interface Type, without the 'X'. In this example, the addContainerListener method is called to register the XContainerListener:


Dim oLib
oLib = BasicLibraries.Library1 ' Library1 must exist!
oLib.addContainerListener( oListener ) ' Register the listener

listener je sada registriran. kada se doga─Ĺaju, odgovaraju─çi listener poziva odgovaraju─çe metode iz com.sun.star.container.xcontainerlistener su─Źelja.

predmetak poziva registriranog slusatelja iz basic-potprograme. osnovni run-time sustav tra┼żi basic-potprograme ili funkcijama koje imaju naziv "prefixlistenermethode" i poziva ih kada je prona─Ĺena. ina─Źe, run-time pogre┼íka.

U sljedecem primjeru,Listener-Interface koristi sljedece metode:

U ovom primjeru , prefix is ContListener_. Sljedeci potprogrami moraju biti implementirani u osnovi:

vrsta doga─Ĺaja struktura koja sadr┼żi informacije o doga─Ĺaju postoji za svaki tip listener. kad se zove listener metoda, primjer ovogdoga─Ĺaj je pro┼íao na na─Źin kao parametar. osnovne listener metode tako─Ĺer se mogu nazvati kao objekti, tako dugo dok odgovaraju─çi parametar nije pro┼íao u sub deklaraciji. na primjer:


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

Ne morate ukljuciti parametre objekat dogadjaj ako objekat nije koristen:


:' Minimal implementacija of Sub disposing
Sub ContListener_disposing
End Sub
Warning Icon

Listener alwaysimplementiran da se izbjegne Basic run-time greske.


Please support us!