Evitar que a tecla ESC feche a caixa de dialog

[JúnioVieira]

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.

[Grafeno]

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,

[JúnioVieira]

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