|
|
La función InputBox presenta una ventana de diálogo para que el usuario pueda introducir un valor. Esta, como todas las funciones, devuelve una variable, y en este caso es una variable de tipo String.
La sintaxis de la llamada a esta función es la siguiente:
InputBox(prompt[, title][,default][,x_posición][,y_pososición][,helpfile, context])
En esta instruccion podemos ver varias palabras en cursiva, como prompt. Lo que se escriba en donde está situado prompt va a ser el mensaje que va a leer el usuario. Si se quiere escribir más de una linea es obligatorio poner una de las instrucciones de avance de linea(Chr(10) o Chr(13) y Chr(10)). En donde se encuentra la palabra title se escribe el titulo de la ventana. En el lugar en donde está el termino default, se puede escribir el valor que va a contener por defecto el InputBox, si se omite aparecerá vacío. En los lugares en los que aparecen las palabras x_posición e y_posición se puede indicar en que posición de la pantalla se quiere que aparezca la ventana. Y, por último, los últimos terminos que aparecen se refieren a la ayuda que se puede asociar al InputBox.
Por cierto si el usuario hace click en Cancelar, la función devolvería la String "", que es la cadena vacía.
Un ejemplo de como usar una InputBox podría ser el siguiente:
Dim strNombre As StringstrNombre = InputBox("Por favor," & Chr(10) & "digame su nombre.", "Datos Personales", "SinNombre")
Lo que el usuario verá será:
Esta función muestra un mensaje en un cuadro de dialogo y espera que el usuario realize un click en uno de los botones para terminar.La sintaxis de esta función es:
MsgBox(prompt[,botones][,titulo][,helpfile, context])
Como te habrás fijado, esta función recibe unos valores, ahora pasaremos a describir que son estos valores:
|
Constante
|
Descripción
|
Valor
|
| VbOKOnly | Mostrará unicamente el boton de Aceptar. | 0 |
| VbYesNo |
Muestra los botones de Si y No . |
4 |
| VbCritical |
Muestra el icono de mensaje crítico. |
16 |
| VbOKCancel | Muestra los botones de Aceptar y Cancelar. | 1 |
| VbInformation | Muestra el icono del mensaje de información. | 64 |
| VbQuestion | Muestra el icono de pregunta de advertencia. | 32 |
| VbYesNoCancel | Muestra los botones de Si, No y Cancelar. | 3 |
| VbDefaultButton1 | El boton prederterminado es el primero. | 0 |
| VbDefaultButton2 | El boton prederterminado es el segundo. | 256 |
| VbDefaultButton3 | El boton prederterminado es el tecero. | 512 |
| VbDefaultButton4 | El boton prederterminado es el cuarto. | 768 |
| VbSystemModal | Se suspenden todas las aplicaciones. | 4096 |
|
VbAbortRetryIgnore |
Muestra los botones de Anular, Reintentar e Ignorar. | 2 |
| VbExclamation | Muestra el icono de mensaje de advertencia. | 48 |
| VbRetryCancel | Muestra los botones de Reintentar y Cancelar. | 5 |
| VbApplicationModal | Suspende la aplicación actual. | 0 |
Como es una función, devuel un valor según el botón que haya pulsado el usuario. Seguidamente escribimos los posibles valores devueltos:
|
Constante
|
Descripción
|
Valor
|
| VbOK | Aceptar | 1 |
| VbCancel | Cancelar | 2 |
| VbAbort | anular | 3 |
| VbRetry | Reintentar | 4 |
| VbIgnore | Ignorar | 5 |
| VbYes | Si | 6 |
| VbNo | No | 7 |
Un ejemplo de como usar un MSGBox es el siguiente:
Dim intRespuesta As Integer
intRespuesta = MsgBox("Desea grabar antes de salir", VbYesNoCancel + VbCritical, "Salir")
Y lo que finalmente vería el usuario sería:
