| |
|
|
| |
-
Windows Script Host - VBScript - Funciones - MsgBox( )
-
Esta función sirve para editar informaciones en una ventana de dialogo. Este método puede ejecutarse con hasta cinco parámetros, con los que
puede ajustarse la presentación de la ventana.
salida = MsgBox(texto, botón, titulo, ayuda, contexto)
- "Salida" devuelve el valor del botón pulsado.
- El parámetro "texto" contiene el mensaje que ha de editarse.
- "Botón", brinda la posibilidad de definir su aspecto y cual es la preseleccionada.
VBS tiene un grupo de constantes definidas, las cuales pueden ser combinadas.
- Con "titulo" es posible definir el nombre de la ventana.
Los parámetro "ayuda" y "contexto" pueden utilizarse para establecer un sistema de ayuda.
| Constante |
Valor |
Descripción, se mostrará en el/los botones |
| vbOkOnly |
0 |
"Aceptar" |
| vbOkCancel |
1
|
"Aceptar" y "Cancelar" |
| vbAbortRetryIgnore |
2 |
"Anular", "Reintentar" e "Omitir" |
| vbYesNoCancel |
3 |
"Si", "No" e "Cancelar" |
| vbYesNo |
4 |
"Si" y "No" |
| vbRetryCancel |
5 |
"Reintentar" y "Cancelar" |
| vbCritical |
16 |
símbolo de mensaje critico |
| vbQuestion |
32 |
icono de consulta de advertencia (signo de interrogación) |
vbExclamation
|
48 |
icono mensaje de advertencia |
| vbInformation |
64 |
icono información |
| vbDefaultButton1 |
0 |
el primer botón es el preseleccionado |
| vbDefaultButton2 |
256 |
el segundo botón es el preseleccionado |
| vbDefaultButton3 |
512 |
el tercer botón es el preseleccionado |
| vbDefaultButton4 |
768 |
El cuarto botón es el preseleccionado |
| vbApplicationModal |
0 |
el usuario debe responder al cuadro de mensaje, antes de continuar trabajando en la aplicación actual |
| vbSystemModal |
4096 |
-en sistemas Windows de 16 bits, se suspenderán todas las aplicaciones hasta que se responda al cuadro de mensaje.
-en sistemas Windows de 32 bits, permanecerá este cuadro de mensaje en primer plano. |
El siguiente ejemplo hace uso de las constantes descritas anteriormente con la función "MsgBox( )". El método "BotonApretado( )"
devolverá el botón pulsado en el cuadro de dialogo.
' const_msgbox.vbs
' ===================
Sub BotonApretado(TmpBotonConstante)
Dim strNombreBoton
Select Case TmpBotonConstante
Case vbOk
strNombreBoton = "Aceptar"
Case vbCancel
strNombreBoton = "Cancelar"
Case vbAbort
strNombreBoton = "Cancelar"
Case vbRetry
strNombreBoton = "Reintentar"
Case vbIgnore
strNombreBoton = "Omitir"
Case vbYes
strNombreBoton = "Si"
Case vbNo
strNombreBoton = "No"
Case Else
strNombreBoton = "Botón desconocido"
End Select
MsgBox "El botón " & strNombreBoton & _
" fue pulsado", vbInformation, "Information"
End Sub
Dim valortmp
' vbOkCansel + vbCritical
valortmp = MsgBox("Atención! Alto" , vbOkCancel + vbCritical, "símbolo de alto")
BotonApretado(valortmp)
' vbAbortRetryIgnore + vbQuestion
valortmp = MsgBox("Esto es una pregunta", vbAbortRetryIgnore + vbQuestion, _
"signo de interrogación")
BotonApretado(valortmp)
' vbYesNoCancel + vbExclamation
valortmp = MsgBox("Esto es solo una información", vbYesNoCancel + _
vbExclamation + vbDefaultButton3, "Símbolo de alerta")
BotonApretado(valortmp)
' vbRetryCancel + vbInformation
valortmp = MsgBox("Esto es solo una información", vbRetryCancel + _
vbInformation + vbDefaultButton2, "Simbol de información")
BotonApretado(valortmp)
El método "BotonApretado( )" devuelve el botón pulsado.
La siguiente tabla, muestra los posibles valores a devolver por la función "MsgBox( )".
| Constante |
Valor |
Descripción |
| vbOk |
1 |
Fue pulsado el botón Aceptar |
| vbCancel |
2 |
Fue pulsado el botón cancelar |
| vbAnort |
3 |
Fue pulsado el botón cancelar |
| vbRetry |
4 |
Fue pulsado el botón reintentar |
| vbIgnore |
5 |
Fue pulsado el botón omitir |
| vbYes |
6 |
Fue pulsado el botón si |
| vbNo |
7 |
Fue pulsado el botón no |
Constantes de colores
Existen constantes para la utilización de colores
| Constantes de colores |
Descripción |
| vbBlack |
Negro |
| vbRed |
Rojo |
| vbGreen |
Verde |
| vbYellow |
Amarillo |
| vbBlue |
Azul |
| vbMagenta |
Magenta |
| vbCyan |
Cyan |
| vbWhite |
blanco |
 |
|
Ultima actualisación: Tue, 24 ▪ May ▪ 2011
|
|
|
|
