[Resolvido]Msg Box com fechamento automático

Saudações a todos..

tenho o seguinte código:


Private Sub Form_Close()
Msg = MsgBox("Parcelamento efetuado com Sucesso!", vbInformation, "SysVen")
End Sub

Pergunta:

Como fazer para aparecer essa mensagem... ela ficar ativa por alguns instantes e fechar automaticamente sem precisar pressionar o botão Ok?

Se alguem puder me ajudar
Ficarei grato

Harysohn

No repositório de exemplos tem lá um exemplo de msg com timer.

Outra alternativa é fazer uma Msg a partir de um formulário e com o timer definir o tempo que pretendemos

encontrei o codigo...

Public Function MsgBoxTimer(Seconds As Integer, Prompt As String, Optional Buttons As VbMsgBoxStyle = vbOKOnly, Optional Title As String) As VbMsgBoxResult
Set WShell = CreateObject("WScript.Shell")
MsgBoxTimer = WShell.Popup(Prompt, Seconds, Title, Buttons)
End Function



COmo faço o uso correto dele pra chamar a msg?

Harysohn

Você baixou o exemplo? só encontrou o código? Public Function determina que seja aberto um módulo VBA e depois seja chamada essa função no local necessário. Não conheço o exemplo, mas creio que o colega não postou só o código.

Encontrei apenas o codigo amigão...

Então em princípio é assim


Abra na aba Módulos um novo módulo e cole a função. Feche e guarde com o nome que entender. Depois chame a função aonde precisar dela assim:

MsgBoxTimer («Seconds»; «Prompt»; «Buttons»; «Title»)

alterando os seguintes valores:

MsgBoxTimer («3000»; «Aqui vai a mensagem»; «OkOnly ou vbInformation»; «Título»)

Agora se vai funcionar ou não, não sei. Acho estranho o colega não ter colocado um exemplo prático

Perdoe-me a falta de pratica mas não funcionou

Fiz o Modulo...
e acrestentei a linha no form no evento ao fechar...

mas a linha ficou vermelha e deu erro de sintaxe

se puder verificar fico grato

Harysohn

Apenas compus, não experimentei. Teste por favor:

MsgBox Timer("3000", "mensagem", "vbinformation", "aviso")

coloquei... e nao funcionou.. se anda pela linha de codigo o programa da a sugestao de colocar no final o seguinte:
MsgBox Timer("3000", "mensagem", "vbinformation", "aviso")=VbOk

Mas se coloca isso da uma mensagem de funcao no lado esquerdo tem que retornar uma variant

o argumento já lá está "vbInformation". Contacte o colega que colocou este exemplo no fórum.

Ok, já fiz aqui um teste e é assim:

MsgBoxTimer (3000), (obrigado por), (vbInformation), (Aviso)

está testado e funciona

Infelizmente aqui não funcionou
DIz erro de sintaxe

MsgBoxTimer (1), "obrigado por", (vbInformation), (Aviso)

O texte entre aspas...
Funcionou..

Agora mais uma coisa...

Tem como deixar a msg sem botão de ok?

Grato vieira e perdoe-me o trbalho

Aqui não dá erro, mas está agora funcionando ao contrário, ao invés de fechar, abre de 3 em 3 segundos (rsrsrss)

Ok, está funcionando bem de novo. Coloquei no evento ao abrir do form e funcionou direitinho

Tem como excluir ou desativar o botão de ok?

Vou tentar tirar o botão.

EU tenho que colocar alguma definicao no Evento Timer do Form?

e qual o tempo minimo que posso colcar pra fechar a msgBox?

Mesmo retirando a linha Optional Buttons no módulo e no módulo do form o botão está aparecer sempre, mas já gora teste aí

Public Function MsgBoxTimer(Seconds As Integer, Prompt As String, Optional Title As String) As VbMsgBoxResult
Set WShell = CreateObject("WScript.Shell")
MsgBoxTimer = WShell.PopUp(Prompt, Seconds, Title)
End Function


MsgBoxTimer (1), "obrigado por", (Aviso)

Altere para o valor que quizer (1) para 2, 3 ou 4, ou 5

MsgBoxTimer (5), "obrigado por", (Aviso)

No meu não fecha de jeito nenhum
aparece a msg mas nao fecha

Quanto ao tirar o botão, nem vale a pena porque a classe MessageBox tem como default o botão ok. Sendo assim não tem como chamar uma mensagem sem botão.


Aconselho que de uma olhada no link abaixo.

http://msdn2.microsoft.com/en-us/library/system.windows.forms.messagebox.show.aspx

Vou-lhe enviar o teste que fiz aqui

Pode fazer o Download

http://dl.dropbox.com/u/8157744/ABC.rar

O problema era no Banco....

eu reiniciei o BD
ai funcionou

Obrigado amigao..

Desculpa o atrapalho..
Fique com Deus...

Você também e obrigado pelo retorno

Ola tentei baixar o exemplo para adaptalo ao meu sistema mas o link da como nao localizado
Poderia posta-lo novamente?
Grato pela atenção

Boa noite

Click para fechar o formulário.

Assi boa noite obrigado pela ajuda