domingo, 6 de noviembre de 2011

Cuadro de Diálogo

En la mayoría de aplicaciones Windows el usuario hace uso de los cuadros de diálogo para establecer opciones o introducir información que la aplicación necesita para realizar la acción indicada por el usuario.

La función MsgBox
La función MsgBox muestra información y espera una respuesta.  Es una muy buena forma de distribuir la información y obtener la devolución de una respuesta simple.
La sintaxis de la función MsgBox consta de estos argumentos.

MsgBox(Comentario[, botón][, título del cuadro])

En esta tabla describimos las opciones para los ajustes de botón, el estilo de icono y la asignación de botón predeterminado.

Constante
Valor
Descripción
VbOKOnly
0
Muestra solamente el botón Aceptar.
VbOKCancel
1
Muestra los botones Aceptar y Cancelar.
VbAbortRetryIgnore
2
Muestra los botones Anular, Reintentar e Ignorar.
VbYesNoCancel
3
Muestra los botones Sí, No y Cancelar.
VbYesNo
4
Muestra los botones Sí y No.
VbRetryCancel
5
Muestra los botones Reintentar y Cancelar.
VbCritical
16
Muestra el icono de mensaje crítico.
VbQuestion
32
Muestra el icono de pregunta de advertencia.
VbExclamation
48
Muestra el icono de mensaje de advertencia.
VbInformation
64
Muestra el icono de mensaje de información.
VbDefaultButton1
0
El primer botón es el predeterminado.
VbDefaultButton2
256
El segundo botón es el predeterminado.
VbDefaultButton3
512
El tercer botón es el predeterminado.
VbDefaultButton4
768
El cuarto botón es el predeterminado.
VbApplicationModal
0
Aplicación modal; el usuario debe responder al cuadro de mensajes antes de poder seguir trabajando en la aplicación actual.
VbSystemModal
4096
Sistema modal; se suspenden todas las aplicaciones hasta que el usuario responda al cuadro de mensajes.

Sub Mensaje()
    Dim Respuesta As Integer
    Respuesta = MsgBox("Seleccione Aceptar o Cancelar", vbOKCancel)
    ' verificamos si se presionó 'Cancelar'
If Respuesta = vbCancel Then
    MsgBox "Selecciono Cancelar"   
    End If
    If Respuesta = vbOK Then
    MsgBox "Selecciono Aceptar"  
    End If
End Sub

La función InputBox
La función InputBox crea un cuadro de mensaje especial que hace la siguiente:
  • Muestra un apunte solicitado un solo bit de información con un cuadro de texto vacío.
  • Espera que el usuario introduzca el texto o haga clic en un botón.
  • Devuelve el contenido del cuadro de texto con la respuesta del botón al procedimiento que llamo a la función.

La sintaxis de la función es la siguiente:

InputBox(Comentario[, título del cuadro][, respuesta predeterminada en el cuadro de texto][, Tipo de dato])

Sub Nombre()
Dim Nombre As Variant
Nombre = Application.InputBox(prompt:="Escriba su nombre", Title:="Registro de nombres", Default:="Pedro", Type:=2)
Msgbox Nombre 
End Sub

No hay comentarios:

Publicar un comentario en la entrada

Nota: solo los miembros de este blog pueden publicar comentarios.