ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Fechar MsgBoxs Automaticamente

Dicas dos mais variados tipos, necessidades, angústias, enfim
Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1559
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Fechar MsgBoxs Automaticamente

Mensagem por Mauro Coutinho » Dom Abr 10, 2011 11:42 am

Diante de uma duvida surgida neste Forum, "FECHAR MSGBOX AUTOMATICAMENTE" coloco a solução criada pelo nosso colega JoseA :

Fechar MsgBoxs automáticamente por JoseA

Código: Selecionar todos

    Global oSHL As Object

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

    Sub AutoMessage()
    'Fechar MsgBoxs automáticamente por JoseA

    'Call Envia_A
        AutoCloseMsgBox "Msgbox1 - Clique em OK ou aguarde 2 segundos", "Fechar MsgBox1 automaticamente", 2 '2 segundos
    'Call Envia_B
        AutoCloseMsgBox "Msgbox2 - Clique em OK ou aguarde 3 segundos", "Fechar MsgBox2 automaticamente", 3 '3 segundos
    'Call Envia_C
        AutoCloseMsgBox "Msgbox3 - Clique em OK ou aguarde 4 segundos", "Fechar MsgBox3 automaticamente", 4 '4 segundos
    'Call Envia_D
        AutoCloseMsgBox "Msgbox4 - Clique em OK ou aguarde 5 segundos", "Fechar MsgBox4 automaticamente", 4 '5 segundos

    End Sub
Na rotina AutoMessage fiz menção somente às msgboxs após a execução de determinadas rotinas, é uma forma simples e direta, podemos fazer essas chamadas diretamente nas rotinas em que estaremos executando.

Essa dica foi postada no site abaixo, no mesmo temos uma outra dica utilizando-se APIS, mas optei por essta por ter menos linhas e ser mais simples.
MsgBox com Time
http://www.vbaexcelforum.com/showthread ... 2615713e22

[]s


Mauro Coutinho - Exemplos Somente em Office 2003
São José dos Pinhais - Pr
Se sua Duvida foi solucionada . . . .Acrescente [RESOLVIDO] ao título.
Ficou satisfeito com o FORUM ? Divulgue, indicando-o aos colegas !

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder