異なる結果を持つ入れ子のElse If文に代わるものはありますか？

Question

結果が異なるネストされたelse if文を処理する優れた方法はありますか？ここで

を説明するために私のネストされたステートメントの1の例である：

  If My.Computer.Network.Ping(computerName) = True Then 
       Call InstallVS(computerName) 
       If My.Computer.Network.Ping(computerName) = True Then 
        Call PEC(computerName) 
        If My.Computer.Network.Ping(computerName) = True Then 
         Call RemoveSoftware(computerName) 
        Else 
         Call WriteLog(computerName & " lost connectivity while attemping to remove the temp software") 
        End If 
       Else 
        Call WriteLog(computerName & " lost connectivity while Forcing Communication") 
       End If 
      Else 
       Call WriteLog(computerName & " lost connectivity while attemping to Install") 
      End If 

私は文のこれらのタイプの多くの要求を持っている、いくつかのいくつかは、多くの大きい、小さいです。

Answer 1

あなたは、接続性をテストしたり、特定のエラーメッセージが表示され、それ以外の場合は例外がスローされますPingOrFailと呼ばれるメソッドを作成することができます。そして、あなたのコードの流れは次のようになります：

Try 
    PingOrFail(computerName, "attempting to install") 
    Call InstallVS(computerName) 

    PingOrFail(computerName, "forcing communications") 
    Call PEC(computerName) 

    PingOrFail(computerName, "removing temp software") 
    RemoveSoftware(computerName) 
Catch ex As Exception 
    Call WriteLog (computerName & " lost connectivity while " & ex.Message) 
End Try 

をそして、これはPingOrFail方法である：

Public Sub PingOrFail(computerName as String, message As String) 
    If My.Computer.Network.Ping(computerName) = False 
     Throw New Exception (message) 
    End If 
End Sub 

Answer 2

これらのステートメントはネストする必要はなく、失敗した場合にのみ例外を発生させることができます。

Private Sub DoStuff(ByVal computerName As String) 
    Try 
     If My.Computer.Network.Ping(computerName) Then 
      InstallVS(computerName) 
     Else 
      Throw New Exception(computerName & " lost connectivity while attemping to Install") 
     End If 
     If My.Computer.Network.Ping(computerName) Then 
      PEC(computerName) 
     Else 
      Throw New Exception(computerName & " lost connectivity while Forcing Communication") 
     End If 
     If My.Computer.Network.Ping(computerName) Then 
      RemoveSoftware(computerName) 
     Else 
      Throw New Exception(computerName & " lost connectivity while attemping to remove the temp software") 
     End If 
    Catch ex As Exception 
     WriteLog(ex.Message) 
    End Try 
End Sub