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