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