Função MsgBox
Mostra uma caixa de diálogo com uma mensagem e devolve um valor.
Sintaxe:
MsgBox (Texto As String [,Tipo As Integer [,TítuloDiálogo As String]])
Valor de retorno:
Número inteiro
Parâmetro:
Texto: expressão edem cadeia mostrada como mensagem na caixa de diálogo. As quebras de linha podem ser inseridas com Chr$(13).
TítuloDiálogo: expressão de cadeia mostrada na barra do título da caixa de diálogo. Se omissa, mostra o nome da respetiva aplicação.
Tipo: qualquer expressão de número inteiro que especifique o tipo da caixa de diálogo, bem como o número e tipo de botões ou ícones mostrados. O Tipo representa uma combinação de padrões de bits (elementos da caixa de diálogo são definidos adicionando os valores 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 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. |
Valor de retorno:
Constante com nome |
Valor inteiro |
Definição |
IDOK |
1 |
Aceitar |
IDCANCEL |
2 |
Cancelar |
IDABORT |
3 |
Abortar |
IDRETRY |
4 |
Tentar novamente |
IDIGNORE |
5 |
Ignorar |
IDYES |
6 |
Sim |
IDNO |
7 |
Não |
Exemplo:
Sub ExampleMsgBox
Dim sVar As Integer
sVar = MsgBox("Vila Real")
sVar = MsgBox("Vila Real",1)
sVar = MsgBox( "Vila Real",256 + 16 + 2,"Título da caixa de diálogo")
sVar = MsgBox("Las Vegas", MB_DEFBUTTON2 + MB_ICONSTOP + MB_ABORTRETRYCANCEL, "Título da caixa de diálogo")
End Sub