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!