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