Opening a Dialog With Basic

В окне BASIC LibreOffice для создаваемого диалогового окна выйдите из редактора диалоговых окон, щёлкнув вкладку имени модуля, для которого предназначено диалоговое окно. Вкладка имени находится в нижней части окна.

Введите следующий код для подпрограммы 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!