VB.Net by API/System/Exception

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

Exception.Message

<source lang="vbnet">

Imports System Public Class MainClass

   Shared Sub Main(ByVal args As String())
       Try
           CalculateValue()
       Catch ex As Exception
           Console.WriteLine( "ex.Message:" & ex.Message )
           Console.WriteLine( "ex.StackTrace:" & ex.StackTrace )
           Console.WriteLine( "ex.ToString:" & ex.ToString )
       End Try
   End Sub
   
   Shared Private Function CalculateValue() As Integer
       Return 1 \ Integer.Parse("0")
   End Function

End Class


 </source>


Exception.StackTrace

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main(ByVal args As String())
       Try
           CalculateValue()
       Catch ex As Exception
           Console.WriteLine( "ex.Message:" & ex.Message )
           Console.WriteLine( "ex.StackTrace:" & ex.StackTrace )
           Console.WriteLine( "ex.ToString:" & ex.ToString )
       End Try
   End Sub
   
   Shared Private Function CalculateValue() As Integer
       Return 1 \ Integer.Parse("0")
   End Function

End Class


 </source>


Exception.ToString

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main(ByVal args As String())
       Try
           CalculateValue()
       Catch ex As Exception
           Console.WriteLine( "ex.Message:" & ex.Message )
           Console.WriteLine( "ex.StackTrace:" & ex.StackTrace )
           Console.WriteLine( "ex.ToString:" & ex.ToString )
       End Try
   End Sub
   
   Shared Private Function CalculateValue() As Integer
       Return 1 \ Integer.Parse("0")
   End Function

End Class


 </source>