Print Stack TraceImports System.Diagnostics : StackTrace « Development « VB.Net Tutorial

1. VB.Net Tutorial
2. Development
3. StackTrace

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

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