Pergunte aqui
1

Fechar Caixa de Diálogo

perguntadas 2019-02-12 19:47:06 +0200

imagem do gravatar de Amaral

updated 2019-03-01 18:02:18 +0200

Como executar executar uma macro após fechar uma caixa de diálogo. Descrição da imagem

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

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

1

respondidas 2019-02-16 14:50:07 +0200

imagem do gravatar de 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:


Atte,

editar assinalar como ofensivo Excluir Link mais

Comentários

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!

imagem do gravatar de AmaralAmaral ( 2019-02-19 02:19:08 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2019-02-12 19:47:06 +0200

Lidas: 22 vezes

Última atualização: Feb 16