Funkcija CreateUnoListener

Ustvari instanco prisluškovalca (Listener).

┼átevilni vmesniki Uno omogo─Źajo registracijo prislu┼íkovalcev za poseben prislu┼íkovalni vmesnik. Tako lahko prislu┼íkujete dolo─Źenim dogodkom in spro┼żite ustrezno metodo prislu┼íkovalca. Funkcija CreateUnoListener ─Źaka na klicani prislu┼íkovalni vmesnik in nato posreduje vmesniku predmet, ki ta vmesnik podpira. Ta predmet se potem posreduje metode za registracijo prislu┼íkovalca.

Skladnja:

oPrisluskovalec = CreateUnoListener( PrefixIme, ImePrislVmesnika )

Primer:

Naslednji primer se naslanja na predmet iz knji┼żnice Basic.


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

Metoda CreateUnoListener zahteva dva parametra. Prvi parameter je predpona in ga bomo razlo┼żili natan─Źneje spodaj. Drugi parameter je popolnoma kvalificirano ime prislu┼íkovalnega vmesnika, ki ga ┼żelite uporabljati.

Prislu┼íkovalca (Listener) moramo potem dodati predmetu Oddajnik (Broadcaster). V ta namen moramo poklicati ustrezno metodo za dodajanje Prislu┼íkovalcev. Metode vedno imenujemo po vzorcu ┬╗addTaleListener┬ź, kjer je ┬╗Tale┬ź vrsta prislu┼íkovalnega vmesnika brez 'X'. V tem primeru pokli─Źemo metodo addContainerListener, ki registrira XContainerListener:


Dim oLib
oLib = BasicLibraries.Library1 ' Library1 mora obstajati!
oLib.addContainerListener( oListener ) ' Registriraj prisluškovalca

Prislu┼íkovalec je sedaj registriran. Ko pride do dogodka, ustrezni Prislu┼íkovalec pokli─Źe zahtevano metodo v vmesniku com.sun.star.container.XContainerListener.

Prefix kli─Źe registrirane Prislu┼íkovalce v procedurah Basic. Sistem Basic za izvajanje i┼í─Źe procedure ali funkcije, ki imajo ime ┬╗PrefixListenerMethode┬ź in jih pokli─Źe, ─Źe jih odkrije. V nasprotnem primeru pride do napake med izvajanjem.

V naslednjem primeru uporablja prisluškovalni vmesnik naslednje metode:

Naslednji primer uporablja prefiks ContListener_. Naslednje procedure morajo zato biti implementirane v Basicu:

Vrsta strukture za dogodek, ki vsebuje informacijo o dogodku, obstaja za vsako vrsto prislu┼íkovalca. Kadar se kli─Źe prislu┼íkoval─Źevo metodo, dobi metoda kot parameter instanco tega dogodka. Metode za prislu┼íkovalce v Basicu lahko tudi kli─Źejo te dogodkovne predmete, ─Źe deklaracija Sub nudi ustrezen parameter. Primer:


Sub ContListener_disposing( oEvent )
    MsgBox "disposing ÔÇô zapiramo"
    MsgBox oEvent.Dbg_Properties
End Sub
 
Sub ContListener_elementInserted( oEvent )
    MsgBox "elementInserted ÔÇô element dodan"
    MsgBox oEvent.Dbg_Properties
End Sub
 
Sub ContListener_elementRemoved( oEvent )
    MsgBox "elementRemoved ÔÇô element odstranjen"
    MsgBox oEvent.Dbg_Properties
End Sub
 
Sub ContListener_elementReplaced( oEvent )
    MsgBox "elementReplaced ÔÇô element zamenjan"
    MsgBox oEvent.Dbg_Properties
End Sub

─îe predmeta ne uporabljate, parametra za dogodkovni predmet ni potrebno vklju─Źiti:


' Minimalna implementacija Sub disposing
Sub ContListener_disposing
End Sub
Ikona opozorila

Prisluškovalne metode morate vedno implementirati, da se izognete napakam med izvajanjem Basica.


Podprite nas!