Catch塊後繼續

Question

我嘗試在異常之後繼續執行Try塊。
我的意思是：

Try 
    action1() 
    action2() 
    action3() 
    action4() 
Catch 
    Log() 

如果在action2發現錯誤去捕捉，做記錄並繼續action3，action4;

我該怎麼做？

Answer 1

您可以使用Action作爲參數，這個方法：

Public Shared Function TryAction(action As Action) As Boolean 
    Dim success As Boolean = True 
    Try 
     action() 
    Catch ex As Exception 
     success = False 
     Log() 
    End Try 
    Return success 
End Function 

現在這個工程：

TryAction(AddressOf action1) 
TryAction(AddressOf action2) 
TryAction(AddressOf action3) 
TryAction(AddressOf action4) 

經典的方式使用多個Try-Catch：

Try 
    action1() 
Catch 
    Log() 
End Try 
Try 
    action2() 
Catch 
    Log() 
End Try 
Try 
    action3() 
Catch 
    Log() 
End Try 
Try 
    action4() 
Catch 
    Log() 
End Try 

Answer 2

移動嘗試/捕獲塊到Action（）方法中。這將允許您以不同的方式響應每種方法中的異常，如有必要。

Sub Main() 
    action1() 
    action2() 
    action3() 
    action4() 
End Sub 

Sub Action1() 
    Try 
    '' do stuff 
    Catch 
    Log() 
    End Try 
End Sub 

Sub Action2() 
    Try 
    '' do stuff 
    Catch 
    Log() 
    End Try 
End Sub 

Sub Action3() 
    Try 
    '' do stuff 
    Catch 
    Log() 
    End Try 
End Sub 

Sub Action4() 
    Try 
    '' do stuff 
    Catch 
    Log() 
    End Try 
End Sub 

Answer 3

下面是一個例子使用數組：

For Each a As Action In {New Action(AddressOf action1), New Action(AddressOf action2), New Action(AddressOf action3), New Action(AddressOf action4)} 
    Try 
     a.Invoke() 
    Catch ex As Exception 
     Log(ex) 
    End Try 
Next