Criar caixa de mensagem temporizada
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
Com o Script do Windows é possível criar uma caixa de mensagem temporizada. Veja como é simples o código:
Public Function MsgBoxTimer(Seconds As Integer, Prompt As String, _
Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
Optional Title As String) As VbMsgBoxResult
Dim wshell As Object
Set wshell = CreateObject("WScript.Shell")
MsgBoxTimer = wshell.PopUp(Prompt, Seconds, Title, Buttons)
End Function
Exemplo de chamada da função, configurada para 2 segundos:
MsgBoxTimer 2,"Teste com a caixa de mensagem...", vbOKOnly, "Aviso"
Bom estudo!
Os dez artigos mais visitados
MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Aprenda sobre filtragens
Vídeo - Segurança máxima, usando o OPEN
Uma ajuda para quem está começando um negócio ou um projeto
Integrando o Access com Servidor MySQL - Introdução
Desabilitando a faixa(ribbon) superior do Access
Vídeo - Programação de relatórios - Parte 1
Como carregar o seu menu sem que ele vá para lista de suplementos
Vídeo - Criando Ribbons parte 1 - Conhecendo a estrutura Xml
|
1 comentário(s) OSDEMAR MARANHO 18/01/2025 03:46:18 A caixa de mensagem temporaria so funciona no accdb e nao funciona quando compila para accde. TEm algum procedimento a ser feito? |