MsgBox
É uma função que tanto exibe como permite a escolha de um dos botões que ao ser clicado poderá executar um determinado procedimento.
MsgBox(prompt, [buttons as vbmsgboxstyle = vbokonly], [title], [helpfile], [context]) as vbmsgboxresult
Exemplo 1:
MsgBox "Erro nos dados", vbInformation, "Aviso"
Exemplo 2:
If MsgBox("Deseja Salvar ?", vbQuestion + vbYesNo, "Salvar") = vbYes Then
....
....
End If
Neste exemplo, será apresentado os botões Sim e Não (vbYesNo), juntamente com o ícone de interrogação (vbQuestion). Se responder Sim (vbYes) então será executado o procedimento.
Constante de VBA |
Valor |
Descrição
|
VbOKOnly |
0 |
Exibe somente o botão de OK. |
VbOKCancel |
1 |
Exibe os botões OK e Cancel. |
VbAbortRetryIgnore |
2 |
Exibe os botões Abort, Retry, e Ignore. |
VbYesNoCancel |
3 |
Exibe os botões Yes, No, e Cancel . |
VbYesNo |
4 |
Exibe os botões Yes e No. |
VbRetryCancel |
5 |
Exibe os botões Retry e Cancel. |
VbCritical |
16 |
Exibe o ícone de Critical Message. |
VbQuestion |
32 |
Exibe o ícone de interrogação. |
VbExclamation |
48 |
Exibe o ícone de exclamação. |
VbInformation |
64 |
Exibe o ícone de Informação. |
VbDefaultButton1 |
0 |
O primeiro botão é o selecionado por padrão |
VbDefaultButton2 |
256 |
O segundo botão é o selecionado por padrão. |
VbDefaultButton3 |
512 |
O terceiro botão é o selecionado por padrão |
VbDefaultButton4 |
768 |
O quarto botão é o selecionado por padrão. |
VbApplicationModal |
0 |
Application modal – utilizado só depois de responder à MsgBox é que poderá dar continuidade ao trabalho na aplicação corrente. |
VbSystemModal |
4096 |
System modal - utilizado só depois de responder à MsgBox é que poderá dar continuidade ao trabalho em qualquer aplicação em curso no sistema. |
Valores Produzidos
Como já foi mencionado, MsgBox produz um valor em função do botão acionado, assim produzirá como saída um dos valores constantes da tabela seguinte:
Constante de VBA |
Valor |
Botão Accionado |
vbOK |
1 |
OK |
vbCancel |
2 |
Cancel |
vbAbort |
3 |
Abort |
vbRetry |
4 |
Retry |
vbIgnore |
5 |
Ignore |
vbYes |
6 |
Yes |
vbNo |
7 |
No |