Opening a Dialog With Basic

ཁྱོད་ཀྱིས་ཌའི་ལོག་གསར་བསྐྲུན་འབད་བའི་ཝིན་ཌོ་་གཞི་རྟེན་LibreOffice འདི་ནང་ལུ་ཌའི་ལོག་ཞུན་དག་པ་འདི་ཌའི་ལོག་འདི་འགན་སྤྲོད་པའི་ཚད་གཞིའི་མཆོང་ལྡེའི་མིང་འདི་ཨེབ་གཏང་འབད་བཀོག་བཞག མཆོང་ལྡེའི་མིང་འདི་ཝིན་ཌོའི་མཇུག་ལུ་ཡོད།

ཡན་ལག་རྒྱུན་ལས་འབོ་ཡོད་མི་གི་དོན་ལུ་འོག་གི་ Dialog1Show ཨང་རྟགས་འདི་བཙུགས། འ་ནི་དཔེ་འདི་ནང་ལུ་ ཁྱོད་ཀྱིས་གསར་བསྐྲུན་འབད་མི་ཌའི་ལོག་འདིའི་མིང་ "Dialog1" ཨིན:


Sub Dialog1Show
    With GlobalScope.BasicLibraries
       If Not .IsLibraryLoaded("Tools") Then .LoadLibrary("Tools")
    End With
    oDialog1 = Tools.ModuleControls.LoadDialog("Standard", "Dialog1")
    oDialog1.Execute()
End Sub

"LoadDialog" ལག་ལེན་མ་འཐབ་པར་་སྦེ་ ཁྱོད་ཀྱིས་ཨང་རྟགས་འདི་རྗེས་སུ་འབྲང་ཡོདཔ་བཟུམ་སྦེ་འབོ་བཏུབ:


Sub Dialog1Show
    DialogLibraries.LoadLibrary("Standard")
    oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
    oDialog1.Execute()
End Sub

"Dialog1" ཁྱོད་ཀྱིས་འ་ནི་ཨང་རྟགས་ལག་ལེན་འཐབ་ད་ཁ་ཕྱེཝ་ཨིན། ཌའི་ལོག་ཁ་བསྡམས་ནིའི་དོན་ལུ་འདིའི་མགོ་མིང་ཕྲ་རིང་་གུའི་ (x)ཁ་བསྡམས་ཨེབ་རྟ་འདི་ཨེབ་གཏང་།

Please support us!