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) αž“αŸ…β€‹αž›αžΎβ€‹αžšαž”αžΆαžšβ€‹αž…αŸ†αžŽαž„αž‡αžΎαž„β€‹αžšαž”αžŸαŸ‹β€‹αžœαžΆΒ αŸ”

Please support us!