IBM Lotus Symphony
|
Exibe um diálogo que contém uma mensagem.
MsgBox Text As String [,Type As Integer [,Dialogtitle As String]] (As Statement) ou MsgBox (Text As String [,Type As Integer [,Dialogtitle As String]]) (As Function)
Text : Expressão de sequência exibida como uma mensagem na caixa de diálogo. As quebras de linha podem ser inseridas com Chr$(13).
DialogTitle : Expressão de sequência exibida na barra de título do diálogo. Se for omitida, a barra de título exibirá o nome do respectivo aplicativo.
Type : Qualquer expressão inteira que especifique o tipo de diálogo, bem como o número e o tipo de botões a serem exibidos e o tipo do ícone. Tipo representa uma combinação de padrões de bits, ou seja, uma combinação de elementos que podem ser definidos adicionando seus respectivos valores:
0 : Exibir somente o botão OK.
1 : Exibir os botões OK e Cancelar.
2 : Exibir os botões Interromper, Tentar Novamente e Ignorar.
3 : Exibir os botões Sim, Não e Cancelar.
4 : Exibir os botões Sim e Não.
5 : Exibir os botões Tentar Novamente e Cancelar.
16 : Adicionar o ícone Parar no diálogo.
32 : Incluir o ícone Pergunta no diálogo.
48 : Adicionar o ícone Exclamação no diálogo.
64 : Adicionar o ícone Informações no diálogo.
128 : Primeiro botão no diálogo como botão padrão.
256 : Segundo botão no diálogo como botão padrão.
512 : Terceiro botão no diálogo como botão padrão.
Sub ExampleMsgBox
Const sText1 = "Ocorreu um erro inesperado."
Const sText2 = "Entretanto, a execução do programa continuará."
Const sText3 = "Erro"
MsgBox(sText1 + Chr(13) + sText2,16,sText3)
End sub