Por supuesto, podemos hacer cosas mucho más interesantes con este control. Aprovecharemos, de paso, para aprender a utilizar la función MsgBox(), que permite desplegar pequeñas ventanas con un mensaje (y algunos botones) en ella. Su sintaxis es la siguiente:

MsgBox(prompt[, buttons][, title][, helpfile, context])

Donde prompt, que obligatoriamente debe estar, es una cadena que representa el texto que aparecerá  en el cuadro de diálogo. La longitud máxima de prompt es de unos 1024 caracteres, variando con el ancho de los caracteres utilizados.

Buttons es un parámetro opcional. Es una expresión numérica que corresponde a la suma de los valores que especifican el número y el tipo de los botones que se pretenden mostrar, el estilo de icono que se va a utilizar, la identidad del botón predeterminado y la modalidad del cuadro de mensajes. Si no ponemos nada (o ponemos “0”), solo aparecerá un botón con el texto “Ok” que cerrará el cuadro de dialogo cuando le demos clic.

Title es otra cadena opcional, que se muestra en la barra de título del cuadro de diálogo. Si se omite este parámetro, en la barra de título se verá el nombre de la aplicación.

Helpfile también es opcional. Es la cadena que identifica el archivo de ayuda relacionado con el cuadro de dialogo. Volveremos sobre este tema cuando tratemos la forma de implementar ayuda interactiva en nuestras aplicaciones. El parámetro context también se relaciona con la ayuda.

Veamos un ejemplo. La siguiente línea

MsgBox("Aprendiendo Visual Basic", 0, "NeoTeo")

genera un cuadro de diálogo con el texto "Aprendiendo Visual Basic", un solo botón con el texto “Ok” y  el titulo “NeoTeo”. Tal cual se ve en la imagen:

Figura 10

Ahora bien, seguramente te estas preguntando “¿Cómo hago yo para enterarme que poner para crear cada combinación de botones?”. Y nosotros, rápidamente, te damos la respuesta:

Tabla 1

Como puede verse, Visual Basic proporciona una palabra clave para que no tengamos que recordar números extraños. El siguiente código

MsgBox("Error grave, se ha perdido la información",VbAbortRetryIgnore + VbCritical,"Error grave")

Muestra como podemos utilizarlas. Y la figura de abajo el resultado que produce:

Figura 11

Tabla 2

Lo interesante de MsgBox() es que devuelve un código que nos indica que botón ha pulsado el usuario. Esto significa que, si somos lo suficientemente hábiles a la hora de escribir nuestros programas, podremos realizar diferentes acciones en respuesta a la respuesta (¡ops!) del usuario.

El siguiente código muestra un aviso de alerta con los botones Anular, Reintentar y Omitir. Luego, utilizando la instrucción If-Then, el programa analiza la respuesta del usuario y muestra otro cuadro de diálogo que nos confirma cual fue el botón presionado:


        Dim a As Integer
        a = MsgBox("Error grave, se ha perdido la información", vbAbortRetryIgnore + vbCritical, "Error grave")

        If a = vbAbort Then
            MsgBox("Presionaste Anular")
        End If

        If a = vbRetry Then
            MsgBox("Presionaste Reintentar")
        End If

        If a = vbIgnore Then
            MsgBox("Presionaste Omitir")
        End If
 

Figura 12	Figura 13

Como puede verse, resulta muy simple utilizar los controles disponibles en Visual Basic. Hoy no hemos visto más que una pequeñísima parte de las opciones de uno de sus controles, pero afortunadamente, la mayor parte de las características y propiedades de un control existen y se utilizan de la misma forma en casi todos los demás. Esto facilitará mucho nuestro aprendizaje.

Capítulos anteriores:

Capítulo 1
Capítulo 2
Capítulo 3
Capítulo 4
Capítulo 5
Capítulo 6