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

Índice

    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 Proteger Seu PC Contra Vírus Quando Você Telecommuta - Dicas e Medidas Úteis

    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 ativar o modo escuro em vários aplicativos do seu celular Android (exemplo) | Veja como é feito

    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 .

    Comments for this article have been closed.

    Go up

    Usamos cookies para fornecer a melhor experiência na web. Se você continuar a usar este site, iremos recrutar. Mais informação