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!"
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!"
Bom dia,
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:
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!