Error Handler - Exit Sub End Sub vs.

Question

Perché dovrei voler uscire da un gestore di errori (dopo il trattamento) con un Exit Sub invece di lasciarlo andare alla End Sub?

sono sicuro è semplice. Io proprio non capisco. Grazie per qualsiasi aiuto.

Esempio:

Public Sub SubA() 
On Error Goto ProcError 

    ''# other code 
    MsgBox FuncA() 

ProcExit: 
    Exit Sub 

ProcError: 
    MsgBox Err.Description 
    Resume ProcExit 
End Sub 

Answer 1

L'etichetta ProcExit è il luogo in cui si rilasciano tutte le risorse sia che si sia verificato un errore. Ad esempio:

Public Sub SubA() 
    On Error Goto ProcError 

    Connection.Open 
    Open File for Writing 
    SomePreciousResource.GrabIt 

ProcExit: 
    Connection.Close 
    Connection = Nothing 
    Close File 
    SomePreciousResource.Release 

    Exit Sub 

ProcError: 
    MsgBox Err.Description 
    Resume ProcExit 
End Sub 

Answer 2

In genere se si dispone di connessioni al database o altri oggetti hanno dichiarato che, se usato in modo sicuro o creati prima del vostro eccezione, dovrà essere ripulito (ceduta), per poi tornare il vostro errore la gestione del codice al punto di ingresso ProcExit consentirà di eseguire la procedura di garbage collection in entrambi i casi.

Se si abbandona la procedura cadendo su Exit Sub, si rischia di avere uno schifoso accumulo di oggetti istanziati che sono semplicemente seduti nella memoria del programma.