Obsługa błędów - wyjście Sub vs. End Sub

Question

Dlaczego miałbym chcieć wydostać się z modułu obsługi błędów (po obsłudze) za pomocą Exit Sub, zamiast po prostu pozwolić mu przejść do End Sub?

Jestem pewien, że to proste. Po prostu nie rozumiem. Dzięki za pomoc.

Przykład:

Public Sub SubA() 
On Error Goto ProcError 

    ''# other code 
    MsgBox FuncA() 

ProcExit: 
    Exit Sub 

ProcError: 
    MsgBox Err.Description 
    Resume ProcExit 
End Sub 

Answer 1

Etykieta ProcExit to miejsce, w którym można zwolnić wszystkie zasoby, niezależnie od tego, czy wystąpił błąd, czy nie. Na przykład:

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

Zazwyczaj, jeśli masz połączenia z bazą danych lub innych przedmiotów oświadczył, że czy bezpiecznie stosować lub utworzone przed swoim wyjątku, będą musiały być czyszczone (usuwane), a następnie powrót swój błąd obsługa kodu z powrotem do punktu wejścia do ProcExit pozwoli ci na wyrzucenie śmieci w obu przypadkach.

Jeśli zrezygnujesz z zabiegu, przechodząc do Exit Sub, możesz zaryzykować nagromadzenie się instancji obiektów znajdujących się w pamięci programu.