Tem como fechar o MsgBox automaticamente após um tempo?
Sub MsgBoxTeste
MsgBox ("Sua Menssagem", 0, "Seu título")
Wait 50
"""Fechar"""
End Sub
Tem como fechar o MsgBox automaticamente após um tempo?
Sub MsgBoxTeste
MsgBox ("Sua Menssagem", 0, "Seu título")
Wait 50
"""Fechar"""
End Sub
Ola @Conras, 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…
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.
Ola @Conras, 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: Fechar MsgBox Automaticamente - Elipse E3 - Elipse Forum