IBM Lotus Symphony


Função MsgBox [Runtime]

Apresenta uma caixa de diálogo com uma mensagem e indica um valor.

Sintaxe:

MsgBox (Text As String [,Type As Integer [,Dialogtitle As String]])

Valor de retorno:

Integer

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 omitido, o nome da respectiva aplicação é apresentado.

Type: Qualquer expressão de números inteiros que especifique o tipo da caixa de diálogo e que defina o número e tipo dos botões ou ícones apresentados. Type representa uma combinação de padrões de bits (elementos de caixa de diálogo definidos através da adição dos respectivos valores):

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 Ponto 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.

Valor de retorno:

1: OK

2: Cancelar

3: Cancelar

4: Tentar de novo

5: Ignorar

6: Sim

7: Não

Códigos de erro

5 Chamada de procedimento não válido

Exemplo:

Sub ExemploMsgBox

Dim sVar as Integer

sVar = MsgBox("Las Vegas")

sVar = MsgBox("Las Vegas",1)

sVar = MsgBox( "Las Vegas",256 + 16 + 2,"Título da caixa de diálogo")

end sub


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