Abrir uma caixa de diálogo com Basic

Na janela do LibreOffice BASIC referente a uma caixa de diálogo criada, saia do editor de caixas de diálogo clicando no nome do módulo ao qual a caixa de diálogo está atribuída. O separador de nome está ao fundo da janela.

Introduza o seguinte código para uma sub-rotina chamada Dialog1Show. Neste exemplo, o nome da caixa de diálogo que criou é "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

Sem utilizar "LoadDialog", pode invocar o código da seguinte forma:


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

Ao executar este código, "Dialog1" é aberta. Para fechar a caixa de diálogo, clique no botão (x) na respetiva barra de título.

Necessitamos da sua ajuda!