CreateUnoListener Function

ཉན་པ་པོའི་གྱི་དངོས་དཔེ་ཞིག་འཛུགས།

Uno མཐུད་ཁ་དུ་མས་ཁྱེད་ཀྱིས་དམིགས་འཛུགས་ཀྱི་མྱུལ་ཉན་ཆས་མཐུད་ཁའི་ཐོག་མྱུལ་ཉན་ཆས་ཐོ་བཀོད་བྱས་ཆོག་པར་བཤད་ འདི་ལྟར་དམིགས་འཛུགས་ཀྱི་བྱ་ལས་མྱུལ་ཉན་ཐུབ་

བརྡ་འཕྲོད་


oListener = CreateUnoListener( Prefixname, ListenerInterfaceName )

དཔེ་གཞི་

The following example is based on a Basic library object.


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

CreateUnoListener ཐབས་ཤིས་ལ་རྟེན་གྲངས་གཉིས་དགོས་ རྟེན་གྲངས་དང་པོ་ནི་མགོ་སྦྱར་ཞིག་ཡིན་པས་གཤམ་དུ་དེ་སྐོར་ངོ་སྤྲོད་ཞིབ་ཕྲ་བྱའོ་ རྟེན་གྲངས་གཉིས་པ་ནི་སྤྱོད་དགོས་པའི་ཉན་པ་པོའི་མཐུད་ཁའི་ཁྱོན་ཡོངས་ཚད་བཀག་གི་མིང་།

དེ་རྗེས་ཉན་པ་པོ་ཉིད་རླུང་འཕྲིན་བྱ་ཡུལ་ནང་འཇུག་དགོས་ ལྟོས་བཅས་ཀྱི་ཐབས་ཤིས་ཁོལ་སྤྱོད་བྱས་པ་བརྒྱུད་ཉན་པ་པོ་འཇུག་ན་ལམ་སེང་བཀོལ་སྤྱོད་འདི་ཉིད་མངོན་གྱུར་ཐུབ། འབྲེལ་ཡོད་ཀྱི་ཐབས་ཤེས་ནི་རྒྱུན་དུ་"addFooListener"མ་ཚུལ་རྒྱབ་ཏུ་གནས་དེའི་ནང་ནས་"Foo"ཉན་པ་པོའི་མཐུད་ཁའི་རིགས་ཡིན་ (མེད་"X")དཔེ་གཞི་འདིའི་ནང་ addContainerListenerཁོལ་སྤྱོད་ཀྱི་ཐབས་ཤེས་ཐོན་ནས་ XContainerListenerཐོ་བཀོད་བྱ་


Dim oLib
oLib = BasicLibraries.Library1 ' Library1 ངེས་པར་དུ་གནས་དགོས།
oLib.addContainerListener( oListener ) ' ཉན་པོའི་ཐོ་བཀོད་

འདི་ལྟར་གྱིས་མྱུལ་ཉན་ཆས་ཐོ་བཀོད་ཟིན་ བྱ་ལས་ཐོན་པའི་སྐབས་ལྟོས་བཅས་ཀྱི་མྱུལ་ཉན་ཆས་ཀྱིས་ com.sun.star.container.XContainerListener མཐུད་ཁ་ནས་འོས་མཚམས་ཀྱི་ཐབས་ཤེས་ཁོལ་སྤྱོད་ཐུབ།

མགོ་སྦྱར་གྱིས་Basic ཡན་ལག་དཔེ་རིམ་ནས་ཐོ་བཀོད་ཟིན་པའི་ཉན་པ་པོ་ཁོལ་སྤྱོད་བྱེད་Basic འཁོར་རྒྱུགས་སྐབས་མ་ལག་གིས་མིང་ལ་"PrefixListenerMethode"ཟེར་བའི་ Basic ཡིན་ལག་དཔེ་རིམ་མམ་རྟེན་གྲངས་བཤེར་འཚོལ་དང་ཁོལ་སྤྱོད་བྱེད། གལ་སྲིད་ལེགས་སྒྲུབ་མ་བྱུང་ན་འཁོང་རྒྱུགས་སྐབས་ནོར་འཁྲུལ་ཐོན།

དཔེ་གཞི་འདིའི་ནང་ ཉན་པ་པོའི་་གྱི་མཐུད་ཁར་གཤམ་གྱི་ཐབས་ཤེས་སྤྱད་ཡོད་

དཔེ་གཞི་འདིའི་ནང་མགོ་སྦྱར་ནི་ ContListener_ཡིན་དེར་བརྟེན་ 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

གལ་སྲིད་བྱ་ལས་བྱ་ཡུལ་མི་སྤྱད་ན་བྱ་ཡུལ་ཁུགས་གྲངས་བསྡུ་མི་དགོས་


' ཆུང་ཤོས་ཀྱི་ཡན་ལག་བྱ་རིམ་བཅོས་སྒྲིག་མངོན་གྱུར་
Sub ContListener_disposing
End Sub
ཐ་ཚིག་རིས་རྟགས་

རྟག་ཏུ་ངེས་པར་ཉན་པ་པོའི་ཐབས་ཤེས་མངོན་གྱུར་དགོས་ དེ་ནི་ Basic འཁོང་རྒྱུགས་སྐབས་ནོར་འཁྲུལ་འགོག་ཕྱིར་རོ་


Please support us!