VB.Net by API/System/ArgumentException

Материал из VB Эксперт
Перейти к: навигация, поиск

ArgumentException.Message

  
 
Option Strict On
Public Module Tester
   Public Sub Main()
      Try
         RoutineA()
      Catch e As Exception
         Console.WriteLIne("Main error handler: " & e.Message)
      End Try
   End Sub
   Private Sub RoutineA()
      Try
         Throw New ApplicationException
      Catch e As ApplicationException
         Console.WriteLine("Exception in RoutineA: " & e.Message)
      End Try
      Try
         Throw New ArgumentException
      Catch e As ApplicationException
         Console.WriteLine("Exception in RoutineA: " & e.Message)
      End Try
      Console.WriteLine("About to exit RoutineA.")
   End Sub
End Module