עזרה עבור LibreOfficeDev 7.4
In the \
Enter the following code for a subroutine called \
Sub Dialog1Show
With GlobalScope.BasicLibraries
If Not .IsLibraryLoaded("Tools") Then .LoadLibrary("Tools")
End With
oDialog1 = Tools.ModuleControls.LoadDialog("Standard", "Dialog1")
oDialog1.Execute()
End Sub
Without using "LoadDialog" you can call the code as follows:
Sub Dialog1Show
DialogLibraries.LoadLibrary("Standard")
oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
oDialog1.Execute()
End Sub
When you execute this code, "Dialog1" opens. To close the dialog, click the close button (x) on its title bar.