Opening a Dialog With Basic

གསར་འཛུགས་བྱས་པའི་གླེང་སྒྲོམ་གནས་པའི་ LibreOffice BASIC སྒེའུ་ཁུང་ནང་ གླེང་སྒྲོམ་དེ་གནས་པའི་སྨོ་ལིང་གི་མིང་འདེམས་གཞིའི་ཁཱ་ལ་རྐྱང་རྡེབ་ཀྱིས་གླེང་སྒྲོམ་དེ་གའི་རྩོམ་སྒྲིག་ཆས་ཉར་ཚགས་བྱ་ཐུབ། མིང་འདེམས་གཞིའི་ཁཱ་དེ་སྒེའུ་ཁུང་མཐིལ་ལ་གནས་ཡོད།

གཤམ་གསལ་ཚབ་ཨང་ནང་འཇུག་བྱད་པ་དང་ མིང་ལ་ 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ལ་རྐྱང་རྡེབ་བྱ།