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) рдорд╛ рдХреНрд▓рд┐рдХ рдЧрд░реНрдиреБрд╣реЛрд╕реН ред