IBM Lotus Symphony
|
Muestra un cuadro de diálogo que contiene un mensaje y devuelve un valor.
MsgBox (Texto As String [,Tipo As Integer [,TítuloDiálogo As String]])
Entero
Texto: expresión de cadena que se muestra como un mensaje en el cuadro de diálogo. Los saltos de línea se pueden insertar con Chr$(13).
TítuloDiálogo: expresión de cadena que se muestra en la barra de título del diálogo. Si se omite, se muestra el nombre de la aplicación correspondiente.
Tipo: cualquier expresión entera que especifique el tipo de diálogo y defina el número y tipo de botones o iconos que se muestran. Tipo representa una combinación de patrones de bits (elementos de diálogo definidos al agregar los valores correspondientes):
Valores
0 : Mostrar sólo el botón Aceptar.
1 : Mostrar los botones Aceptar y Cancelar.
2 : Mostrar los botones Interrumpir, Reintentar e Ignorar.
3 : Mostrar los botones Sí, No y Cancelar.
4 : Mostrar los botones Sí y No.
5 : Mostrar los botones Reintentar y Cancelar.
16 : Agregar el icono de Stop al diálogo.
32 : Agregar el icono de Pregunta al diálogo.
48 : Agregar el punto de Exclamación al diálogo.
64 : Agregar el icono de Información al diálogo.
128 : El primer botón del diálogo es el proporcionado de manera predeterminada.
256 : El segundo botón del diálogo es el proporcionado de manera predeterminada.
512 : El tercer botón del diálogo es el proporcionado de manera predeterminada.
Valor de retorno:
1 : Aceptar
2 : Cancelar
3 : Interrumpir
4 : Reintentar
5 : Ignorar
6 : Sí
7 : No
Sub EjemploMsgBox
Dim sVar As Integer
sVar = MsgBox("Las Vegas")
sVar = MsgBox("Las Vegas",1)
sVar = MsgBox( "Las Vegas",256 + 16 + 2,"Título de diálogo")
end sub