Crear un exception en el codigo VB

[nolo41]

Hola. Alguien podria decirme si se puede crear un exception (error de runtime) dentro del codigo VB ? En lugar que el programa cancele por un error de runtime producido por VB, yo quisiera hacerlo con lineas de codigo dentro de mi programa. Se puede ?

Gracias...

[mcssnt]

bueno pues podrias poner un exit sub, exit for, etc dependiendo en donde te encuentres, ej. si estas en un ciclo pues al terminar el ciclo un end o un goto ke lleve a un end o etc. espero te sirva.

[nolo41]

No seria eso exactamente lo que estoy buscando. La idea es un procedimiento que llama a otro, por ejemplo proc1 llama a proc2, y proc 1 tiene un ON ERROR para proteger el prg de errores de Runtimes. En el proc2 yo ejecuto algo que no me da un resultado esperado pero NO es un error de Runtime. Ahi yo quisiera provocar un error RUNTIME con una instruccion VB para que la ejecucion del programa se vaya al proc1 donde si yo tengo una rutina de error.

Ejemplo

proc1
on error go to rutinadeerror..
..
call proc2 ()
..
..
on error go to 0

: rutinadeerror
msgbox err.number
end sub


proc 2

open fichier
if status not = 0
'quisiera provocar un runtime error con un instruccion VB.
end if
..
..
..
end sub

[tazzito]

no se si te entiendo pero si hago algo asi

dim variable as string
variable = 58
o dim variable as long
variable = "sdsfsdfgs"


ahi provocaras un error

[nolo41]

No verdaderamente. Algo que estaba viendo ahora es:

poner la instruccion error (nro) , donde numero es el numero de error que comprende VB. Instruccion de Ejemplo:

error 6

Esto va ir dentro de la rutinadeerror y mostrara el msgbox:

6 overflow

Pero igual quisiera algo mas todavia. Ejemplo una instrucion algo asi:

xxxx(6, "overflow")


donde xxxx es la instruccion que no conozco que va ir dentro de la rutinadeerror (rutina de errores de Runtime) y que mostrara el msgbox:

6 overflow

Gracias...

[nolo41]

ESTO SERIA EN VB.NET
=====================
cómo hacer que se produzca una excepción:

Para lanzar (o crear) excepciones tendremos que usar la instrucción Throw seguida de un objeto derivado del tipo Exception.
Normalmente se hace de la siguiente forma:

Throw New Exception("Esto es un error personalizado")

[Jad-Neo]

Fácil, usando el procedimiento Raise del objeto Err:

Err.Raise <ID de tu error>,<Origen del error>,<Descripción del error>,<Archivo de Ayuda>,<Contexto de la Ayuda>

Hasta lo puedes probar en la ventana Inmediato:
Err.Raise &HFFFFFF01,"Error Provocado","Se generó un error"

[nolo41]

Excelente. Es eso lo que queria. Gracias a todos!!!. Otras preguntas, por favor, es una opinion. Es este tipo de instruccion "ERR.RAISER" conveniente de usarla para el tipo de exemplo que describi en los emails anteriores ?

En el caso de utilizarla que numero de error se podria asignar ?


Gracias...

[Jad-Neo]

Sólo si vas a utilizarlo en un librería, si es para un programa del cual quieres notificar al usuario que hay un error, es mejor utilizar Msgboxes.