Escribir un breve programa de Visual Basic muestra el uso de la función MsgBox . El ejemplo muestra cómo el programador puede causar una variedad de acciones a ocurrir dependiendo de la respuesta de un usuario . Invocando el MsgBox puede lidiar con los errores críticos , simplemente alertar al usuario de algo, o dejar que la persona decida si continue.To ver esto en acción , abra Visual Basic 6.0 o el software Visual Basic.NET . En Visual Basic , cree un nuevo programa, haga clic en "Archivo ". Seleccione "Nuevo proyecto " de la lista desplegable y un " EXE estándar " en la lista de plantillas. En Visual Basic.NET o Visual Basic 2008 Express Edition , cree un nuevo proyecto de la misma manera pero elija la opción " Aplicación de Windows Forms " Crear un botón de comando y tres etiquetas en el formulario haciendo clic y arrastrando estas herramientas de la caja de herramientas. Haga clic en cada etiqueta en el cuadro de propiedades a la derecha , mientras que utilizando la vista Diseño y elimine el texto del título. Sólo para hacer el ejemplo un poco más fácil de usar, cambiar el título del botón de comando en la lista de propiedades de "Show Me ". El formulario debe ser similar a la imagen aquí .
Código Ejemplo
En Visual Basic 6 , haga clic en "Ver" en el menú y elegir la opción " Código" de la lista desplegable lista. Escriba los siguientes comandos tal y como se muestra a continuación. En Visual Basic.NET , al pulsar la tecla "F7 " se abre la vista de código . NOTA : La interfaz de Visual Basic inserta automáticamente vigilar a algunas de estas líneas que no se muestran correctamente en este artículo. No se preocupe por esto. La imagen muestra la forma en que se incluye la codificación aparecerán en el software.
Private Sub Command1_Click () Dim Mensaje , Estilo , Título , ResponseMsg = " ¿Desea continuar? " Style = vbAbortRetryIgnore + vbCritical + vbDefaultButton2 ' Definir buttons.Title = " MsgBox demostración " Respuesta = MsgBox ( Mensaje , Estilo , Título ) Si la respuesta = vbAbort ThenLabel1.Caption = " no deberías haber hecho eso! " ElseIf Respuesta = vbRetry ThenLabel2.Caption = " Reintentar todo lo que quieras , nada va a funcionar ! " 'Realiza alguna action.Else : Label3.Caption = "¡ Esa es la respuesta correcta" MsgBox ( "Pulse cualquier tecla para poner fin a esta ") Si vbOK ThenEndEnd IfEnd IfEnd Sub
pulsar "F5 " en cualquiera de las versiones se ejecutará el programa y demostrar el MsgBox tal como fue creado . Dependiendo de las necesidades de la aplicación , en lugar de tener los mensajes aparecen , el programa puede tener acciones se producen como la apertura de nuevas ventanas , lo que provocó los procedimientos de corrección de error, cierre el programa o una serie de cosas que son posibles dentro del programa.