IBM Lotus Symphony


Instrução MsgBox [Runtime]

Apresenta uma caixa de diálogo que contém uma mensagem.

Sintaxe:

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)

Parâmetro:

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.

Códigos de erro

5 Chamada de procedimento não válido

Exemplo:

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


Comentários sobre o produto | Documentação adicional | Marcas comerciais