Opening a Dialog With Basic

In the LibreOffice BASIC window for a dialog that you created, leave the dialog editor by clicking the name tab of the Module that the dialog is assigned to. The name tab is at the bottom of the window.

Enter the following code for a subroutine called Dialog1Show. In this example, the name of the dialog that you created is "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

Kod možete izvršiti i bez pozivanja "LoadDialog" na sljedeći način:


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

KPri izvođenju ovog koda, otvara se "Dialog1". Za zatvaranje, odaberite gumb (x) u naslovnoj traci.

Please support us!