“Conocimientos Programación>Visual Basics Programación

Cómo crear un controlador de errores para un programa de VB

2012/3/25
Si usted está tratando de obtener más de sus proyectos de Microsoft Access , o que están empezando a programar en Visual Basic, que tiene un controlador de errores en sus Subs y funciones puede salvar su usuario final una muchos dolores de cabeza . Aquí está una manera fácil de agregar un controlador de errores en el código que le permitirá hacer frente a los errores a medida que surgen y luego adaptar la respuesta al error específico. Cosas que necesitará
Visual Basic 6 o una ventana de código abierto en MS Access 2003 o versiones anteriores del módulo
Mostrar más instrucciones
1

Abre una ventana de código , ya sea en VB6 o un módulo de MS Access y crear una nueva rutina Sub llamado TestErrorHandler . En este punto no habrá ningún código en el Sub que se verá así: TestErrorHandler Public Sub () End Sub
2

Añada la siguiente línea a la rutina Sub; no vuelva a escribir los Sub Públicas y End Sub líneas de nuevo. Es importante asegurarse de que agrega una coma después de la línea " ERROR_EXIT " y " ErrorHandler . " Además , la línea de " ErrorHandler " tiene que ser escrito exactamente como se declara en la línea " On Error GoTo ErrorHandler . " Usted puede nombrar a su manejador de error " Jim ", si lo desea. pero hay que mantener el nombre consistente: TestErrorHandler Public Sub () On Error GoTo ErrorHandlerError_Exit : SubErrorHandler Exit : Línea SubThe End " On Error GoTo ErrorHandler " dirige el sub para buscar un controlador de errores si se presenta un error cuando es la línea running.The " ERROR_EXIT " salidas fuera de los Sub desde la línea de " Exit Sub " se ha añadido inmediatamente por debajo de la línea it.The " ErrorHandler : " es donde se controlan los errores específicos
3

. Ahora agregue las siguientes dos líneas de código directamente en " ErrorHandler ": Select Case Err.NumberEnd SelectWe utiliza una instrucción Select Case para controlar los errores específicos que podríamos querer tratar con
4

. Notificar al usuario que ha ocurrido un error y darles un poco de información adicional. Haremos todo lo que en nuestra Select Case usando " Case Else ". Para este ejemplo , vamos a mantenerlo simple , notificando al usuario de que se ha producido un error y que el número de error es , además de una breve descripción . Agregue las siguientes líneas de código en su " ErrorHandler ": Case Else pstrErrorMessage = " Error :" & Err.Number _ & vbCrLf y Err.Description MsgBox pstrErrorMessage , vbExclamation , "Error " Resume todo Error_ExitThe Sub ahora debe ser similar a esto: TestErrorHandler Public Sub () On Error GoTo ErrorHandlerError_Exit : SubErrorHandler Exit : pstrErrorMessage Dim As String Select Case Err.Number Case Else pstrErrorMessage = " Error :" & Err.Number _ & vbCrLf y Err.Description MsgBox pstrErrorMessage , vbExclamation , "Error " Reanudar ERROR_EXIT End Sub SelectEnd
5

La verdadera ventaja de tener un controlador de errores en su lugar es que se puede hacer frente a los errores que se espera de una manera elegante. Por ejemplo, si usted decide escribir una rutina Sub que mover un archivo ( s ) a partir de una carpeta a otra , pero anticipamos que en alguna ocasión que el o varios de los archivos no existirá , lo más probable es obtener un número de error repetido 53 , que es un archivo no encontrado Error . Usted puede agregar una línea para la instrucción Select Case que resolver este error y continuar con la rutina Sub. Añadir estas dos líneas directamente debajo de la línea " Select Case " : Case 53 Resume NextBy tratar con el archivo esperado Not Found error de esta manera, tendrás la rutina Sub continúe funcionando sin notificar al usuario lo que ha sucedido . Obviamente, si desea que el usuario sepa que el archivo especificado no está presente , se debe añadir un MsgBox en este sentido . Toda la Sub ahora se ve así ( la captura de pantalla asociada con este paso refleja cómo el código debe ser en el entorno de programación VB ) : TestErrorHandler Public Sub () On Error GoTo ErrorHandlerError_Exit : SubErrorHandler Exit : pstrErrorMessage Dim As String Select Case Err.Number Case 53 Resume Next Case Else pstrErrorMessage = " Error :" & Err.Number _ & vbCrLf y Err.Description MsgBox pstrErrorMessage , vbExclamation , "Error " Reanudar ERROR_EXIT End Sub SelectEnd

Visual Basics Programación
Cómo leer una línea de texto delimitado por tabuladores en VBA
¿Qué es Visual Basic Programación
Cómo crear formularios LOB Con WPF
Cómo obtener una respuesta de un Messagebox
Cómo cambiar el nombre de las columnas en VBA y Acceso
Cómo programar el botón Calcular en Vb.Net
Cómo quitar Devoluciones carácter de una cadena Dentro VB
Cómo abrir una página web con VBA
Conocimientos Informáticos © http://www.ordenador.online