Pergunte aqui
0

Fechar MsgBox

perguntadas 2019-01-16 18:30:15 +0100

imagem do gravatar de Conrado

updated 2020-08-26 20:34:04 +0100

imagem do gravatar de Schiavinatto

Tem como fechar o MsgBox automaticamente após um tempo?

Sub MsgBoxTeste

MsgBox ("Sua Menssagem", 0, "Seu título")

Wait 50

"""Fechar"""

End Sub
editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

Ola @Conrado, se existir o tempo devera estar no comando MsgBox, pois se não fechar ele não vai para o Wait, pesquisei e não encontrei tal comando.....

imagem do gravatar de SchiavinattoSchiavinatto ( 2019-01-16 21:39:37 +0100 )editar

Olá @Gilberto Schiavinatto Também pesquisei bastante sobre isso e não encontrei referências. Essa sistemática que coloquei foi apenas para ter uma noção do que preciso. Em excel existe 02 formas de fazer este procedimento, mas para LO não achei nada infelizmente.

imagem do gravatar de ConradoConrado ( 2019-01-17 11:53:40 +0100 )editar

1 Resposta

0

respondidas 2020-08-25 20:10:18 +0100

imagem do gravatar de Schiavinatto

updated 2020-08-26 13:36:14 +0100

Ola @Conrado, também tive a necessidade desta função da Msgbox e acabei de encontrar:

    Sub btn_Click()
        CustomMsgBox "Ola, mundo", 2, "Titulo"
    End Sub

    Sub CustomMsgBox(ByVal Prompt, ByVal Timeout, ByVal Title)
' @Prompt   {string}    mensagem
' @Timeout  {integer}   tempo em segundos
' @Title    {string}    texto barra titulo
        CreateObject("WScript.Shell").Run _
                "mshta.exe vbscript:close(CreateObject(""WScript.shell"").Popup(""" & _
                Prompt & """," & Timeout & ",""" & Title & """))"   
    End Sub

Fonte: https://forum.elipse.com.br/t/fechar-...

editar assinalar como ofensivo Excluir Link mais

Comentários

1

Olá @Schiavinatto,

Obrigado pelas informações. Vou atualizar já as planilhas

imagem do gravatar de ConradoConrado ( 2020-08-26 13:14:51 +0100 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2019-01-16 18:30:15 +0100

Lidas: 103 vezes

Última atualização: Aug 26 '20