IBM Lotus Symphony
|
Apresenta uma caixa de diálogo com uma mensagem e indica um valor.
MsgBox (Text As String [,Type As Integer [,Dialogtitle As String]])
Integer
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
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