CreateUnoListener Function
የ አድማጭ ሁኔታ መፍጠሪያ
በርካታ የ Uno interfaces እርስዎን የ አድማጮችን ገጽታ መመዝገብ ያስችሎታል: ይህ እርስዎን የሚያስችለው መስማት ነው የ ተወሰነሁኔታ እና ተገቢውን የ ማድመጫ ዘዴ ለ መጥራት ነው: የ CreateUnoListener ተግባር ይጠብቃል የ ተጠራውን ገጽታዎች እና ገጽታውን እና እቃ ያሳልፋል ገጽታዎቹ የሚደግፉትን: ይህ እቃ ከዛ ያልፋል ወደ ዘዴ ለ መመዝገብ አድማጮችን
አገባብ:
oListener = CreateUnoListener( Prefixname, ListenerInterfaceName )
ለምሳሌ:
የሚቀጥለው ምሳሌ መሰረት ያደረገው የ Basic መጻህፍት ቤት እቃ ነው
Dim oListener
oListener = CreateUnoListener( "ContListener_","com.sun.star.container.XContainerListener" )
ለ መፍጠር የ Uno አድማጭ ዘዴ ሁለት ደንቦች ይፈልጋል: የ መጀመሪያው መነሻዎች ነው እና ከ ታች በኩል ይገለጻል: ሁለተኛው ደንብ ሙሉ የ አድማጭ ስም ገጽታ የሚያሟላ ነው እርስዎ መጠቀም የሚፈልጉትን
አድማጭ መጨመር አለበት ለ አሰራጩ እቃ: ይህን መፈጸም የሚቻለው ተገቢውን ዘዴ በ መጥራት ነው አድማጭ ለ መጨመር: እነዚህ ዘዴዎች ሁል ጊዜ ድግግሞሽ ይከተላሉ "addFooListener": ይህ "Foo" የ አድማጭ ገጽታ አይነት ነው: ያለ 'X'. በዚህ ምሳሌ ውስጥ: የ addContainerListener ዘዴ ይጠራል ለ መመዝገብ የ XContainerListener:
Dim oLib
oLib = BasicLibraries.Library1 ' Library1 must exist!
oLib.addContainerListener( oListener ) ' Register the listener
አድማጩ አሁን ተመዝግቧል: ሁኔታዎች በሚፈጠሩ ጊዜ: ተመሳሳይ አድማጮች ይጠራሉ ተገቢውን ዘዴ ከ com.sun.star.container.XContainerListener Interface.
መነሻ የ ተመዘገቡ አድማጮችን ይጠራል ከ Basic-subroutines ውስጥ: የ Basic ማስኬጃ-ጊዜ ስርአት የሚፈልገው የ Basic-subroutines ወይንም ተግባሮች ነው የ ተሰየሙ "PrefixListenerMethode" እና ይጠራቸዋል በሚገኙ ጊዜ: ያለ በለዚያ የ ማስኬጃ-ጊዜ ስህተት ይፈጠራል
በዚህ ምሳሌ ውስጥ የ አድማጭ-ገጽታ የሚጠቀመው የሚቀጥሉትን ዘዴዎች ነው:
-
በ ማስወገድ ላይ:
-
አድማጮችን መሰረት ያደረገ ገጽታ (com.sun.star.lang.XEventListener): ለሁሉም አድማጮች ገጽታዎች መሰረት ያደረገ ገጽታ
-
አካል አስገብተዋል:
-
ዘዴ ለ com.sun.star.container.XContainerListener interface
-
አካል አስወግደዋል:
-
ዘዴ ለ com.sun.star.container.XContainerListener interface
-
አካል ቀይረዋል:
-
ዘዴ ለ com.sun.star.container.XContainerListener interface
በዚህ ምሳሌ ውስጥ የ መነሻዎች ለ ContListener_. የሚቀጥሉት ንዑስ አሰራሮች መፈጸም አለባቸው በ Basic:
-
ContListener_disposing
-
ContListener_elementInserted
-
ContListener_elementRemoved
-
ContListener_elementReplaced
የ ሁኔታ አካል አይነት የያዘ መረጃ ስለ ሁኔታ መኖር ለ ሁሉም አድማጮች አይነት: የ አድማጮች ዘዴ በሚጠራ ጊዜ: ወዲያውኑ ይህ ሁኔታ ያልፋል ወደ ዘዴው በ እንደ ደንብ: የ Basic አድማጮች ዘዴ እንዲሁም እነዚህን ሁኔታ መጥራት ይችላል: የገቢው ደንብ ካለፈ በ ንዑስ መግለጫ ውስጥ: ለምሳሌ:
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
You do not need to include the parameter of an event object if the object is not used:
' አነስተኛ መፈጸሚያ ለ ንዑስ ማስወገጃ
Sub ContListener_disposing
End Sub
የ አድማጭ ዘዴ እንዲኖረው ያስፈልጋል ሁል ጊዜ መፈጸሚያ ለ ማስወገድ የ Basic ማስኬጃ-ጊዜ ስህተቶች