Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

jafm

[Resolvido] Fechar janela MsgBox

Mensagens Recomendadas

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()

Editado por thoga31
GeSHi

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
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)

Editado por thoga31
GeSHi

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
NunoDinis

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

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

Editado por NunoDinis

Estranha forma de vida que tem a capacidade de transformar comandos em mensagens de erro.

ndsotware.org

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
jafm

O erro é o seguinte:

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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.