exceptiontest.vb

来自「C#高级编程第6版随书源代码 值得下载」· VB 代码 · 共 24 行

Public Class ExceptionTest
    Public Sub ThrowMethod(ByVal o As Object)
        If o = Nothing Then
            Throw New ArgumentException("error")
        End If

    End Sub

    Public Sub Handler()
        Try
            ThrowMethod(Nothing)

        Catch ex As ArgumentException
            Console.WriteLine(ex.Message)
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            Console.WriteLine("finally")
        End Try
    End Sub

    
End Class