Visual Basic - abortar programa ante error critico

Life is soft - evento anual de software empresarial
 
Vista:

abortar programa ante error critico

Publicado por rubenagui (4 intervenciones) el 25/06/2004 12:05:47
Por favor pueden decirme cual es la instrucción que sirve para abortar la ejecución de un programa ante un error critico como pueda ser una division por cero.

Gracias por su ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:abortar programa ante error critico

Publicado por SkranK (99 intervenciones) el 25/06/2004 14:42:17
Hola
'aquí tengo un ejemplo para el error de división entre cero
'consiste en un botón que divide el valor de una caja de texto (Text1) entre el valor de otra caja de texto (Text2)

Private Sub Command1_Click()
On Error GoTo MenudoError 'si encuentra algún error ejecuta el código que hay debajo de "MedudoError:"
MsgBox (Val(Text1.Text) / Val(Text2.Text))
'si no ha encontrado ningún error hacemos que salga de la subrutina
Exit Sub
'si ha encontrado algún error viene directamente a esta línea
MenudoError:
'si en Text2 hay un cero o una letra el número de error es 11
'y si el error es el Nº 11 lo ignora y continúa con el código que hay después de la línea de código que ha generado el error gracias al siguiente código
If Err.Number = 11 Then Resume Next 'En este caso sería "Exit Sub"
End Sub
'en el ejemplo el número de error es el 11.
'si en Text1 y Text2 no hubiera un número o los dos fueran cero, el error sería el Nº 6 "Desbordamiento". En tal caso en vez de 11 habría que poner 6 o los dos.
'los errores hay que controlarlos individualmente
'espero que te haya servido de algo
Salu2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar