[VB.NET Tips]Try...Catch...End Try的另一種用法

有時在調用一個方法時，會進行異常處理。但是當方法內部出現錯誤時，無法快速定位到是哪一行代碼有問題。
下面介紹一下Try的另一個用法：
Try...Catch ex As Exception When expression
當expression為True時處理異常，否則把異常拋到上一層調用。

    Dim isRelease As Boolean = True         '確定是否是Release版本

    Sub Main()

        Dim reuslt As Integer

#If DEBUG Then

        isRelease = False

#End If

        reuslt = Divide(10, 0)
        Console.WriteLine("結果是:" & reuslt)

        Console.Read()

    End Sub

    Private Function Divide(ByVal x As Integer, ByVal y As Integer) As Integer

        Dim reuslt As Integer

        Try

            Return x / y

        Catch ex As Exception When isRelease        '當isRelease為True時處理異常，否則把異常拋出

            Console.WriteLine("錯誤:" & ex.Message)

        End Try

    End Function