Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

Boa noite,


Você não disse como carregou o diálogo para executar as macros, então vou detalhar o processo.

Para fechar , primeiro precisa ter uma variável declarada no começo do módulo:

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

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

Ela deve ser usada para carrega o diálogo (exemplo):

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()
End Sub

Então você poderá usar o método para fechar em qualquer macro associada a um botão:

Sub FecharDialogo()
   oDialogo.EndExecute()
End Sub


Atte,

Boa noite,


Você não disse como carregou o diálogo para executar as macros, então vou detalhar o processo.

Para fechar , primeiro precisa ter uma variável declarada no começo do módulo:

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

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

Ela deve ser usada para carrega o diálogo (exemplo):

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

    oDialogo.Execute()
    oDialogo.Dispose()
End Sub

Então você poderá usar o método para fechar em qualquer macro associada a um botão:

Sub FecharDialogo()
   oDialogo.EndExecute()
End Sub


Atte,

Boa noite,


Você não disse como carregou o diálogo para executar as macros, então vou detalhar o processo.

Para fechar , primeiro precisa ter uma variável declarada no começo do módulo:

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

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

Ela deve ser usada para carrega o diálogo (exemplo):

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

    oDialogo.Execute()
    oDialogo.Dispose()
End Sub

Então você poderá usar o método para fechar em qualquer macro associada a um botão:

Sub FecharDialogo()
   oDialogo.EndExecute()
End Sub


Atte,

Exemplo de uso

Boa noite,


Você não disse como carregou o diálogo para executar as macros, então vou detalhar o processo.

Para fechar , primeiro precisa ter uma variável declarada no começo do módulo:

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

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

Ela deve ser usada para carrega o diálogo (exemplo):

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

    oDialogo.Execute()
    oDialogo.Dispose()
End Sub

Então você poderá usar o método para fechar em qualquer macro associada a um botão:

Sub FecharDialogo()
   oDialogo.EndExecute()
End Sub


Atte,

**

* Exemplo de uso *

**

Boa noite,


Você não disse como carregou o diálogo para executar as macros, então vou detalhar o processo.

Para fechar , primeiro precisa ter uma variável declarada no começo do módulo:

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

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

Ela deve ser usada para carrega o diálogo (exemplo):

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

    oDialogo.Execute()
    oDialogo.Dispose()
End Sub

Então você poderá usar o método para fechar em qualquer macro associada a um botão:

Sub FecharDialogo()
   oDialogo.EndExecute()
End Sub


Atte,

**

* Exemplo de uso *

**Descrição da imagem