[Resolvido] Fechar janela MsgBox

[jafm]

Olá,

Gostaria que a Msgbox que apresente se fechasse automaticamente. Ser ser necessário clicar em ok

Estava a experimentar algo deste gênero, mas não resulta.

MsgBox("Com Sucesso!")
               'System.Threading.Thread.Sleep("100")
               Me.Close()

Edited February 26, 2013 at 06:38 PM by thoga31
GeSHi

[NunoDinis]

Dá uma olhadela nisto: http://www.tomasvasquez.com.br/blog/microsoft-office/vba-fechar-msgboxs-automaticamente

[jafm]

Não me parece que funciona.

Coloquei da seguintes forma,

Private Sub AutoCloseMsgBox(Mensagem As String, Titulo As String, Segundos As Integer)
       Dim oSHL = CreateObject("WScript.Shell")
       oSHL.PopUp(Mensagem, Segundos, Titulo, vbOKOnly + vbInformation)
   End Sub

depois no chamei da seguinte forma, mas dá erro de sintaxe...

AutoCloseMsgBox("MsgBox - Com Sucesso!", 2)

Edited February 26, 2013 at 06:38 PM by thoga31
GeSHi

[NunoDinis]

Estive a testar e consegui. Falta passar um parâmetro, o titulo:

 AutoCloseMsgBox("MsgBox - Com Sucesso!", "nuno", 2)

Edited February 26, 2013 at 04:57 PM by NunoDinis

[jafm]

O erro é o seguinte:

Argument not specified for parameter 'Segundos' of 'Private Sub AutoCloseMsgBox (Mensagem As String, Titulo As String, Segundos As Integer)

[NunoDinis]

É, é falta de parâmetro. Já corrigi acima..

[jafm]

ya... Obrigado pela ajuda

[NunoDinis]

de nada, bom trabalho 🙂