Programación General > Visual Basic 6.0 e inferiores

 Re: Objeto Error

<< < (3/3)

acalanto:
'esto en módulo de declaraciones públicas...
Public ProcedureName As String

Private Sub Form_Load()
    On Local Error GoTo captura_error
   
    ProcedureName = "Form_Load::" + Me.Name
   
1001:
   
    Me.Top = 5
    Me.Left = -10
   
1002:
   
    Dim a
    a = 20 / 0
   
1003:

    Dim p As String
    Dim q As String
   
    p = "Esto es una cadena para producir un error"
    q = Mid(p, 0, 12)
   
    'Salimos para que la propia captura no genere un error
    Exit Sub
   
captura_error:

    MsgBox "Error: " + CStr(Err) + "  en linea: " + CStr(Erl) + vbCrLf + vbCrLf + Err.Description + vbCrLf + vbCrLf + "PROC: <" + ProcedureName + ">"
   
    Resume Next
   
End Sub

chiaravel:
Lo probe y estuvo todo OK.

Te agradezco mucho..

Sinceramente me maree un poco cuando no encontre ERL en el MSDN.

Un Abrazo

PD : Conoces algun metodo o utilidad para numerar las lineas de codigo de un proyecto, para no tener que ir una por una renumerandolas ?

:beer:

acalanto:
Lo siento, no tengo conocimiento de una utilidad así pero creo que no sería demasiado difícil confeccionar un Addin que lo hiciera.

Si veo algo te lo comunico.

Un saludo
-acalanto-

chiaravel:
Igualmente, solo debo agradecerte.

Un Abrazo

:bravo:

Navegación

[0] Índice de Mensajes

[*] Página Anterior