IBM Lotus Symphony


Função MsgBox [Tempo de Execução]

Exibe um diálogo que contém uma mensagem e retorna um valor.

Sintaxe:

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

Valores de Retorno:

Inteiro

Parâmetro:

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, o nome do respectivo aplicativo será exibido.

Type : Qualquer expressão inteira que especifique o tipo de diálogo e defina o número e o tipo de botões ou os ícones exibidos. Tipo representa uma combinação de padrões de bits (elementos de diálogo definidos adicionando os respectivos valores):

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

Valores de Retorno:

1 : OK

2 : Cancelar

3 : Interromper

4 : Tentar novamente

5 : Ignorar

6 : Sim

7 : Não

Códigos de Erro

5 Chamada de procedimento inválida

Exemplo:

Sub ExampleMsgBox

Dim sVar as Integer

sVar = MsgBox("Las Vegas")

sVar = MsgBox("Las Vegas",1)

sVar = MsgBox( "Las Vegas",256 + 16 + 2,"Dialog title")

end sub


Feedback do Produto | Documentação Adicional | Marcas Registradas