IBM Lotus Symphony
|
Exibe um diálogo que contém uma mensagem e retorna um valor.
MsgBox (Text As String [,Type As Integer [,Dialogtitle As String]])
Inteiro
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
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