Pergunte aqui
1

Evitar que a tecla ESC feche a caixa de dialog.

perguntadas 2017-10-12 21:57:18 +0200

imagem do gravatar de Júnio Vieira

updated 2019-03-01 19:17:56 +0200

Olá, gostaria de saber como faço para evitar que quando eu estiver executando um formulário no libreoffice calc a tecla esc quando pressionada não feche o formulário que estiver aberto.

Gostaria de saber qual número equivale a tecla esc.

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

2

respondidas 2018-08-16 03:25:15 +0200

imagem do gravatar de Grafeno

updated 2018-08-16 03:25:37 +0200

Boa noite,

Até hoje nunca encontrei uma forma de evitar que a tecla Esc encerre o diálogo. Mas quando ele é fechado por esta tecla, ou pelo botão X, o método Execute() retorna 0. Então, é possível colocar a execução em loop, verificando este retorno. O diálogo piscará, mas só será encerrado via código.

Para por a execução em loop:

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

Dim oDialogo As Object

Sub IniciarDialogo
   DialogLibraries.LoadLibrary("Standard")
   oDialogo = CreateUnoDialog( DialogLibraries.Standard.getByName("Dialogo1") )

   Do
    iRes = oDialogo.Execute()
   Loop Until iRes <> 0 

   oDialogo.Dispose()
End Sub

Para fechar o diálogo (atribuir a um botão):

Sub Fechar()
   'Fecha o diálogo atribuindo 1 como retorno do '
   'método Execute()'
   oDialogo.endDialog(1)
End Sub

Atte,

editar assinalar como ofensivo Excluir Link mais

Comentários

Boa tarde, não funciona como no excel, mas resolve. Obrigado!

imagem do gravatar de Júnio VieiraJúnio Vieira ( 2018-08-20 19:39:08 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2017-10-12 21:57:18 +0200

Lidas: 90 vezes

Última atualização: Aug 16 '18