Instrução MsgBox
Mostra uma caixa de diálogo com uma mensagem.
Sintaxe:
MsgBox Texto As String [,Tipo As Integer [,TítuloDiálogo As String]] (As Statement) ou MsgBox (Texto As String [,Tipo As Integer [,TítuloDiálogo As String]]) (As Function)
Parâmetro:
Texto: expressão em caracteres mostrada como mensagem na caixa de diálogo. As quebras de linha podem ser inseridas com Chr$(13).
TítuloDiálogo: expressão em caracteres mostrada na barra do título da caixa de diálogo. Se omissa, a barra do título mostra o nome da respetiva aplicação.
Tipo: qualquer expressão em número inteiro que especifique o tipo da caixa de diálogo, bem como o número e tipo de botões a mostrar e o tipo de ícone. Tipo representa uma combinação de padrões de bits, ou seja, uma combinação de elementos pode ser definida adicionando os seus respetivos valores:
Constante com nome |
Valor inteiro |
Definição |
MB_OK |
0 |
Mostrar apenas o botão Aceitar. |
MB_OKCANCEL |
1 |
Mostrar os botões Aceitar e Cancelar. |
MB_ABORTRETRYCANCEL |
2 |
Mostrar os botões Cancelar, Tentar novamente e Ignorar. |
MB_YESNOCANCEL |
3 |
Mostrar os botões Sim, Não e Cancelar. |
MB_YESNO |
4 |
Mostrar os botões Sim e Não. |
MB_RETRYCANCEL |
5 |
Mostrar os botões Tentar novamente e Cancelar. |
MB_ICONSTOP |
16 |
Adicionar o ícone Parar à caixa de diálogo. |
MB_ICONQUESTION |
32 |
Adicionar o ícone Ponto de interrogação à caixa de diálogo. |
MB_ICONEXCLAMATION |
48 |
Adicionar o ícone Ponto de exclamação à caixa de diálogo. |
MB_ICONINFORMATION |
64 |
Adicionar o ícone de Informação à caixa de diálogo. |
|
128 |
Primeiro botão na caixa de diálogo como botão padrão. |
MB_DEFBUTTON2 |
256 |
Segundo botão da caixa de diálogo como botão padrão. |
MB_DEFBUTTON3 |
512 |
Terceiro botão da caixa de diálogo como botão padrão. |
Exemplo:
Sub ExampleMsgBox
Const sText1 = "Ocorreu um erro inesperado."
Const sText2 = "Contudo, a execução do programa irá continuar."
Const sText3 = "Erro"
MsgBox(sText1 + Chr(13) + sText2,16,sText3)
MsgBox(sText1 + Chr(13) + sText2, MB_ICONSTOP, sText3)
End Sub