|
|
Curso gratis de Visual Basic tratamiento de errores y On error GoTo
|
|
Tratamiento de
errores
Hay que tener en cuenta los
siguientes puntos:
Establecer o activar, la
interceptación de errores indicando a la aplicación hacia dónde se
debe bifurcar (qué rutina de tratamiento de errores debe ejecutar)
cuando se produce un error.
Escribir una rutina de tratamiento
de errores que responda a cualquier error que pueda prever
Salir de la rutina de tratamiento de
errores. La aplicación no se tiene que quedar tildada en un error,
como ser el faltar una hoja en la impresora. |
Sintaxis
Error número error Donde, número error va un
numero cualquiera para identificar el error
O también:
On Error GoTo línea Activa la rutina de
control de errores que comienza en la línea especificada en el
argumento
necesario que llamé "línea". El argumento "línea" es cualquier etiqueta de línea o número
de línea, en el ejemplo de abajo se ha utilizado la palabra CheckError queda
claro que podría haber sido otra. Si se produce un error en tiempo de
ejecución, el control pasa a "línea", activando el controlador de errores.
On Error Resume Next Especifica que, en
caso de que se produzca un error en tiempo de ejecución, el control pase a
la instrucción que sigue inmediatamente a aquella en la que se ha producido
el error, donde continúa la ejecución.
On Error GoTo 0: Desactiva cualquier
controlador de errores del procedimiento actual.
A continuación un ejemplo con error e
inputbox:
|
Private Sub
Command1_Click()
Dim AppName As
String
On Error GoTo CheckError AppName = InputBox("Escriba
el nombre de la aplicación", "aca va un titulo si quiero")
Shell AppName
Exit Sub
CheckError:
If Err.Number =
53 Then 'Archivo no encontrado.
MsgBox "No se encontró la
aplicación."
If MsgBox("Desea
intentarlo de nuevo?", vbYesNo) = vbYes Then
AppName = InputBox("Escriba
el nombre de la aplicación")
Resume 'Lo intenta
de nuevo.
Else
Resume Next 'Ejecuta
la siguiente instrucción.
End If
Else
MsgBox
"Error desconocido"
End If
End Sub |
|
|
Nota:
En este ejemplo lo que importa es que tenga una mínima idea de cómo funciona
el tema de los errores y de paso mire una utilidad de inputbox. Mas adelante
a medida que se realicen prácticas de aplicaciones completas, volverá a
aparecer códigos para errores, esto es un primer vistazo. No se desespere si
no entiende toda la aplicación porque recién está empezando y este ejemplo
contiene bastantes líneas para usted si es que recién comienza con la
programación en BV no conoce todavía. |
|
|
-