Skip to content

Como usar a função MsgBox para personalizar mensagens do usuário

Uma das funções mais usadas no VBA é a janela de mensagem ou mais conhecida como MsgBox. Essas mensagens são utilizadas para enviar informações ao usuário final, seja apenas para indicar algo ou convidá-lo a realizar uma ação. Use o recurso MsjBox para personalizar todas as mensagens enviadas para usuários finais de aplicativos do Office .

Normalmente, o MsgBox é usado quando uma resposta simples do usuário, como Aceitar ou Cancelar, é necessária. São fáceis de fazer e totalmente modificáveis, são diferentes para cada ação.

Como usar a função MsgBox para personalizar mensagens do usuário

Como usar a função MsgBox para personalizar mensagens para o usuário

A primeira coisa que você deve saber sobre MsgBox é que eles são criados por meio do código do projeto . O código é colocado dentro de um objeto e possui uma sintaxe específica. Felizmente, a sintaxe é bastante simples e você não precisa de mais habilidades de programação.

Sintaxe de um MsgBox

MsgBox (texto [, botão (s)] [, título] [, arquivo de ajuda, contexto])

  • Mensagem (prompt): é o texto que contém a mensagem que você deseja comunicar ao usuário final.
  • Título: é opcional e é o texto relacionado ao nome da mensagem. Pode ser útil fornecer uma referência ao usuário que indique a relação da mensagem.
  • Botões: também é opcional e se não estiver configurado, o botão Aceitar será exibido por padrão. Algumas das constantes que podem ser configuradas para os botões são:
  • Arquivo de ajuda (HelpFile): É a string de texto que contém a localização do arquivo de ajuda relacionado à mensagem. É opcional, mas caso seja colocado, o Contexto deve ser especificado.
  • Contexto: o valor numérico atribuído ao tópico de ajuda. Está relacionado ao arquivo de ajuda.
Leia  Como acelerar e aumentar a velocidade de download do Steam | Veja como é feito

Argumento MsgBox

Existem várias maneiras de atribuir valores a um argumento de MsgBox. Uma maneira fácil de fazer isso é usar o nome da constante:

Private Sub CommandButton1_Click ()
text = “Deseja sair do sistema?” ‘mensagem para o
estilo do usuário = vbYesNo + vbCritical + vbDefaultButton2′ tipos de botão
title = “MsgBox Test message” ‘título da mensagem

help = “DEMO.HLP” ‘define o arquivo de ajuda
Ctxt = 1000′ Defina o tópico de contexto.
Resposta = MsgBox (texto, estilo, título, ajuda, Ctxt) ‘MsgBox enviada ao usuário
If Response = vbYes Then’ Se o usuário selecionar Sim
lbltexto.Caption = “Excelente” ‘A ação que é executada
Else ‘Se o usuário não selecionar
lbltexto.Caption = “Nada acontece”‘ mensagem de texto que é exibida se o usuário não disser
End If

End Sub

O código anterior atribui a função MsgBox a um botão no formulário . Quando o usuário clica no botão, aparece uma mensagem perguntando se deseja sair do sistema com dois botões de ação (Sim e Não), um ícone de mensagem crítica.

Se o usuário responder que a palavra “Excelente” será exibida em uma etiqueta e se a resposta for Não, a mensagem exibida é “Nada acontece”.

Outra forma de mostrar o argumento de um MsgBox é colocando o valor de cada constante ou adicionando o valor dos argumentos. A forma anterior é mais fácil porque permite interpretar o código a olho nu.

Retorna os valores do MsgBox

É importante determinar que tipo de valor está associado à resposta do usuário, bem como o nome da constante. Dependendo do valor obtido, uma ação específica pode ser atribuída . A imagem a seguir mostra os valores obtidos ao pressionar um botão no MsgBox .

Exemplos de MsgBox

Apenas o primeiro argumento (a mensagem para o usuário) é obrigatório, o resto é modificável e opcional.

Leia  Como fixar aplicativos no menu de compartilhamento do Android?

1. Envie uma mensagem simples para o usuário

Private Sub btnbienvenida_Click ()
MsgBox «Olá usuário, bem-vindo ao sistema»
End Sub

Quando a ação do botão é executada, uma mensagem de boas-vindas é mostrada ao usuário com o botão Aceitar que é exibido por padrão.

2. Envie uma mensagem ao usuário com botões

Private Sub btncontinuar_Click ()
MsgBox «¿Desea continuar?», VbSimNo + vbExclamation, «Continuar sistema»
End Sub

Este código é mais específico porque a mensagem é mostrada ao usuário, os botões “Sim” e “Não” , o ícone de ponto de exclamação e o título “Continuar sistema” são atribuídos .