VB.Net Tutorial/Development/StackTrace

Print Stack TraceImports System.Diagnostics

<source lang="vbnet">public class Test

  public Shared Sub Main
       CalculateEmployeeSalaries()
  End Sub
   Private Shared Sub CalculateEmployeeSalaries()
       CheckVacationPay()
   End Sub
   Private Shared Sub CheckVacationPay()
       ShowCallStack()
   End Sub

   Private Shared Sub ShowCallStack()
       Dim stack_trace As New System.Diagnostics.StackTrace(True)
       For i As Integer = 0 To stack_trace.FrameCount - 1
           With stack_trace.GetFrame(i)
               Console.WriteLine("Method: " & .GetMethod().ToString)
               Console.WriteLine("File: " & .GetFileName())
               Console.WriteLine("Line: " & .GetFileLineNumber())
           End With
       Next i
   End Sub

End class</source>

Method: Void ShowCallStack()
File:
Line: 0
Method: Void Main()
File:
Line: 0