Fechar Caixa de Diálogo

[Amaral]

Como executar executar uma macro após fechar uma caixa de diálogo.

Exemplos:
Ao fecha a caixa de diálogo quero que apareça MsgBox " Tenha um bom dia!"

[Grafeno]

Bom dia,

Pela característica do diálogo no LibreOffice Basic não é através de evento, mas sim no código que obtemos o que você deseja.

Por exemplo, no código abaixo ao colocar a chamada a MsgBox após oDialogo.Dispose(), ela será executada assim que o diálogo for fechado:

REM  *****  BASIC  *****

'Varíavel para o diálogo'
Dim oDialogo AS Object


Sub CarregarDialogo
    DialogLibraries.LoadLibrary("Standard")
    'Usando a variável declarada no começo do módulo'
    oDialogo = CreateUnoDialog( DialogLibraries.Standard.getByName("Dialogo1") )

    oDialogo.Execute()
    oDialogo.Dispose()
    
    'A partir daqui a macro é executada após o diálogo fechado'
    MsgBox "Tenha um bom dia!"
End Sub

Arquivo de exemplo:

• Exemplo.ods

Atte,

[Amaral]

Muito obrigado. Eu já havia lido algo sobre .Dispose () porém não compreendido seu uso (liberar memória). Ajudou a resolver um problema que surgiu durante meu projeto. Grato!