Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: dimitrix en 22 Enero 2007, 00:06 am

Título: Personalizar error
Publicado por: dimitrix en 22 Enero 2007, 00:06 am

Hola pues necesito que cuando salte el error:

(http://img237.imageshack.us/img237/9337/dibujo18od.png)

Gracias

PD: le di al botón (http://foro.elhacker.net/Themes/default/images/spanish/search.gif) y no aparece nada.

Título: Re: Personalizar error
Publicado por: Syphroot en 22 Enero 2007, 01:18 am

Espero te ayude esto:

Código:


Const ERR_ESPERADO = 0

Sub Rutina()
   
   On Local Error Goto Controlar

   ' Codigo

   Exit Sub

Controlar:
   
   If Err.Number = ERR_ESPERADO then
       
         MsgBox "Mensaje personal"
         
         Resume Next 
         
   End If

End Sub

Solo ajustas la constante al valor del error esperado.

saludos