IBM Lotus Symphony
|
Apresenta uma caixa de 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 em caracteres apresentada como mensagem na caixa de diálogo. As quebras de linha podem ser inseridas com Chr$(13).
DialogTitle: Expressão em caracteres apresentada na barra do título da caixa de diálogo. Se for omitida, a barra do título apresenta o nome da respectiva aplicação.
Type: Qualquer expressão de números inteiros que especifique o tipo da caixa de diálogo, bem como o número e tipo de botões a apresentar, 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 respectivos valores:
0: Apresentar apenas o botão OK.
1: Apresentar os botões de OK e Cancelar.
2: Apresentar os botões de Cancelar, Tentar novamente e Ignorar.
3 : Apresentar os botões Sim, Não e Cancelar.
4: Apresentar os botões Sim e Não.
5: Apresentar os botões Tentar de novo e Cancelar.
16: Adicionar o ícone Stop à caixa de diálogo.
32: Adicionar o ícone de Pergunta à caixa de diálogo.
48: Adicionar o ícone de Exclamação à caixa de diálogo.
64: Adicionar o ícone Informações à caixa de diálogo.
128: Primeiro botão na caixa de diálogo como botão predefinido.
256: Segundo botão na caixa de diálogo como botão predefinido.
512: Terceiro botão na caixa de diálogo como botão predefinido.
Sub ExemploMsgBox
Const sText1 = "An unexpected error occurred."
Const sText2 = "The program execution will continue, however."
Const sText3 = "Error"
MsgBox(sText1 + Chr(13) + sText2,16,sText3)
End sub